352ffd73 |
1 | puts "TODO OCC12345 ALL: Faulty OCC909" |
2 | |
3 | pload QAcommands |
4 | |
5 | puts "=======" |
6 | puts "OCC909" |
7 | puts "=======" |
8 | puts "" |
9 | ####################################################### |
10 | ## BRepTools_WireExplorer give different number of edges in dev and FIXOCC40 |
11 | ####################################################### |
12 | |
13 | restore [locate_data_file OCC909_f.rle] f |
14 | restore [locate_data_file OCC909_w.rle] w |
15 | |
16 | if { [ catch { set result [OCC909 w f] } ] } { |
17 | puts "Faulty OCC909" |
18 | } else { |
19 | set count 0 |
20 | regexp {Count = ()} $result full count |
21 | if {$count != 2} { |
22 | puts "Faulty OCC909" |
23 | } else { |
24 | puts "OCC909 OK" |
25 | } |
26 | } |
27 | |