You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
876 B
34 lines
876 B
package require tcltest |
|
|
|
package require punk::ns |
|
|
|
namespace eval ::testspace { |
|
namespace import ::tcltest::* |
|
variable common { |
|
set result "" |
|
} |
|
|
|
|
|
test bench_clean {test using bench package clean result for: <executable> << exit}\ |
|
-setup $common -body { |
|
package require bench |
|
|
|
set thisexe [file normalize [info nameofexecutable]] |
|
set tail [file tail $thisexe] |
|
set location [file dirname $thisexe] |
|
set located [bench::locate $tail $location] |
|
if {$located ne ""} { |
|
set located [file normalize $located] |
|
} |
|
|
|
lappend result [string equal $located $thisexe] |
|
|
|
}\ |
|
-cleanup { |
|
}\ |
|
-result [list\ |
|
1\ |
|
] |
|
|
|
} |
|
tcltest::cleanupTests ;#needed to produce test summary. |