diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsets/BlueGnu/clone_output.itcl')
| -rw-r--r-- | contrib/bluegnu2.0.3/testsets/BlueGnu/clone_output.itcl | 156 |
1 files changed, 0 insertions, 156 deletions
diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/clone_output.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/clone_output.itcl deleted file mode 100644 index 56ff9cb..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/clone_output.itcl +++ /dev/null @@ -1,156 +0,0 @@ -# -# This test check the BlueGnu command clone_output -# - -verbose "all_flag: >$::BlueGnu::all_flag<" - -BlueGnu_overwrite [namespace current] - -set szCurrent [::BlueGnu::clone_output "namespace: >[namespace current]<"] - -set szSendUser [::BlueGnu::clone_output "send_user: >[info body ::send_user]<"] - -# Checking default messages -# -catch {unset sending} -::BlueGnu::clone_output "Hello there!" -::BlueGnu::clone_output " [array names sending]" -if [catch { - if {$sending(USER) && ([llength [array names sending]] == 1)} { - pass "Default message" - } else { - fail "Default Message: [array names sending]" - } -} szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n sending("])" - perror "Missing sending array elements" -} - -# Checking the PASS type messages -# -foreach szMsg {"PASS: hello there!" "XFAIL: hello there!"} { - catch {unset sending} - ::BlueGnu::clone_output $szMsg - if {$::BlueGnu::all_flag} { - if [catch { - if {$sending(USER) && $sending(LOG) && \ - ([llength [array names sending]] == 2)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } - } szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n \ - sending("])" - perror "Missing sending array elements" - } - } else { - if [catch { - if {$sending(LOG) && ([llength [array names sending]] == 1)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } - } szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n \ - sending("])" - perror "Missing sending array elements" - } - } -} - -# Checking the fail type messages -# -foreach szMsg {"FAIL: Hallo daar!" "XPASS: Hallo daar!" \ - "UNRESOLVED: Hello unresolved!" "UNSUPPORTED: Hello unsupported!" \ - "UNTESTED: not tested!"} { - catch {unset sending} - ::BlueGnu::clone_output $szMsg - if [catch { - if {$sending(USER) && $sending(LOG) && \ - ([llength [array names sending]] == 2)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } - } szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n sending("])" - perror "Missing sending array elements" - } -} - -# Checking ERROR type messages -# -catch {unset sending} -::BlueGnu::clone_output "ERROR: hallo daar!" -if [catch { - if {$sending(LOG) && $sending(ERROR) && \ - ([llength [array names sending]] == 2)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } -} szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n sending("])" - perror "Missing sending array elements" -} - -# Checking WARNING type message -# -foreach szMsg {"WARNING: Hello there!" "NOTE: Hello there!"} { - catch {unset sending} - ::BlueGnu::clone_output $szMsg - if {$::BlueGnu::all_flag} { - if [catch { - if {$sending(ERROR) && $sending(LOG) && \ - ([llength [array names sending]] == 2)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } - } szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n \ - sending("])" - perror "Missing sending array elements" - } - } else { - if [catch { - if {$sending(LOG) && ([llength [array names sending]] == 1)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } - } szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n \ - sending("])" - perror "Missing sending array elements" - } - } -} - -# Checking ******* type messages -# -catch {unset sending} -::BlueGnu::clone_output "******* Ik zie sterretjes!" -if [catch { - if {$sending(USER) && ([llength [array names sending]] == 1)} { - pass "PASS message" - } else { - fail "PASS Message: [array names sending]" - } -} szErrMsg] { - ::BlueGnu::clone_output "####### $szErrMsg\n \ - sending([join [array names sending] ")\n sending("])" - perror "Missing sending array elements" -} - -catch {unset sending} - -BlueGnu_restore
\ No newline at end of file |