Adding test cases from chl grid
[occt.git] / tests / bugs / xde / bug22982
1 puts "TODO ?OCC11111 ALL: Error on Record"
2 puts "TODO ?OCC11111 ALL: Error : Colors are not equal"
3 puts "TODO ?OCC11111 ALL: Exception"
4 puts "TODO ?OCC11111 ALL: Faulty : colors are not equal."
5 puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"
6
7 pload QAcommands
8
9 puts "============"
10 puts "OCC22982"
11 puts "============"
12 puts ""
13 ##################################################################
14 # Generic color is overriden in STEPCAFControl_Writer::WriteColors
15 ##################################################################
16
17 set BugNumber OCC22982
18 pload DCAF
19
20 NewDocument D11 MDTV-XCAF
21 UndoLimit D11 100
22
23 # Open a transaction
24 NewCommand D11
25
26 set fileNameAir [locate_data_file OCC22982-Air.step]
27
28 set status 0
29
30 if { [catch { ReadStep D11 $fileNameAir } catch_result] } {
31   puts "Faulty ${BugNumber} : there is reading problem"
32   set status 1
33 }
34
35 XSetColor D11 0:1:1:1 0 0 1
36 XSetColor D11 0:1:1:1:1 1 0 0
37 XUnsetColor D11 0:1:1:1:2 s
38 XUnsetColor D11 0:1:1:1:3 s
39
40 set XRedCoords {2 148 179 204}
41 set XRedCoords [split $XRedCoords " "]
42 set YRedCoords {177 54 166 78}
43 set YRedCoords [split $YRedCoords " "]
44
45 set XBlueCoords {238 315 406 347 369 204 171 62}
46 set XBlueCoords [split $XBlueCoords " "]
47 set YBlueCoords {171 87 188 174 290 286 237 303}
48 set YBlueCoords [split $YBlueCoords " "]
49
50 XShow D11
51 vfit
52
53 for {set i 0} {$i < [llength $XRedCoords]} {incr i} {
54     set XCoord [lindex $XRedCoords $i]
55     set YCoord [lindex $YRedCoords $i]
56     checkcolor $XCoord $YCoord 1 0 0
57 }
58
59 # Close/Open a transaction
60 NewCommand D11
61
62 if { [catch { WriteStep D11 ${imagedir}/${test_image}.step } catch_result] } {
63   puts "Faulty ${BugNumber} : there is writing problem"
64   set status 1
65 }
66
67 NewDocument D2 MDTV-XCAF
68 UndoLimit D2 100
69
70 # Close/Open a transaction
71 NewCommand D2
72
73 if { [catch { ReadStep D2 ${imagedir}/${test_image}.step } catch_result] } {
74   puts "Faulty ${BugNumber} : there is reading problem"
75   set status 1
76 }
77
78 XShow D2
79 vfit 
80 for {set i 0} {$i < [llength $XBlueCoords]} {incr i} {
81     set XCoord [lindex $XBlueCoords $i]
82     set YCoord [lindex $YBlueCoords $i]
83     checkcolor $XCoord $YCoord 0 0 1
84 }
85
86 if { $status != 0 } {
87    puts "Faulty ${BugNumber}"
88 } else {
89   puts "OK ${BugNumber}"
90 }
91
92 set 3dviewer 0