[occt.git] / tests / bugs / iges / bug23377

# Original bug : 23377
# Date : 12 Aug 2012

set check_nb 7
igesbrep [locate_data_file OCC23377-Input.igs] result *
regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
if { ${nb} != ${check_nb} } {
    puts "Error : The Number of Rational BSpline surfaces is wrong!"
    puts "Error : It's $nb indtead of $check_nb!"
}
puts "Number of Rational BSpline surfaces is $nb"
set 2dviewer 1
Commit	Line	Data
fa920fb1	1	# Original bug : 23377
	2	# Date : 12 Aug 2012
	3
319e4241	4	set check_nb 7
fa920fb1	5	igesbrep [locate_data_file OCC23377-Input.igs] result *
fa920fb1	6	regexp {Number of Rational BSpline surfaces +([-0-9.+eE]+)} [expshape result 1 1] full nb
319e4241	7	if { ${nb} != ${check_nb} } {
	8	puts "Error : The Number of Rational BSpline surfaces is wrong!"
	9	puts "Error : It's $nb indtead of $check_nb!"
	10	}
fa920fb1	11	puts "Number of Rational BSpline surfaces is $nb"
	12	set 2dviewer 1
	13
	14
	15
	16
	17
	18
	19
	20
	21
	22
319e4241	23