unit-test/lib/lib.t

2 set timeout 60
4 set lib_pid 0
19 	set lib_pid [api_start]
35     global prompt
41 	-re "OK .*$prompt$" { return 1 }
42         -re "ERROR .*$prompt$" { return 0 }
50     global prompt spawn_id test
54 	-re "$prompt$" { return 1}
62     global prompt
68 	-re "OK .*$prompt$"		{ pass "$test"; return 1 }
69 	-re "ERROR .*$prompt$" {
79     global prompt
85 	-re "ERROR .*$code.*$prompt$"	{ pass "$test"; return 1 }
86 	-re "ERROR .*$prompt$"	{ fail "$test: bad failure"; return 0 }
87 	-re "OK .*$prompt$"		{ fail "$test: bad success"; return 0 }
95     global prompt
101 	-re "ERROR .*$prompt$"	{ pass "$test:"; return 1 }
102 	-re "OK .*$prompt$"		{ fail "$test: bad success"; return 0 }
110     global prompt spawn_id test
113 	-re "$prompt$"	{}
122     set ret [cmd [format {
133     set ret [cmd [format {
144     set ret [cmd [format {
155     set ret [cmd [format {
165     set ret [cmd [format {kadm5_delete_policy $lib_handle "%s"} $name]]
175     set ret [cmd [format {
190     set ret [cmd [format {
208    set test $name
229 #	set file $TOP/admin/lib/unit-test/diff-files/$name
243 		timeout {puts "Timeout waiting for prompt" ; close }
262 		set saveErrorCode $errorCode
265 		set saveErrorInfo $errorInfo
269 		set errorCode $saveErrorCode
274 		set errorInfo $saveErrorInfo
286 	default { perror "waiting for kadmin.local prompt"; return 1}
299 	default { perror "waiting for kadmin.local prompt"; return 1 }