Correction of testing case for issue 24374

[occt.git] / tests / bugs / xde / bug22982

puts "TODO ?OCC11111 ALL: Error on Record"
puts "TODO ?OCC11111 ALL: Error : Colors are not equal"
puts "TODO ?OCC11111 ALL: \\*\\* Exception"
puts "TODO ?OCC11111 ALL: Faulty : colors are not equal."
puts "TODO ?OCC11111 ALL: Tcl Exception"
puts "TODO ?OCC11111 ALL: TEST INCOMPLETE"

pload QAcommands

puts "============"
puts "OCC22982"
puts "============"
puts ""
##################################################################
# Generic color is overriden in STEPCAFControl_Writer::WriteColors
##################################################################

set BugNumber OCC22982
pload DCAF

NewDocument D11 MDTV-XCAF
UndoLimit D11 100

# Open a transaction
NewCommand D11

set fileNameAir [locate_data_file OCC22982-Air.step]

set status 0

if { [catch { ReadStep D11 $fileNameAir } catch_result] } {
  puts "Faulty ${BugNumber} : there is reading problem"
  set status 1
}

XSetColor D11 0:1:1:1 0 0 1
XSetColor D11 0:1:1:1:1 1 0 0
XUnsetColor D11 0:1:1:1:2 s
XUnsetColor D11 0:1:1:1:3 s

set XRedCoords {2 148 179 204}
set XRedCoords [split $XRedCoords " "]
set YRedCoords {177 54 166 78}
set YRedCoords [split $YRedCoords " "]

set XBlueCoords {238 315 406 347 369 204 171 62}
set XBlueCoords [split $XBlueCoords " "]
set YBlueCoords {171 87 188 174 290 286 237 303}
set YBlueCoords [split $YBlueCoords " "]

XShow D11
vfit

for {set i 0} {$i < [llength $XRedCoords]} {incr i} {
    set XCoord [lindex $XRedCoords $i]
    set YCoord [lindex $YRedCoords $i]
    checkcolor $XCoord $YCoord 1 0 0
}

# Close/Open a transaction
NewCommand D11

if { [catch { WriteStep D11 ${imagedir}/${test_image}.step } catch_result] } {
  puts "Faulty ${BugNumber} : there is writing problem"
  set status 1
}

NewDocument D2 MDTV-XCAF
UndoLimit D2 100

# Close/Open a transaction
NewCommand D2

if { [catch { ReadStep D2 ${imagedir}/${test_image}.step } catch_result] } {
  puts "Faulty ${BugNumber} : there is reading problem"
  set status 1
}

XShow D2
vfit 
for {set i 0} {$i < [llength $XBlueCoords]} {incr i} {
    set XCoord [lindex $XBlueCoords $i]
    set YCoord [lindex $YBlueCoords $i]
    checkcolor $XCoord $YCoord 0 0 1
}

if { $status != 0 } {
   puts "Faulty ${BugNumber}"
} else {
  puts "OK ${BugNumber}"
}

set 3dviewer 0