Restructure Makefile to add automated tests.

[jonesforth.git] / test_exception.f

diff --git a/test_exception.f b/test_exception.f
new file mode 100644 (file)
index 0000000..e8f57d5
--- /dev/null
+++ b/test_exception.f
@@ -0,0 +1,13 @@
+( -*- text -*- )
+
+: TEST4 PRINT-STACK-TRACE THROW ;
+
+: TEST3 0 TEST4 26 TEST4 ;
+
+: TEST2
+       ['] TEST3 CATCH
+       ?DUP IF ." TEST3 threw exception " . CR THEN
+       TEST3
+;
+
+: TEST TEST2 ;