5 #################################
6 # Command mkshell produces wrong shell
7 #################################
12 catch {mkcurve csh_2 sh_2}
14 if { [llength [dump csh_2]] > 0 } {
15 puts "Error: Command mkshell produces wrong shell"
17 puts "OK: Command mkshell produces good shell"