aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/tests/test-rega.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/tests/test-rega.frt')
-rw-r--r--amforth-6.5/tests/test-rega.frt41
1 files changed, 0 insertions, 41 deletions
diff --git a/amforth-6.5/tests/test-rega.frt b/amforth-6.5/tests/test-rega.frt
deleted file mode 100644
index 58e06c1..0000000
--- a/amforth-6.5/tests/test-rega.frt
+++ /dev/null
@@ -1,41 +0,0 @@
-\ #requires tester-amforth.frt
-
-TESTING VM Register A
-hex
-
-\ ------------------------------------------------------------------------
-TESTING basic assumtions
-
-variable atest 10 allot
-atest >a
-
-0 constant false
--1 constant true
-
-$55aa constant pattern
-
-
-{ a> atest = -> true }
-{ pattern a! -> }
-\ address must not change
-{ a> atest = -> true }
-{ a@ pattern = -> true }
-\ address must not change
-{ a> atest = -> true }
-
-TESTING address changes.
-{ pattern a!+ -> }
-\ address must increase by 1 cell
-{ a> atest cell+ = -> true }
-
-{ pattern a!- -> }
-\ address must decrease by 1 cell
-{ a> atest = -> true }
-
-{ a@+ pattern = -> true }
-\ address must increase by 1 cell
-{ a> atest cell+ = -> true }
-
-{ a@- pattern = -> true }
-\ address must decrease by 1 cell
-{ a> atest = -> true }