0026821: Visualization - define default Rendering Parameters for Interactive Context
[occt.git] / tests / bugs / modalg_2 / bug23008
CommitLineData
809eca9d 1puts "================"
2puts "OCC23008"
3puts "================"
4puts ""
5######################################################################################
6# Too many intersection vertices between line and cylinder
7######################################################################################
8
9set BugNumber OCC23008
10
11restore [locate_data_file bug23008_ez15] b1
12restore [locate_data_file bug23008_fz37] b2
13bop b1 b2
14set info [ bopnews -v ]
15for {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
25puts ""
26set result [lsearch $check_z 1]
27if { ${result} == -1 } {
28 puts "OK ${BugNumber}"
29} else {
30 puts "Faulty ${BugNumber}"
31}
32
33set 3dviewer 0
34