Merge in the test suite.

Why not?

(I have a slow tide, expand into pieces, contract into units, and back
again.  This is part of a contract and unify phase.)

tests/stan/Makefile

@@ -0,0 +1,44 @@
+# The general command line is, e.g.:
+#
+#     gmake -j
+#
+# To make all the tests, e.g.:
+#
+#     gmake -j --always-make
+#
+# (The the g- prefix indicates that this is GNU make or compatible,
+# the ``-j`` switch tells make to use multiple jobs to take advantage of
+# multi-core systems.)
+#
+# For the explanation of how this test system works see:
+# https://chrismorgan.info/blog/make-and-git-diff-test-harness/
+
+# Set JOY to point to the joy interpreter to test.
+#JOY=joy
+
+TESTS != ls *.joy
+STDOUTS = $(TESTS:.joy=.stdout)
+
+GIT_OPTS = --exit-code
+GIT_OPTS += --src-prefix=expected/ --dst-prefix=actual/
+GIT_OPTS += --name-only
+
+# N.B. I'm using FreeBSD with GNU coreutils, so gtouch rather than touch
+# (for that --date opt.)  It's not ideal to hard-code the g- prefix here,
+# I know, but it was faster than rewriting the command to use FreeBSD's
+# touch as I already had coreutils installed for other reasons.  If you
+# are using GNU coreutils natively on your system then you can remove the
+# g- prefix here.
+
+TOUCH = touch --date=@0
+
+
+.PHONY: test
+
+test: $(STDOUTS)
+
+%.stdout: %.joy
+	@$(JOY) < $< > $@ 2> $*.stderr || ($(TOUCH) $@; false)
+	@git diff $(GIT_OPTS) $@ $*.stderr || ($(TOUCH) $@; false)
+
+

tests/stan/README.md

@@ -0,0 +1,31 @@
+# Simple Test Set for Joy Programming Language
+
+Each test consists of a snippet of Joy code along with the expected
+output (stdout and stderr) for a (conforming) Joy implementation.  They
+are run with make.
+
+For the explanation of how this test system works see:
+https://chrismorgan.info/blog/make-and-git-diff-test-harness/
+
+Set the JOY environment variable to point to the joy interpreter to test,
+e.g.:
+
+    export JOY="python -m joy -q"
+
+-or-
+
+    setenv JOY "python -m joy -q"
+
+or whatever for your shell.  Then run make.
+
+The general command line is, e.g.:
+
+    gmake -j
+
+To make all the tests, e.g.:
+
+    gmake -j --always-make
+
+The the ``g-`` prefix indicates that this is GNU make (or compatible), and
+the ``-j`` switch tells make to use multiple jobs to take advantage of
+multi-core systems.

tests/stan/addition-000.joy

@@ -0,0 +1 @@
+1 2 +

tests/stan/addition-000.stdout

@@ -0,0 +1 @@
+3

tests/stan/addition-010.joy

@@ -0,0 +1 @@
+1 -2 +

tests/stan/addition-010.stdout

@@ -0,0 +1 @@
+-1

tests/stan/addition-020.joy

@@ -0,0 +1 @@
+2 +

tests/stan/addition-020.stderr

@@ -0,0 +1 @@
+Not enough values on stack.

tests/stan/addition-020.stdout

@@ -0,0 +1 @@
+

tests/stan/addition-021.joy

@@ -0,0 +1 @@
++

tests/stan/addition-021.stderr

@@ -0,0 +1 @@
+Not enough values on stack.

tests/stan/addition-021.stdout

@@ -0,0 +1 @@
+

tests/stan/addition-022.joy

@@ -0,0 +1 @@
+1 true +

tests/stan/addition-022.stderr

@@ -0,0 +1 @@
+Not an integer.

tests/stan/addition-022.stdout

@@ -0,0 +1 @@
+

tests/stan/addition-023.joy

@@ -0,0 +1 @@
+1 [] +

tests/stan/addition-023.stderr

@@ -0,0 +1 @@
+Not an integer.

tests/stan/addition-023.stdout

@@ -0,0 +1 @@
+

tests/stan/bool-000.joy

@@ -0,0 +1 @@
+true bool

tests/stan/bool-000.stdout

@@ -0,0 +1 @@
+true

tests/stan/bool-001.joy

@@ -0,0 +1 @@
+false bool

tests/stan/bool-001.stdout

@@ -0,0 +1 @@
+false

tests/stan/bool-002.joy

@@ -0,0 +1 @@
+-1 bool 0 bool 1 bool

tests/stan/bool-002.stdout

@@ -0,0 +1 @@
+true false true

tests/stan/bool-003.joy

@@ -0,0 +1 @@
+[] bool [[]] bool

tests/stan/bool-003.stdout

@@ -0,0 +1 @@
+false true

tests/stan/boolean-xor-000.joy

@@ -0,0 +1,4 @@
+true false _\/_
+false true _\/_
+false false _\/_
+true true _\/_

tests/stan/boolean-xor-000.stdout

