[occt.git] / tests / bugs / xde / bug22822

puts "================"
puts "OCC22822"
puts "================"
puts ""
######################################################################################
# Skipping of the first and the last edges of a wire for opened wires
######################################################################################

set BugNumber OCC22822

restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result

set aList [checkselfintersection result]

if { [regexp {A self-intersecting wire.} $aList] } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

set length 579.551
set 3dviewer 0
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC22822"
	3	puts "================"
	4	puts ""
	5	######################################################################################
	6	# Skipping of the first and the last edges of a wire for opened wires
	7	######################################################################################
	8
	9	set BugNumber OCC22822
	10
	11	restore [locate_data_file OCC22822-selfIntersectingOpenWire.brep] result
	12
	13	set aList [checkselfintersection result]
	14
	15	if { [regexp {A self-intersecting wire.} $aList] } {
	16	puts "OK ${BugNumber}"
	17	} else {
	18	puts "Faulty ${BugNumber}"
	19	}
	20
	21	set length 579.551
	22	set 3dviewer 0