diff options
Diffstat (limited to 'contrib/bluegnu2.0.3/testsets')
19 files changed, 0 insertions, 1001 deletions
diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/appendQueue.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/appendQueue.itcl deleted file mode 100644 index fcdf33d..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/appendQueue.itcl +++ /dev/null @@ -1,9 +0,0 @@ -# -# Test script for appendQueue command -# - -#appendQueue [list namespaceVariables.itcl namespaceVariables.itcl \ - namespaceVariables.itcl] "arg1 arg2 arg3" append - -appendQueue [list namespaceVariables.itcl namespaceVariables.itcl \ - namespaceVariables.itcl] 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 diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl deleted file mode 100644 index 9f629e9..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/locateFile.itcl +++ /dev/null @@ -1,46 +0,0 @@ -# -# Unit test for command: locateFile -# - -note "[locateFile A.itcl]" - - -if {[regexp {verbose.itcl$} [locateFile verbose.itcl]]} { - pass "Found verbose.itcl as >[locateFile verbose.itcl]<" -} else { - fail "Couldn't find verbose.itcl" -} -if {[regexp {lib/bug.exp$} [locateFile bug.exp lib]]} { - pass "Found bug.exp as >[locateFile bug.exp lib]<" -} else { - fail "Couldn't find bug.exp" -} -if {[regexp {testsuite/T/test_004.exp$} \ - [locateFile test_004.exp testsuite/T]]} { - pass "Found test_004.exp as >[locateFile test_004.exp testsuite/T]<" -} else { - fail "Couldn't find test_004.exp as\ - >\[locateFile test_004.exp testsuite/T\]<" -} -if {[regexp {testsuite/T/test_004.exp$} \ - [locateFile test_004.exp testsuite]]} { - pass "Found test_004.exp as >[locateFile test_004.exp testsuite]<" -} else { - fail "Couldn't find test_004.exp as\ - >\[locateFile test_004.exp testsuite\]<" -} -if {[regexp {testsuite/T/test_004.exp$} \ - [locateFile test_004.exp T]]} { - pass "Found test_004.exp as >[locateFile test_004.exp T]<" -} else { - fail "Couldn't find test_004.exp as\ - >\[locateFile test_004.exp T\]<" -} -if {[regexp {testsuite/T/test_004.exp$} \ - [locateFile test_004.exp]]} { - pass "Found test_004.exp as >[locateFile test_004.exp]<" -} else { - fail "Couldn't find test_004.exp as\ - >\[locateFile test_004.exp testsuite\]<" -} - diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl deleted file mode 100644 index c1143dc..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/namespaceVariables.itcl +++ /dev/null @@ -1,36 +0,0 @@ -# -# This test script prints the namespace variables -# pass the the test script when available varibale matches the expected -# and visa versa -# - -proc checkVars {} { - set lExpectedVars [list \ - bTestCase \ - iArgs lArgs \ - szID szName \ - szScriptName szTool \ - szTestCase szTestCaseID szTestCaseArgs \ - ] - set lVars [uplevel info vars] - note "Available Variable:" - foreach v [lsort $lVars] { - if {[lsearch [info globals] $v] < 0} { - note "[format %15s $v] = >[uplevel set $v]<" - if {[lsearch $lExpectedVars $v] >= 0} { - pass "Available variable >$v< in list of expected" - } else { - fail "Available variable >$v< NOT in list of expected" - } - } - } - foreach v $lExpectedVars { - if {[lsearch $lVars $v] >= 0} { - pass "Expected variable >$v< in list of available" - } else { - fail "Expected variable >$v< NOT in list of available" - } - } -} - -checkVars diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/prependQueue.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/prependQueue.itcl deleted file mode 100644 index 66bf2ab..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/prependQueue.itcl +++ /dev/null @@ -1,6 +0,0 @@ -# -# Test script for prependQueue command -# - -prependQueue [list namespaceVariables.itcl namespaceVariables.itcl \ - namespaceVariables.itcl] arg2 prepend diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/runtest.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/runtest.itcl deleted file mode 100644 index 0768026..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/runtest.itcl +++ /dev/null @@ -1,19 +0,0 @@ -# -# This script is testing the runtest command -# - -#runtest [list A.itcl\[1\]=arg A.itcl\[2\]=arg] -runtest [list namespaceVariables.itcl namespaceVariables.itcl] - -#note "test scripts: >>>>\n[join [parseTest A.itcl A.itcl\[2=x=y\]=arg2 \ - [list A.itcl\[1\] A.itcl]] "\n"]<<<<" -#note "test scripts: >>>>\n[join [appendTestCaseID [appendArguments \ - [parseTest A.itcl A.itcl\[2=x=y\]=arg2 \ - [list A.itcl\[1\] A.itcl]] XYZ=abc] DEF] "\n"]<<<<" - -#note "test scripts: >[appendTestCaseID \ - [list A.itcl\[DEF\]=xyz=100 A.itcl\[GHI\]=xyz=200] =SSN=00101001]<" - -#note "test scripts: >[appendArguments \ - [list A.itcl A.itcl=SSN=001010001 \ - A.itcl\[1\] A.itcl\[2\]=SSN=001010001] BODS=ABC]<"
\ No newline at end of file diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/testNaming.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/testNaming.itcl deleted file mode 100644 index af13995..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/testNaming.itcl +++ /dev/null @@ -1,19 +0,0 @@ -# -# This test script test the commands: -# appendArguments -# appendTestCaseID -# - - -note "[appendTestCaseID A ID]" -note "[appendTestCaseID [list A B C] ID]" -note "[appendTestCaseID A ID=arg1=100]" -note "[appendTestCaseID [list A B C] ID=arg2]" -note "[appendTestCaseID [appendArguments A arg1] ID]" -note "[appendArguments [appendTestCaseID B ID] arg1]" -note "[appendTestCaseID [appendArguments [list A B C] arg1] ID]" -note "[appendArguments [appendTestCaseID [list X Y Z] ID] arg1]" -note "[appendTestCaseID [appendArguments [list A B C] \ - "arg1=1 arg2 arg3=100"] ID]" -note "[appendArguments [appendTestCaseID [list X Y Z] ID] \ - "arg1=1 arg2 arg3=100"]" diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/ts001/A.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/ts001/A.itcl deleted file mode 100644 index b3ac5f9..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/ts001/A.itcl +++ /dev/null @@ -1 +0,0 @@ -note "ts001/A.itcl" diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/ts002/A.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/ts002/A.itcl deleted file mode 100644 index 9d61374..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/ts002/A.itcl +++ /dev/null @@ -1 +0,0 @@ -note "ts002/A.itcl" diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/types.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/types.itcl deleted file mode 100644 index 0911f9c..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/types.itcl +++ /dev/null @@ -1,55 +0,0 @@ -# -*-Tcl-*- -# -# Checking Type definition -# - -verbose "auto_path: >[set auto_path]<" - -verbose [Type A 100] -verbose [set A] -verbose $A -verbose [A value] - -namespace eval TN { - verbose [Type B 200] - verbose [set B] - verbose $B - verbose [B value] - verbose [::itcl::find objects] -} - -verbose [::itcl::find objects] - -namespace eval TN { - verbose [::itcl::find objects] -} - -proc Y {} { - proc YY {} { - puts "in YY" - } - set Tmp 100 - verbose {[Type C 200]} - verbose {[set C]} - verbose {$C} - verbose {[C value]} - verbose {[set C 400]} - verbose {[set C]} - verbose {Locals: >[info locals]<} - verbose {Globals: >[info globals]<} - verbose {Vars: >[info vars]<} - verbose {Commands: >[lsort [split [info commands]]]<} - verbose {[::itcl::find objects]} - verbose {A: >[A value]<} -} - -verbose "################################ Doing Y" -Y -YY -rename Y "" -YY - -verbose {[::itcl::find objects]} - -verbose [Type Z text] -delete object Z diff --git a/contrib/bluegnu2.0.3/testsets/BlueGnu/verbose.itcl b/contrib/bluegnu2.0.3/testsets/BlueGnu/verbose.itcl deleted file mode 100644 index 90d208f..0000000 --- a/contrib/bluegnu2.0.3/testsets/BlueGnu/verbose.itcl +++ /dev/null @@ -1,562 +0,0 @@ -# -# test for verbose levels -# -# - -global verbose - -verbose "verbose level: >$verbose<" 0 - -# Modify output procedures to return instead of doing output -# -uplevel #0 { - rename send_user send_user_saved - rename send_error send_error_saved - rename send_log send_log_saved - proc send_user args { - eval return "\{USER: [join $args]\}" - } - proc send_error args { - eval return "\{ERROR: [join $args]\}" - } - proc send_log args { - eval return "\{LOG: [join $args]\}" - } -} - -# Checkin verbose with out any swicthes -# -foreach level {0 1} { - set szV [verbose "some text" $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose {[set l some text]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } -} - -# checking verbose -- -# -foreach level {0 1} { - set szV [verbose -- "some text" $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose -- {[set l some text]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose -- {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } -} - -# Checking verbose -n (Suppress NL) -# -foreach level {0 1} { - set szV [verbose -n "some text" $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose -n {[set l some text]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } - } - - set szV [verbose -n {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } - } -} - -# checking verbose -log -# -foreach level {0 1} { - set szV [verbose -log "some text" $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } - } - - set szV [verbose -log {[set l some text]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } - } - } - - set szV [verbose -log {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - pass "$szV" - } else { - fail "Expected NL at end of >$szV<" - } - } - } else { - fail "Didn't used send_user" - } - } - } - } -} - -# checking verbose -n -log -# -foreach level {0 1} { - set szV [verbose -n -log "some text" $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } - } - } - - set szV [verbose -log -n {[set l some text]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } else { - fail "Didn't detect ERROR in commands >$szV<" - } - } else { - fail "Didn't used send_user" - } - } - } - } - - set szV [verbose -n -log -- {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, output expected" - } else { - if {[string length $szV] == 0} { - pass "No output expected" - } else { - if {$level > $verbose} { - if [regexp "^LOG:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } else { - if [regexp "^USER:" $szV] { - if [regexp "ERROR:" $szV] { - fail "Did detect ERROR in commands >$szV<" - } else { - if {[string compare \ - [string range $szV end end] "\n"] == 0} { - fail "Didn't expected NL at end of >$szV<" - } else { - pass "$szV" - } - } - } else { - fail "Didn't used send_user" - } - } - } - } -} - -if {$verbose >= 1} { - set szV [verbose -n -BB -log -- {[set l "some text"]} $level] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, ERROR output expected" - } else { - if [regexp "^ERROR:.*illegal argument:" $szV] { - setup_xfail - } - fail "$szV" - } - - set szV [verbose] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, ERROR output expected" - } else { - if [regexp "^ERROR:.*nothing to print$" $szV] { - setup_xfail - } - fail "$szV" - } - - set szV [verbose -n --] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, ERROR output expected" - } else { - if [regexp "^ERROR:.*nothing to print$" $szV] { - setup_xfail - } - fail "$szV" - } - - set szV [verbose -n -- ABC def 100] - if {[string length $szV] == 0 && $level <= $verbose} { - fail "verbose level $level, ERROR output expected >$szV<" - } else { - if [regexp "^ERROR:.*Too many arguments$" $szV] { - setup_xfail - } - fail "$szV" - } -} else { - warning "NO verbose error returns tester, verbose level < 1" -} - -# Restore original procedures -# -uplevel #0 { - rename send_user "" - rename send_error "" - rename send_log "" - rename send_user_saved send_user - rename send_error_saved send_error - rename send_log_saved send_log -} diff --git a/contrib/bluegnu2.0.3/testsets/examples/lib/benchmark.itcl b/contrib/bluegnu2.0.3/testsets/examples/lib/benchmark.itcl deleted file mode 100644 index b8f589c..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/lib/benchmark.itcl +++ /dev/null @@ -1,64 +0,0 @@ -# -# - -namespace eval ::tc002 { - if {[::itcl::find classes Benchmark] != "Benchmark"} { - class Benchmark { - inherit ::BlueGnu::Benchmark - - public constructor {args} { - } - - public method benchmark {benchmarkFunction args} { - verbose {******* ${this}::benchmark\ - $benchmarkFunction $args} - verbose "Length Args is >[llength $args]<" 2 - set bResult 0 - switch -exact $benchmarkFunction { - English { - set bResult 1 - } - Dutch { - set bResult 1 - } - } - if $bResult { - pass "[info class]::benchmark\ - $benchmarkFunction $args" - } else { - fail "[info class]::benchmark\ - $benchmarkFunction $args" - } - return $bResult - } - } - - class English { - inherit ::tc002::Benchmark - - public constructor {args} { - eval ::BlueGnu::Benchmark::constructor $args - ::tc002::Benchmark::constructor - } { - verbose "******* Initialize Priority Benchmark Values" - foreach i [lsort [array names ARG]] { - verbose { ARG($i): >$ARG($i)<} 2 - } - } - } - - class Dutch { - inherit ::tc002::Benchmark - - public constructor {args} { - eval ::BlueGnu::Benchmark::constructor $args - ::tc002::Benchmark::constructor - } { - verbose "******* Initialize Priority Benchmark Values" - foreach i [lsort [array names ARG]] { - verbose { ARG($i): >$ARG($i)<} 2 - } - } - } - } -}
\ No newline at end of file diff --git a/contrib/bluegnu2.0.3/testsets/examples/tc001 b/contrib/bluegnu2.0.3/testsets/examples/tc001 deleted file mode 100644 index bc76f0d..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/tc001 +++ /dev/null @@ -1,3 +0,0 @@ -set MSG "Hello World" -processTestScriptArgs -note $MSG diff --git a/contrib/bluegnu2.0.3/testsets/examples/tc002 b/contrib/bluegnu2.0.3/testsets/examples/tc002 deleted file mode 100644 index 1ec0192..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/tc002 +++ /dev/null @@ -1,3 +0,0 @@ -set MSG "Hello World" -processTestScriptArgs -benchmark $szTestCaseID $MSG diff --git a/contrib/bluegnu2.0.3/testsets/examples/ts_001 b/contrib/bluegnu2.0.3/testsets/examples/ts_001 deleted file mode 100644 index 354941c..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/ts_001 +++ /dev/null @@ -1,2 +0,0 @@ -appendQueue examples/tc002\[English=B\] -appendQueue examples/tc002\[Dutch=B\]={MSG=Hallo Wereld} diff --git a/contrib/bluegnu2.0.3/testsets/examples/ts_002 b/contrib/bluegnu2.0.3/testsets/examples/ts_002 deleted file mode 100644 index ff5ccc0..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/ts_002 +++ /dev/null @@ -1,4 +0,0 @@ -appendQueue [appendTestCaseID \ - [locateFile tc002 examples] English=A] -appendQueue [appendArguments [appendTestCaseID \ - [locateFile tc002 examples] Dutch=A] "{MSG=Hallo Wereld}"] diff --git a/contrib/bluegnu2.0.3/testsets/examples/ts_003 b/contrib/bluegnu2.0.3/testsets/examples/ts_003 deleted file mode 100644 index 146b551..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/ts_003 +++ /dev/null @@ -1,2 +0,0 @@ -appendQueue tc002 {} English=B -appendQueue tc002 {MSG=Hallo Wereld} Dutch=B diff --git a/contrib/bluegnu2.0.3/testsets/examples/versionTcl.itcl b/contrib/bluegnu2.0.3/testsets/examples/versionTcl.itcl deleted file mode 100644 index 94c9b82..0000000 --- a/contrib/bluegnu2.0.3/testsets/examples/versionTcl.itcl +++ /dev/null @@ -1,8 +0,0 @@ -if [doCmd {set tcl_version} errorCode=NONE \ - return=[list [list 1 8.0]] V] { - # code when failure: - # variable tcl_version does not exists or - # does not return 8.0 -} else { - # variable V will contain 8.0 -} diff --git a/contrib/bluegnu2.0.3/testsets/tclIndex b/contrib/bluegnu2.0.3/testsets/tclIndex deleted file mode 100644 index 70fa126..0000000 --- a/contrib/bluegnu2.0.3/testsets/tclIndex +++ /dev/null @@ -1,5 +0,0 @@ -# Tcl autoload index file: each line identifies a Tcl - -::tc002::Benchmark examples/lib/benchmark.itcl -::tc002::English examples/lib/benchmark.itcl -::tc002::Dutch examples/lib/benchmark.itcl |