mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
5d1833ef09
Call to locate_data_file moved from catch statement in test scripts to ensure that missing data file is correctly reported as SKIPPED status of the test.
TODO statements with single word 'Exception' made bit more specific ("**" added).
Test bugs/caf/buc60846 removed as it is aimed to test inexistent component (Sketcher).
TODO removed in test bugs/fclasses/bug22611 -- the missing command must be added or test removed.
Test bugs/step/bug133_4 removed as duplicate of bugs/step/bug133_2.
Command vinit added in test bugs/vis/bug23226 to ensure that viewer is properly initialized before command vvbo, and relevant TODO statements removed.
Redundant FAILED patterns removed in parse.rules in groups perf and v3d as they break appropriate handling of missing data files.
Added QA command OCC22611 to improve test case bugs/fclasses/bug22611.
Modified test case buc60898 (shape was renamed) and moved to folder moddata_3 to avoid checkshape in end file.
Test case vis/bug23226 was modified using function checkcolor.
93 lines
2.1 KiB
Plaintext
Executable File
93 lines
2.1 KiB
Plaintext
Executable File
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: 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
|