gforth/test/search.fs - diff

Return to search.fs CVS log

Up to [gforth] / gforth / test

version 1.2, 2007/12/31 18:40:26	version 1.3, 2010/09/01 16:52:12
Line 19	Line 19

require ./tester.fs	require ./tester.fs

	testing search order wordset
decimal	decimal

: test-set-order0 ( c-addr u -- n )	: test-set-order0 ( c-addr u -- n )
Line 31 decimal	Line 32 decimal
nip nip then	nip nip then
>r set-order r> ;	>r set-order r> ;


{ s" order" test-set-order0 -> -13 }	{ s" order" test-set-order0 -> -13 }
{ s" 5e" test-set-order0 -> 0 5e }	{ s" 5e" test-set-order0 -> 0 5e }
{ s" root +" test-set-order1 -> -13 }	{ s" root +" test-set-order1 -> -13 }