The whole thing is kind of a mess.

2022-09-20 14:22:47 -07:00
parent d080cd20c7
commit 3f4e9d9fe2
40 changed files with 0 additions and 0 deletions
@@ -0,0 +1,32 @@
+:- ["../source/thun.pl"].
+/* 
+
+Tests
+
+Woefully inadequate, but it's a start.
+
+Run test/0.
+
+    ?- tests.
+    YES! test_parser([],[[]])
+    YES! test_parser([32],[[]])
+    YES! test_parser([91,93],[[list([])]])
+    YES! test_parser([50,51],[[int(23)]])
+    YES! test_parser([50,91,51,93],[[int(2),list([int(3)])]])
+    true.
+
+*/
+
+tests :- forall(test_case(T), test(T)).
+
+test(Goal) :- (Goal -> write("YES! ") ; write("no!  ")), writeln(Goal).
+
+test_parser(Source, Exprs) :- findall(Expr, joy_parse(Expr, Source, []), Exprs).
+
+test_case(test_parser(``, [[]])).
+test_case(test_parser(` `, [[]])).
+test_case(test_parser(`[]`, [[list([])]])).
+test_case(test_parser(`23`, [[ int(23)]])).
+test_case(test_parser(`2[3]`, [[int(2), list([int(3)])]])).
+
+% and so on...