Eliminating instability in test cases
[occt.git] / tests / bugs / moddata_2 / bug567
1 puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
2 puts "TODO OCC12345 Windows Linux MacOS: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
3
4 puts "========"
5 puts "OCC567"
6 puts "========"
7 puts ""
8 #######################################
9 ## Can not intersect two Rectangular Trimmed Surfaces . 
10 #######################################
11
12 restore [locate_data_file OCC567a.draw] s1 
13 restore [locate_data_file OCC567b.draw] s2 
14
15 if { [string compare $tcl_platform(platform) "windows"] == 0 }  {
16    puts "OS = Windows NT"
17    set N_repeat 10
18 } else {
19    puts "OS = Linux"
20    set N_repeat 11
21 }
22
23 if { [catch {intersect i s1 s2 } catch_result] } {
24     puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
25 } else {
26    set j 1
27    repeat ${N_repeat} {
28    set err [lindex [whatis i_$j] 5]
29      if { $err != "curve"} {
30        puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"
31        break
32       } else {
33        puts [format "%s ) OCC565 OK: function intersection works with infinite Surfaces" $j]
34               }
35     incr j}
36 }
37
38 trim s1x s1 0 2*pi 0 2*pi/13
39 trim s2x s2 0 2*pi 0 2*pi/13
40
41 if { [catch {intersect result s1x s2x } catch_result] } {
42     puts "Faulty OCC565 exception: function intersection works wrongly with trimmed Surfaces"
43 } else {
44     set nom 0
45     set j 1
46     repeat 11 {
47         set err [lindex [whatis result_$j] 5]
48         if { $err != "curve"} {
49             break
50         } else {
51             set nom [expr $nom + 1]
52         }
53         incr j
54     }
55     if { $nom == 0} {
56         puts "Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
57     } else {
58         puts " OCC565 OK: function intersection works with trimmed Surfaces"
59     }
60 }
61