aboutsummaryrefslogtreecommitdiffstats
path: root/tests/define-mult.forth
diff options
context:
space:
mode:
authordan <[email protected]>2023-05-29 10:54:33 -0400
committerdan <[email protected]>2023-05-29 10:54:33 -0400
commit8151ce5ffec4283a3bc1eeea52b8f9b17cb5d069 (patch)
tree6acc9920cc286346952d5a14a9111722dc8aaee9 /tests/define-mult.forth
parent1cc9bd9d82f970aba524ff57d9b67e9efac47ce9 (diff)
downloadforth-8151ce5ffec4283a3bc1eeea52b8f9b17cb5d069.tar.gz
forth-8151ce5ffec4283a3bc1eeea52b8f9b17cb5d069.tar.bz2
forth-8151ce5ffec4283a3bc1eeea52b8f9b17cb5d069.zip
tests: add initial tests and test runner script
Diffstat (limited to 'tests/define-mult.forth')
-rw-r--r--tests/define-mult.forth6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/define-mult.forth b/tests/define-mult.forth
new file mode 100644
index 0000000..5b6f798
--- /dev/null
+++ b/tests/define-mult.forth
@@ -0,0 +1,6 @@
+INPUT
+: multrec over if rot swap over + rot 1 - swap multrec then ;
+: mult 0 multrec ;
+6 8 mult .
+OUTPUT
+48