3 \ this code implements IEEE 1275-1994 ch. 7.4.8
5 \ Copyright (C) 2003 Stefan Reinauer
7 \ See the file "COPYING" for further information about
8 \ the copyright and warranty status of this work.
15 : $test ( devname-addr devname-len -- )
16 2dup ." Testing device " type ." : "
18 s" self-test" rot find-method if
21 ." no self-test method."
29 : test ( "device-specifier<cr>"-- )
30 linefeed parse cr $test
36 dup get-package-path $test
43 : test-all ( "{device-specifier}<cr>" -- )
46 linefeed parse find-device
47 ?active-package test-sub-devs