3510db62 |
1 | puts "REQUIRED All: Info. Faulty shape is found in source shape" |
a967f104 |
2 | puts "============" |
3 | puts "OCC25043" |
4 | puts "============" |
5 | puts "" |
6d368502 |
6 | ############################################################################################################################ |
a967f104 |
7 | ## there is no possibility to know what exactly subshape of source shape has detected problems by BRepAlgoAPI_Check |
6d368502 |
8 | ############################################################################################################################ |
a967f104 |
9 | |
10 | pload QAcommands |
11 | restore [locate_data_file bug25043.brep] a |
3510db62 |
12 | subshape a v 3 |
13 | settolerance a_3 0.0005 |
a967f104 |
14 | |
a967f104 |
15 | set info [OCC25043 a] |
a967f104 |
16 | |
3510db62 |
17 | if { [regexp "Faulty shape is found in source shape" ${info}] == 1 } { |
a967f104 |
18 | puts "OK : Good result" |
3510db62 |
19 | } elseif { [regexp "Problems are not detected" $info] != 1 } { |
a967f104 |
20 | puts "Error : Wrong result" |
21 | } |