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

puts "============"
puts "OCC24213"
puts "============"
puts ""
######################################################
# bopargcheck complains on sphere
######################################################

psphere s 10

set info [bopargcheck s #F]

if { [regexp "to be valid for BOP" ${info}] != 1 } {
   puts "Error : complain of bopargcheck command is not correct"
} else {
   puts "OK : bopargcheck command work properly"
}
Commit	Line	Data
9d1c5188	1	puts "============"
	2	puts "OCC24213"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# bopargcheck complains on sphere
	7	######################################################
	8
	9	psphere s 10
	10
	11	set info [bopargcheck s #F]
	12
	13	if { [regexp "to be valid for BOP" ${info}] != 1 } {
	14	puts "Error : complain of bopargcheck command is not correct"
	15	} else {
	16	puts "OK : bopargcheck command work properly"
	17	}