}
    } -result 0
} [namespace current]]

# Helpers for TIP 671 tests for invalid encoding in system API
# Specifically use /tmp for tests because on WSL [temporaryDirectory]
# on NTFS prevents creation of arbitrary byte sequences in names.
testConstraint utf8system [string equal [encoding system] utf-8]
if {[llength [auto_execok bash]]} {
    testConstraint haveBash 1
}

set dir671 /tmp/tip-671-test
proc clean671 {} {
    file delete -force $::dir671

proc test-tip671 {id comment body result args} {
    set setup {
        clean671; # In case left over from manual testing
        set oldEnc [encoding system]
        # The invalid bytes file name assumes utf-8
        encoding system utf-8
    }
    if {[dict exists $args -setup]} {
        append setup "\n[dict get $args -setup]"
        dict unset args -setup
    }
    set cleanup {
        clean671
        encoding system $oldEnc
    }
    if {[dict exists $args -setup]} {
        append setup "\n[dict get $args -setup]"
    if {[dict exists $args -cleanup]} {
        set cleanup "[dict get $args -cleanup]\n$cleanup"
        dict unset args -cleanup
    }
    set constraints {unix haveBash}
    if {[dict exists $args -cleanup]} {
        set cleanup "[dict get $args -cleanup]\n$cleanup"
    if {[dict exists $args -constraints]} {
        lappend constraints {*}[dict get $args -constraints]
        dict unset args -constraints
    }
    test tip671-$id "TIP 671 $comment" \
        -constraints {unix haveBash} \
        -constraints $constraints \
        -setup $setup \
        -cleanup $cleanup \
        -body $body \
        -result $result \
        {*}$args
}

test-tip671 exec "exec" {
    # Tests both program name as well as argument being invalid chars
    set script "#!/bin/sh\necho \$1 | od -t x1\n"
    set exe [mkfile671 $script]
    file attributes $exe -permissions u+x
    exec $exe [file tail $exe]
} {* e8 2e e9 0a*} -match glob

# Tests require the existence of one of the DLLs in the dltest directory.
set dltestDir [file join [file dirname [info nameofexecutable]] dltest]
testConstraint havePkgua [file readable \
                              [file join $dltestDir tcl9pkgua[info sharedlibextension]]]
test-tip671 load "load" {
    set dll [lindex [glob -types f /tmp/tip-671-test/*] 0]
    load $dll Pkgua
    set loaded [info loaded]
    set idx [lsearch -index 1 $loaded Pkgua]
    set result [list [expr {$idx >= 0}]]
    if {$idx >= 0} {
        unload [lindex $loaded $idx 0]
        lappend result [lsearch -index 1 [info loaded] Pkgua]
    }
    set result
} {1 -1} -setup {
    set ext [info sharedlibextension]
    set dltestDir [file join [file dirname [info nameofexecutable]] dltest]
    file mkdir $::dir671
    set shellCmd [string cat "cp " [file join $dltestDir tcl9pkgua$ext] " " [file join $::dir671 {$'\xe8'}] $ext]
    exec {*}[auto_execok bash] -c $shellCmd
} -constraints {
    havePkgua
}


# cleanup
catch {file delete -force C:/globTest}
cd [temporaryDirectory]
file delete -force globTest
cd $oldpwd