1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
apn 319e4241ee 0023410: QA commands don't work properly in new testing system
Comment adding command rename. Add QA test case.
Adjusting bugs test group
2012-09-06 14:24:05 +04:00

27 lines
452 B
Plaintext
Executable File

if { [isdraw result] } {
if { [info exists 2dviewer] } {
clear
smallview
donly result
fit
xwd $imagedir/${test_image}.gif
}
if { [info exists 3dviewer] } {
vinit
vclear
vdisplay result
vsetdispmode 1
vfit
vdump $imagedir/${test_image}.gif
}
if { [info exist only_xwd] } {
xwd $imagedir/${test_image}.gif
}
#} else {
# puts "Error : The command can not be build."
#}
# to end a test script
puts "TEST COMPLETED"