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 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 tests/do-loop-nested.forth

(limited to 'tests/do-loop-nested.forth')

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
-- 
cgit v1.2.3