--- gforth/test/other.fs 2000/04/27 08:51:33 1.15 +++ gforth/test/other.fs 2000/09/23 15:06:11 1.17 @@ -1,6 +1,6 @@ \ 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. @@ -167,6 +167,13 @@ abort 0 [if] [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 ( fjklfjlas;d