809eca9d |
1 | puts "================" |
2 | puts "OCC23089" |
3 | puts "================" |
4 | puts "" |
5 | ########################################################################################## |
6 | # Wrong result done by solid classifier algorithm |
7 | ########################################################################################## |
8 | |
9 | set BugNumber OCC23089 |
10 | |
11 | restore [locate_data_file bug23088_Pipe_1.brep] b2 |
12 | restore [locate_data_file bug23089_px.draw] px |
13 | set info [ bclassify b2 px ] |
14 | set word1 [string compare [lindex ${info} end] "shape"] |
15 | set word2 [string compare [lindex ${info} end-1] "IN"] |
16 | set word3 [string compare [lindex ${info} end-2] "is"] |
17 | set word4 [string compare [lindex ${info} end-3] "point"] |
18 | set word5 [string compare [lindex ${info} end-4] "The"] |
19 | |
20 | # Resume |
21 | puts "" |
22 | if { ${word1} == 0 && ${word2} == 0 && ${word3} == 0 && ${word4} == 0 && ${word5} == 0 } { |
23 | puts "OK ${BugNumber}" |
24 | } else { |
25 | puts "Faulty ${BugNumber}" |
26 | } |
27 | set 3dviewer 0 |