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.