[occt.git] / tests / bugs / modalg / bug399

puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
puts "TODO OCC12345 ALL: Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
puts "TODO OCC12345 ALL: Error : The square of result shape is"

puts "========"
puts "OCC399"
puts "========"
puts ""
#########################################
## Checkshape gives wrong result for valid face 
#########################################

restore [locate_data_file OCC399.brep] result

set che [checkshape result]
if { [regexp {Faulty} $che ] == 1 } {
    puts "Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
} else {
    puts "OCC399 OK : Source shape is valid. Command checkshape works properly."
}

set square 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
	2	puts "TODO OCC12345 ALL: Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
	3	puts "TODO OCC12345 ALL: Error : The square of result shape is"
	4
	5	puts "========"
	6	puts "OCC399"
	7	puts "========"
	8	puts ""
	9	#########################################
	10	## Checkshape gives wrong result for valid face
	11	#########################################
	12
	13	restore [locate_data_file OCC399.brep] result
	14
	15	set che [checkshape result]
	16	if { [regexp {Faulty} $che ] == 1 } {
	17	puts "Faulty OCC399: Command checkshape works wrongly: Source shape is invalid but this shape must be OK"
	18	} else {
	19	puts "OCC399 OK : Source shape is valid. Command checkshape works properly."
	20	}
	21
	22	set square 0
	23	set 2dviewer 0