diff options
Diffstat (limited to 'test/rembero.adb')
| -rw-r--r-- | test/rembero.adb | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/test/rembero.adb b/test/rembero.adb index e64314e..301c85c 100644 --- a/test/rembero.adb +++ b/test/rembero.adb @@ -24,8 +24,13 @@ procedure Rembero is package Printer is new InKomp.Pretty_Print (Integer'Image); + Relation : Goal := Empty_Goal; + Item_Term : constant Term := Relation.Fresh; + List_Term : constant Term := Relation.Fresh; + Out_Term : constant Term := Relation.Fresh; + begin TIO.Put_Line ("Test program to check if calculating an infinite number of results works."); @@ -35,7 +40,7 @@ begin TIO.New_Line; - Relation.Remove (Relation.Fresh ("item") & Relation.Fresh ("list") & Relation.Fresh ("out")); + Relation.Remove (Item_Term & List_Term & Out_Term); declare First_Five : constant State_Array := Relation.Run (5); @@ -49,11 +54,11 @@ begin for Index in First_Five'Range loop TIO.Put_Line ("#" & Printer.Image (Index) & ":"); TIO.Put_Line (Latin.HT & "item: " & - Printer.Image (Resolve_First (First_Five (Index), "item"))); + Printer.Image (Item_Term.Resolve (First_Five (Index)))); TIO.Put_Line (Latin.HT & "list: " & - Printer.Image (Resolve_First (First_Five (Index), "list"))); + Printer.Image (List_Term.Resolve (First_Five (Index)))); TIO.Put_Line (Latin.HT & "out: " & - Printer.Image (Resolve_First (First_Five (Index), "out"))); + Printer.Image (Out_Term.Resolve (First_Five (Index)))); end loop; end; |