Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug22822
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