File build/test/tests/02-nameofexe.tcl artifact e69ba495b8 part of check-in 9481ffeac5
#! /usr/bin/env tclsh set outputname [lindex $argv 0] set buildflags [split [lindex $argv 1] -] # If we built a KitDLL, the executable name will be {kitname}-tclsh if {[lsearch -exact $buildflags "kitdll"] != -1} { set outputname "${outputname}-tclsh" } if {[info nameofexecutable] == $outputname} { exit 0 } # Under Wine, the drive letter is added if {[info nameofexecutable] == "Z:$outputname"} { exit 0 } puts "Info NameOfExe: [info nameofexecutable]" puts "Expected: $outputname" exit 1