test(logic): add current_input/1 predicate on ComprehensiveInterprete…

…r for test
axone-protocol · Jun 15, 2023 · 752e6e1 · 752e6e1
1 parent 8870251
commit 752e6e1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/x/logic/testutil/logic.go b/x/logic/testutil/logic.go
@@ -46,6 +46,7 @@ func NewComprehensiveInterpreterMust(ctx context.Context) (i *prolog.Interpreter
 	i.Register1(engine.NewAtom("consult"), engine.Consult)
 	i.Register3(engine.NewAtom("bagof"), engine.BagOf)
 	i.Register1(engine.NewAtom("current_output"), engine.CurrentOutput)
+	i.Register1(engine.NewAtom("current_input"), engine.CurrentInput)
 	i.Register2(engine.NewAtom("put_char"), engine.PutChar)
 	i.Register3(engine.NewAtom("write_term"), engine.WriteTerm)