61c421bf |
1 | pload QAcommands |
2 | |
3 | puts "================" |
4 | puts "OCC405" |
5 | puts "OCC435" |
6 | puts "SAM1296" |
7 | puts "================" |
8 | puts "" |
9 | |
10 | restore [locate_data_file OCC395-1.brep] e1 |
11 | restore [locate_data_file OCC405-2.brep] e2 |
12 | |
13 | checkshape e1 |
14 | checkshape e2 |
15 | |
16 | OCC405 result e1 e2 |
17 | |
18 | regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full num |
19 | |
20 | if { $num == 2 } { |
21 | puts "OCC405 OK : Result shape is CORRECT !!! " |
22 | } else { |
23 | puts " Faulty OCC405: Result shape is INcorrect !!! " |
24 | } |
25 | |
58cf74e0 |
26 | checkprops result -l 17.5348 |
27 | checkshape result |
5747059b |
28 | checkview -display result -2d -path ${imagedir}/${test_image}.png |