0027146: Create command checkplatform
[occt.git] / tests / bugs / moddata_2 / bug567
CommitLineData
352ffd73 1puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
4b65fc77 2puts "TODO ?OCC12345 ALL: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
352ffd73 3
4puts "========"
5puts "OCC567"
6puts "========"
7puts ""
8#######################################
9## Can not intersect two Rectangular Trimmed Surfaces .
10#######################################
11
12restore [locate_data_file OCC567a.draw] s1
13restore [locate_data_file OCC567b.draw] s2
14
863f782a 15if { [checkplatform -windows] } {
a7dd5d0f 16 puts "OS = Windows NT"
17 set N_repeat 10
18} else {
19 puts "OS = Linux"
20 set N_repeat 11
21}
22
352ffd73 23if { [catch {intersect i s1 s2 } catch_result] } {
24 puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
25} else {
26 set j 1
a7dd5d0f 27 repeat ${N_repeat} {
352ffd73 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
38trim s1x s1 0 2*pi 0 2*pi/13
39trim s2x s2 0 2*pi 0 2*pi/13
40
41if { [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