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

puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
puts "TODO OCC12345 ALL: Error : The square 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

decho off
set che [checkshape result]
decho on

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

set square 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty OCC330: Checkshape command works wrongly"
	2	puts "TODO OCC12345 ALL: Error : The square of result shape is"
	3
	4	puts "========================"
	5	puts " OCC330 "
	6	puts "========================"
	7	puts ""
	8	##################################################
	9	## checkshape command consider the shape with incorrect order of tolerance as valid.
	10	##################################################
	11
	12	restore [locate_data_file OCC330.brep] result
	13
	14	decho off
	15	set che [checkshape result]
	16	decho on
	17
	18	if { [regexp {Faulty} $che ] != 1 } {
	19	puts "Faulty OCC330: Checkshape command works wrongly"
	20	} else {
	21	puts "OCC330 OK : Checkshape command works properly"
	22	}
	23
	24	set square 0
	25	set 2dviewer 0