Fix compatibility errors

This commit is contained in:
Anthony Arnold 2021-12-08 23:49:42 +10:00
parent e2c55d0479
commit 8206a0dee4
3 changed files with 4 additions and 8 deletions

View File

@ -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

View File

@ -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);

View File

@ -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;