8b3c7251c70f9dba9901fd8e1fa932c8f3e43698
[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 bop b1 b2
14 set info [ bopnews -v ]
15 for {set i 0} {$i <= 100} {incr i} {
16     set word [lsearch $info z$i]
17     if {$word == -1} {
18         lappend check_z 0
19     } else {
20         lappend check_z 1
21     }
22 }
23
24 # Resume
25 puts ""
26 set result [lsearch $check_z 1]
27 if { ${result} == -1 } {
28    puts "OK ${BugNumber}"
29 } else {
30    puts "Faulty ${BugNumber}"
31 }
32
33 set 3dviewer 0
34