[occt.git] / tests / bugs / modalg_5 / bug25591

puts "============"
puts "OCC25591"
puts "============"
puts ""
#################################
# Command mkshell produces wrong shell
#################################

sphere surf 100
mkshell sh surf 1 
explode sh e
catch {mkcurve csh_2 sh_2}

if { [llength [dump csh_2]] > 0 } {
  puts "Error: Command mkshell produces wrong shell"
} else {
  puts "OK: Command mkshell produces good shell"
}
Commit	Line	Data
b7d23870	1	puts "============"
	2	puts "OCC25591"
	3	puts "============"
	4	puts ""
	5	#################################
	6	# Command mkshell produces wrong shell
	7	#################################
	8
	9	sphere surf 100
	10	mkshell sh surf 1
	11	explode sh e
	12	catch {mkcurve csh_2 sh_2}
	13
	14	if { [llength [dump csh_2]] > 0 } {
	15	puts "Error: Command mkshell produces wrong shell"
	16	} else {
	17	puts "OK: Command mkshell produces good shell"
	18	}