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

puts "TODO OCC12345 ALL: Faulty OCC23 : Checkshape command works wrongly"
puts "TODO OCC12345 ALL: Error : The length of result shape is"
puts "================"
puts "OCC23"
puts "================"
puts ""
#####################################################################
## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
#####################################################################

restore [locate_data_file OCC23.brep] sh 

decho off
set che [checkshape sh]
decho on

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

explode sh f
explode sh_2 w

renamevar sh_2_1 result

set length 0
set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "TODO OCC12345 ALL: Faulty OCC23 : Checkshape command works wrongly"
	2	puts "TODO OCC12345 ALL: Error : The length of result shape is"
	3	puts "================"
	4	puts "OCC23"
	5	puts "================"
	6	puts ""
	7	#####################################################################
	8	## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
	9	#####################################################################
	10
	11	restore [locate_data_file OCC23.brep] sh
	12
	13	decho off
	14	set che [checkshape sh]
	15	decho on
	16
	17	if { [regexp {Faulty} $che] == 1 } {
	18	puts "Faulty OCC23 : Checkshape command works wrongly"
	19	} else {
	20	puts "OCC23 OK : Checkshape command works properly"
	21	}
	22
	23	explode sh f
	24	explode sh_2 w
	25
	26	renamevar sh_2_1 result
	27
	28	set length 0
	29	set 2dviewer 0