--- gforth/test/search.fs 2007/12/31 18:40:26 1.2 +++ gforth/test/search.fs 2010/09/01 16:52:12 1.3 @@ -19,6 +19,7 @@ require ./tester.fs +testing search order wordset decimal : test-set-order0 ( c-addr u -- n ) @@ -31,7 +32,6 @@ decimal nip nip then >r set-order r> ; - { s" order" test-set-order0 -> -13 } { s" 5e" test-set-order0 -> 0 5e } { s" root +" test-set-order1 -> -13 }