Adjusting testing cases for current state of OCCT
[occt.git] / tests / boolean / bsection / N7
CommitLineData
4e57c75e 1if { [array get env os_type] != "" } {
2 set os $env(os_type)
3}
4if { [string compare $os "windows"] == 0 } {
5 puts "TODO #22911 ALL: An exception was caught"
6 puts "TODO #22911 ALL: \\*\\* Exception \\*\\*.*"
7 puts "TODO #22911 ALL: TEST INCOMPLETE"
4e57c75e 8}
9
40093367 10cpulimit 900
11
8418c617 12restore [locate_data_file lh3d_ro1.brep] a
40093367 13isos a 0
14compound result
15set i 1
16repeat 199 {
17plane p_$i 0 $i*100 0 0 1 0
18mkface f_$i p_$i
4e57c75e 19bsection s_$i a f_$i
40093367 20compound result s_$i result
21display s_$i
22clear f_$i
23clear p_$i
24set dist [expr $i * 100]
25puts "OK Section:$dist"
26incr i
27}
28
29set length 4.36836e+07