File build/test/tests/08-interp.tcl artifact 63098e1805 part of check-in 0.6.0
#! /usr/bin/env tclsh set newinterp [interp create] if {[string match "interp*" $newinterp]} { exit 0 } puts "Interp Name: $newinterp" puts "Expected: interp*" exit 1
#! /usr/bin/env tclsh set newinterp [interp create] if {[string match "interp*" $newinterp]} { exit 0 } puts "Interp Name: $newinterp" puts "Expected: interp*" exit 1