[occt.git] / tests / bugs / modalg_2 / bug330

# TODOs statements should be replaced by REQUIRED after bug fixing.
puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
puts "TODO OCC12345 ALL: Error : The area of result shape is"

puts "========================"
puts " OCC330 "
puts "========================"
puts ""
##################################################
## checkshape command consider the shape with incorrect order of tolerance as valid.
##################################################

restore [locate_data_file OCC330.brep] result

set che [checkshape result]

if { [regexp {Faulty} $che ] != 1 } {
    puts "Faulty OCC330: Checkshape command works wrongly"
} else {
    puts "OCC330 OK : Checkshape command works properly"
}

checkprops result -s 0 
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
6d368502	1	# TODOs statements should be replaced by REQUIRED after bug fixing.
a87752f3	2	puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
58cf74e0	3	puts "TODO OCC12345 ALL: Error : The area of result shape is"
a87752f3	4
	5	puts "========================"
	6	puts " OCC330 "
	7	puts "========================"
	8	puts ""
	9	##################################################
	10	## checkshape command consider the shape with incorrect order of tolerance as valid.
	11	##################################################
	12
	13	restore [locate_data_file OCC330.brep] result
	14
a87752f3	15	set che [checkshape result]
a87752f3	16
	17	if { [regexp {Faulty} $che ] != 1 } {
	18	puts "Faulty OCC330: Checkshape command works wrongly"
	19	} else {
	20	puts "OCC330 OK : Checkshape command works properly"
	21	}
	22
58cf74e0	23	checkprops result -s 0
5747059b	24	checkview -display result -2d -path ${imagedir}/${test_image}.png