@@ -0,0 +1,4 @@
+true
+true true
+true true false
+true true false false

tests/stan/boolean-xor-001.joy

@@ -0,0 +1,2 @@
+23 false _\/_
+false []  _\/_

tests/stan/boolean-xor-001.stderr

@@ -0,0 +1,2 @@
+Not a Boolean value.
+Not a Boolean value.

tests/stan/boolean-xor-001.stdout

@@ -0,0 +1,2 @@
+
+

tests/stan/branch-000.joy

@@ -0,0 +1 @@
+true [1] [2] branch

tests/stan/branch-000.stdout

@@ -0,0 +1 @@
+2

tests/stan/branch-001.joy

@@ -0,0 +1 @@
+false [1] [2] branch

tests/stan/branch-001.stdout

@@ -0,0 +1 @@
+1

tests/stan/clear-000.joy

@@ -0,0 +1 @@
+1 2 3 clear 4 5 6

tests/stan/clear-000.stdout

@@ -0,0 +1 @@
+4 5 6

tests/stan/comparision-eq-000.joy

@@ -0,0 +1 @@
+1 1 = 1 2 = 2 1 = -1 1 =

tests/stan/comparision-eq-000.stdout

@@ -0,0 +1 @@
+true false false false

tests/stan/comparision-ge-000.joy

@@ -0,0 +1 @@
+1 1 >= 1 2 >= 2 1 >= -1 1 >=

tests/stan/comparision-ge-000.stdout

@@ -0,0 +1 @@
+true false true false

tests/stan/comparision-gt-000.joy

@@ -0,0 +1 @@
+1 1 > 1 2 > 2 1 > -1 1 >

tests/stan/comparision-gt-000.stdout

@@ -0,0 +1 @@
+false false true false

tests/stan/comparision-le-000.joy

@@ -0,0 +1 @@
+1 1 <= 1 2 <= 2 1 <= -1 1 <=

tests/stan/comparision-le-000.stdout

@@ -0,0 +1 @@
+true true false true

tests/stan/comparision-lt-000.joy

@@ -0,0 +1 @@
+1 1 < 1 2 < 2 1 < -1 1 <

tests/stan/comparision-lt-000.stdout

@@ -0,0 +1 @@
+false true false true

tests/stan/comparision-ne-000.joy

@@ -0,0 +1 @@
+1 1 <> 1 2 <> 2 1 <> -1 1 <>

tests/stan/comparision-ne-000.stdout

@@ -0,0 +1 @@
+false true true true

tests/stan/concat-000.joy

@@ -0,0 +1 @@
+[1 2 3] [4 5 6] concat

tests/stan/concat-000.stdout

@@ -0,0 +1 @@
+[1 2 3 4 5 6]

tests/stan/cons-000.joy

@@ -0,0 +1 @@
+23 [18] cons

tests/stan/cons-000.stdout

@@ -0,0 +1 @@
+[23 18]

tests/stan/cons-010.joy

@@ -0,0 +1 @@
+1 2 cons

tests/stan/cons-010.stderr

@@ -0,0 +1 @@
+Not a list.

tests/stan/cons-010.stdout

@@ -0,0 +1 @@
+

tests/stan/cons-011.joy

@@ -0,0 +1 @@
+[] cons

tests/stan/cons-011.stderr

@@ -0,0 +1 @@
+Not enough values on stack.

tests/stan/cons-011.stdout

@@ -0,0 +1 @@
+

tests/stan/cons-012.joy

@@ -0,0 +1 @@
+23 cons

tests/stan/cons-012.stderr

@@ -0,0 +1 @@
+Not a list.

tests/stan/cons-012.stdout

@@ -0,0 +1 @@
+

tests/stan/dip-000.joy

@@ -0,0 +1 @@
+1 3 [2] dip

tests/stan/dip-000.stdout

@@ -0,0 +1 @@
+1 2 3

tests/stan/dip-001.joy

@@ -0,0 +1 @@
+1 2 [dup] dip

tests/stan/dip-001.stdout

@@ -0,0 +1 @@
+1 1 2

tests/stan/dip-002.joy

@@ -0,0 +1 @@
+1 2 [] dip

tests/stan/dip-002.stdout

@@ -0,0 +1 @@
+1 2

tests/stan/dip-003.joy

@@ -0,0 +1 @@
+[23] dip

tests/stan/dip-003.stderr

@@ -0,0 +1 @@
+Not enough values on stack.

tests/stan/dip-003.stdout

@@ -0,0 +1 @@
+

tests/stan/dip-004.joy

@@ -0,0 +1 @@
+dip

tests/stan/dip-004.stderr

@@ -0,0 +1 @@
+Not enough values on stack.

tests/stan/dip-004.stdout

@@ -0,0 +1 @@
+

tests/stan/division-000.joy

@@ -0,0 +1 @@
+10 2 /

tests/stan/division-000.stdout

@@ -0,0 +1 @@
+5

tests/stan/division-010.joy

@@ -0,0 +1 @@
+10 -2 /