From 69bb34ce7be12d6189db74f4daae508b5b2fb91d Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 29 Oct 2020 11:51:42 -0400
Subject: [PATCH] Add tests for MOVE* words

---
 tests/all/test_move.fs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 tests/all/test_move.fs

diff --git a/tests/all/test_move.fs b/tests/all/test_move.fs
new file mode 100644
index 0000000..68de2a1
--- /dev/null
+++ b/tests/all/test_move.fs
@@ -0,0 +1,13 @@
+42 C, 43 C, 44 C,
+H@ 3 - H@ 3 MOVE
+H@ C@ 42 #eq H@ 1+ C@ 43 #eq H@ 2+ C@ 44 #eq
+H@ H@ 1+ 3 MOVE ( demonstrate MOVE's problem )
+H@ 1+ C@ 42 #eq H@ 2+ C@ 42 #eq H@ 3 + C@ 42 #eq
+H@ 3 - H@ 3 MOVE
+H@ H@ 1+ 3 MOVE- ( see? better )
+H@ 1+ C@ 42 #eq H@ 2+ C@ 43 #eq H@ 3 + C@ 44 #eq
+
+H@ ( ref )
+H@ 3 - 3 MOVE,
+( ref ) H@ 3 - #eq
+H@ 3 - C@ 42 #eq H@ 2- C@ 43 #eq H@ 1- C@ 44 #eq