Restructure Makefile to add automated tests.

[jonesforth.git] / test_comparison.f

diff --git a/test_comparison.f b/test_comparison.f
new file mode 100644 (file)
index 0000000..f4908fb
--- /dev/null
+++ b/test_comparison.f
@@ -0,0 +1,73 @@
+( -*- text -*- )
+
+: TEST
+       1 0 < . CR
+       0 1 < . CR
+       1 -1 < . CR
+       -1 1 < . CR
+       -1 0 < . CR
+       0 -1 < . CR CR
+
+       1 0 > . CR
+       0 1 > . CR
+       1 -1 > . CR
+       -1 1 > . CR
+       -1 0 > . CR
+       0 -1 > . CR CR
+
+       1 1 <= . CR
+       0 0 <= . CR
+       -1 -1 <= . CR
+       1 0 <= . CR
+       0 1 <= . CR
+       1 -1 <= . CR
+       -1 1 <= . CR
+       -1 0 <= . CR
+       0 -1 <= . CR CR
+
+       1 1 >= . CR
+       0 0 >= . CR
+       -1 -1 >= . CR
+       1 0 >= . CR
+       0 1 >= . CR
+       1 -1 >= . CR
+       -1 1 >= . CR
+       -1 0 >= . CR
+       0 -1 >= . CR CR
+
+       1 1 = . CR
+       1 0 = . CR
+       0 0 = . CR
+       1 -1 = . CR
+       -1 -1 = . CR CR
+
+       1 1 <> . CR
+       1 0 <> . CR
+       0 0 <> . CR
+       1 -1 <> . CR
+       -1 -1 <> . CR CR
+
+       1 0= . CR
+       0 0= . CR
+       -1 0= . CR CR
+
+       1 0<> . CR
+       0 0<> . CR
+       -1 0<> . CR CR
+
+       1 0< . CR
+       0 0< . CR
+       -1 0< . CR CR
+
+       1 0> . CR
+       0 0> . CR
+       -1 0> . CR CR
+
+       1 0<= . CR
+       0 0<= . CR
+       -1 0<= . CR CR
+
+       1 0>= . CR
+       0 0>= . CR
+       -1 0>= . CR CR
+;