[pforth] / fth / t_include.fth

\ Test INCLUDE errors.
\
\ Copyright 2001Phil Burk

include? }T{  t_tools.fth

marker task-t_string.fth

decimal

: F_UNDEF " t_load_undef.fth" ;

test{

T{ F_UNDEF ' $include catch }T{ F_UNDEF -13 }T


}test
Commit	Line	Data
8e9db35f PB	1	\ Test INCLUDE errors.
	2	\
	3	\ Copyright 2001Phil Burk
	4
	5	include? }T{ t_tools.fth
	6
	7	marker task-t_string.fth
	8
	9	decimal
	10
	11	: F_UNDEF " t_load_undef.fth" ;
	12
	13	test{
	14
	15	T{ F_UNDEF ' $include catch }T{ F_UNDEF -13 }T
	16
	17
	18	}test