--- gforth/test/search.fs 2007/12/31 18:40:26 1.2 +++ gforth/test/search.fs 2010/12/31 18:09:02 1.4 @@ -1,6 +1,6 @@ \ test search order wordset partially -\ Copyright (C) 2007 Free Software Foundation, Inc. +\ Copyright (C) 2007,2010 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -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 }