08-interp.tcl at [a3c60c5f6b]

File build/test/tests/08-interp.tcl artifact 63098e1805 part of check-in a3c60c5f6b


#! /usr/bin/env tclsh

set newinterp [interp create]

if {[string match "interp*" $newinterp]} {
	exit 0
}

puts "Interp Name: $newinterp"
puts "Expected:    interp*"

exit 1