02-nameofexe.tcl at [c321bdebc8]

File build/test/tests/02-nameofexe.tcl artifact 08a58cef96 part of check-in c321bdebc8


#! /usr/bin/env tclsh

set outputname [lindex $argv 0]

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