gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

Diff for /gforth/test/other.fs between versions 1.14 and 1.18

version 1.14, 2000/02/04 14:52:30	version 1.18, 2000/09/23 15:47:12
Line 1	Line 1
\ various tests, especially for bugs that have been fixed	\ various tests, especially for bugs that have been fixed

\ Copyright (C) 1997,1998 Free Software Foundation, Inc.	\ Copyright (C) 1997,1998,2000 Free Software Foundation, Inc.

\ This file is part of Gforth.	\ This file is part of Gforth.

Line 16	Line 16

\ You should have received a copy of the GNU General Public License	\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software	\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

\ combination of marker and locals	\ combination of marker and locals
marker foo1	marker foo1
Line 147 here 1+ head? throw	Line 147 here 1+ head? throw
: foo [compile] exit abort" '[compile] exit' broken" ;	: foo [compile] exit abort" '[compile] exit' broken" ;
foo	foo

	\ restore-input

	: test-restore-input[ ( -- )
	refill 0= abort" refill failed"
	bl word drop
	save-input
	refill 0= abort" refill failed"
	-1 ;

	: ]test-restore-input ( -- )
	drop restore-input abort" restore-input failed" 0 ;

	\ First input is skipped until the "]test-restore-input", then it is
	\ reset to just before "0 [if]"
	test-restore-input[ abort \ these aborts are skipped
	abort 0 [if]
	s" oops" 2drop ]test-restore-input abort
	[then]
	( 0 ) throw

	\ the same test with CRLF newlines
	test-restore-input[ abort \ these aborts are skipped
	abort 0 [if]
	s" oops" 2drop ]test-restore-input abort
	[then]
	( 0 ) throw

\ comments across several lines	\ comments across several lines

( fjklfjlas;d	( fjklfjlas;d

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.14
changed lines
	Added in v.1.18