180 proc want_no_output { testname } {  argument
188 	pass "$testname"
191 	fail "$testname"
196 proc gas_test_old { file as_opts testname } {  argument
198     return [want_no_output $testname]
201 proc gas_test { file as_opts var_opts testname } {  argument
228 	    want_no_output $testname
230 	    want_no_output "$testname ($extra_opts)"
238 proc gas_test_ignore_stdout { file as_opts testname } {  argument
242     want_no_output $testname
245 proc gas_test_error { file as_opts testname } {  argument
254 	pass "$testname"
256 	fail "$testname"
512 	set testname "$subdir/$name"
514 	set testname $opts(name)
516     verbose "Testing $testname"
523 	perror "$testname: bad mix of stderr, error-output, error, and warning test-directives"
524 	unresolved $testname
544 		    unresolved $testname
553 			unresolved $testname
563 	    unresolved $testname
573 	    perror "$testname: mixing skip and not-skip directives is invalid"
574 	    unresolved $testname
593 	    perror "$testname: mixing target and not-target directives is invalid"
594 	    unresolved $testname
605 	    unsupported $testname
612 		unsupported $testname
620 	unsupported $testname
670 		    pass $testname
676 		fail $testname
686 		fail $testname
695 			pass $testname
699 		fail $testname
703 		pass $testname
709 	    fail $testname
721 	untested $testname
752 	fail $testname
768 	fail $testname
773     pass $testname
889 proc run_list_test { name {opts {}} {testname {}} } {  argument
891     if { [string length $testname] == 0 } then {
892 	set testname "[file tail $subdir] $name"
897 	fail $testname
901     pass $testname
908 proc run_list_test_stdin { name {opts {}} {testname {}} } {  argument
910     if { [string length $testname] == 0 } then {
911 	set testname "[file tail $subdir] $name"
916 	fail $testname
920     pass $testname