Fix compatibility errors
This commit is contained in:
parent
e2c55d0479
commit
8206a0dee4
8
Makefile
8
Makefile
|
@ -93,17 +93,11 @@ $(DIST): cleanall
|
|||
--xform 's!$(THIS)!$(DIST_NAME)!'\
|
||||
$(THIS)
|
||||
|
||||
#documentation
|
||||
docs: include/*.ads
|
||||
ls include/*.ads | adabrowse -i -o ./ -f-
|
||||
@mv *.html doc
|
||||
|
||||
#misc
|
||||
all: $(LIB) $(TEST)
|
||||
|
||||
clean:
|
||||
$(RM) -f obj/*.* obj/test/*.* obj/debug/*.* ali/*.* ali/debug/*.* 2> /dev/null
|
||||
|
||||
|
||||
cleanall: clean
|
||||
$(RM) -f support/*.gpr bin/* lib/* adaid.gpr doc/*.html 2> /dev/null
|
||||
|
||||
|
|
|
@ -7,6 +7,7 @@ with AUnit.Test_Cases;
|
|||
package AdaID_Tests is
|
||||
|
||||
type UUID_Test is new AUnit.Test_Cases.Test_Case with null record;
|
||||
type Access_UUID_Test is access UUID_Test;
|
||||
|
||||
-- Register the tests to run
|
||||
procedure Register_Tests(T : in out UUID_Test);
|
||||
|
|
|
@ -11,8 +11,9 @@ with AdaID_Tests;
|
|||
procedure Test is
|
||||
function Suite return Access_Test_Suite is
|
||||
Result : constant Access_Test_Suite := new Test_Suite;
|
||||
Test : constant AdaID_Tests.Access_UUID_Test := new AdaID_Tests.UUID_Test;
|
||||
begin
|
||||
Add_Test(Result, new AdaID_Tests.UUID_Test);
|
||||
Add_Test(Result, Test);
|
||||
return Result;
|
||||
end Suite;
|
||||
|
||||
|
|
Loading…
Reference in New Issue