[pforth] / fth / t_include.fth

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