Add basic test

3 files changed, 35 insertions, 0 deletions

diff --git a/README.org b/README.org
new file mode 100644
index 0000000..83623d7
--- /dev/null
+++ b/README.org
@@ -0,0 +1,3 @@
+Run tests with:
+
+: runtest --tool jlox --srcdir testsuite
diff --git a/jlox b/jlox
new file mode 100755
index 0000000..4ef4503
--- /dev/null
+++ b/jlox
@@ -0,0 +1,3 @@
+#!/usr/bin/env sh
+
+/usr/bin/java -jar src/_build/com/craftinginterpreters/lox/Lox.jar
diff --git a/testsuite/jlox.tests/tests.exp b/testsuite/jlox.tests/tests.exp
new file mode 100644
index 0000000..9b9f620
--- /dev/null
+++ b/testsuite/jlox.tests/tests.exp
@@ -0,0 +1,29 @@
+set test_name "Printing"
+set command_line "./jlox"
+
+spawn $command_line
+send "print \"Hello, world!\";\n"
+
+expect {
+    "Error at" { fail "$test_name: error: $expect_out(buffer)\n" }
+    "> Hello, world!" { pass "$test_name" }
+    eof { fail "$test_name: Premature end of file: $expect_out(buffer)\n" }
+    timeout { fail "$test_name: timed out\n" }
+}
+
+
+set test_name "Local Functions and Closures"
+
+spawn $command_line
+send "fun makeCounter() { var i = 0; fun count() { i = i + 1; print i; } return count; }
+var counter = makeCounter();
+counter();
+counter();
+"
+
+expect {
+    "Error at" { fail "$test_name: error: $expect_out(buffer)\n" }
+    -re "> 1.*?> 2" { pass "$test_name" }
+    eof { fail "$test_name: Premature end of file: $expect_out(buffer)\n" }
+    timeout { fail "$test_name: timed out\n" }
+}