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