gforth/regexp-test.fs - diff

Return to regexp-test.fs CVS log

Up to [gforth] / gforth

version 1.9, 2010/09/04 21:34:23	version 1.10, 2010/09/04 21:39:29
Line 126 s" foofoofoo" ?foos1	Line 126 s" foofoofoo" ?foos1
: test-delnum ( addr u addr' u' -- )	: test-delnum ( addr u addr' u' -- )
2swap delnum 2over 2over str= 0= IF	2swap delnum 2over 2over str= 0= IF
." test-delnum: got '" type ." ', expected '" type ." '"	." test-delnum: got '" type ." ', expected '" type ." '"
THEN ;	ELSE 2drop 2drop THEN ;
s" 0" s" " test-delnum	s" 0" s" " test-delnum
s" 00" s" " test-delnum	s" 00" s" " test-delnum
s" 0a" s" a" test-delnum	s" 0a" s" a" test-delnum