gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

version 1.15, 2000/04/27 08:51:33	version 1.21, 2003/01/06 11:18:59
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 72 throw \ if the TOS is not 0, throw an er	Line 72 throw \ if the TOS is not 0, throw an er

\ look for primitives	\ look for primitives

' + look 0= throw ( nt )	' + xt>threaded threaded>name dup 0= throw ( nt )
s" +" find-name <> throw	s" +" find-name <> throw

\ represent	\ represent
Line 167 abort 0 [if]	Line 167 abort 0 [if]
[then]	[then]
( 0 ) throw	( 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