0026855: Draw commands to debug Boolean Operations Algorithm
[occt.git] / tests / bugs / modalg_2 / bug23008
1 puts "================"
2 puts "OCC23008"
3 puts "================"
4 puts ""
5 ######################################################################################
6 # Too many intersection vertices between line and cylinder
7 ######################################################################################
8
9 set BugNumber OCC23008
10
11 restore [locate_data_file bug23008_ez15] b1 
12 restore [locate_data_file bug23008_fz37] b2 
13 bclearobjects; bcleartools
14 baddobjects b1; baddtools b2
15 bfillds
16 set info [ bopnews v ]
17 for {set i 0} {$i <= 100} {incr i} {
18     set word [lsearch $info z$i]
19     if {$word == -1} {
20         lappend check_z 0
21     } else {
22         lappend check_z 1
23     }
24 }
25
26 # Resume
27 puts ""
28 set result [lsearch $check_z 1]
29 if { ${result} == -1 } {
30    puts "OK ${BugNumber}"
31 } else {
32    puts "Faulty ${BugNumber}"
33 }
34
35 set 3dviewer 0
36