Lines Matching refs:test

26 ." Access test: "
27 0 value word-test
28 0 value char-test
29 0 value end-test
31 variable var-test
32 create access-test
34 here to word-test
36 here to char-test
38 here to end-test
43 " l,+" access-test la1+ word-test = .passed?
44 " w,+" word-test 2 wa+ char-test = .passed?
45 " c,+" char-test 4 ca+ end-test = .passed?
46 " ,+" end-test cell+ end-test2 = .passed?
47 " c@.1" char-test c@ h# 1 = .passed?
48 " c@.2" char-test char+ c@ h# 2 = .passed?
49 " c@.3" char-test 2 ca+ c@ h# 3 = .passed?
50 " c@.4" char-test 3 ca+ c@ h# 4 = .passed?
51 " w@.1" access-test w@ h# 8000 = .passed?
52 " w@.2" access-test wa1+ w@ h# 4000 = .passed?
53 " w@.3" word-test w@ h# 8000 = .passed?
54 " w@.4" word-test wa1+ w@ h# 4000 = .passed?
55 " w@.5" char-test w@ h# 0102 = .passed?
56 " w@.6" char-test wa1+ w@ h# 0304 = .passed?
57 " <w@" access-test <w@ h# ffff8000 = .passed?
58 " l@.1" access-test l@ h# 80004000 = .passed?
59 " l@.2" word-test l@ h# 80004000 = .passed?
60 " l@.3" char-test l@ h# 01020304 = .passed?
61 " @!.1" h# 5a5aa5a5 var-test ! var-test @ h# 5a5aa5a5 = .passed?
62 " c@c!.1" h# 55 var-test c! var-test c@ h# 55 = .passed?
63 " w@w!.1" h# aa55 var-test w! var-test w@ h# aa55 = .passed?
64 " l@l!.1" h# 5555aaaa var-test l! var-test l@ h# 5555aaaa = .passed?
65 " @!.1" h# aaaa5555 var-test ! var-test @ h# aaaa5555 = .passed?
66 " +!.1" 2 var-test ! 3 var-test +! var-test @ 5 = .passed?
67 " 2!.1" 1 2 access-test 2! access-test @ 2 =
68 access-test cell+ @ 1 = and .passed?
69 " 2@.1" access-test 2@ 2 = swap 1 = and .passed?