From 01f5d30b7931af9c612c58c21264d7d73e5075de Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Sat, 3 Jun 2023 18:31:02 -0400
Subject: tests: add do loop tests

---
 tests/do-loop-nested.forth | 20 ++++++++++++++++++++
 tests/do-loop.forth        | 14 ++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100644 tests/do-loop-nested.forth
 create mode 100644 tests/do-loop.forth

(limited to 'tests')

diff --git a/tests/do-loop-nested.forth b/tests/do-loop-nested.forth
new file mode 100644
index 0000000..00cf68a
--- /dev/null
+++ b/tests/do-loop-nested.forth
@@ -0,0 +1,20 @@
+INPUT
+: timestables 5 1  do i 5 1 do dup i * .  loop loop drop ;
+timestables
+OUTPUT
+1
+2
+3
+4
+2
+4
+6
+8
+3
+6
+9
+12
+4
+8
+12
+16
diff --git a/tests/do-loop.forth b/tests/do-loop.forth
new file mode 100644
index 0000000..4bf49b2
--- /dev/null
+++ b/tests/do-loop.forth
@@ -0,0 +1,14 @@
+INPUT
+: decade  10 0 do  i .  loop ;
+decade
+OUTPUT
+0
+1
+2
+3
+4
+5
+6
+7
+8
+9 
-- 
cgit v1.2.3