1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00

0025803: Defective tests contaminating current directory

Test cases save results in directory pointed by ${imagedir} Tcl variable. File names are initialized in scripts and passed to DRAW command as argument.
Tests User Guide was updated.

Remarks were corrected
This commit is contained in:
apn
2015-02-19 14:57:12 +03:00
committed by bugmaster
parent 19589673b3
commit 7a7e8cf174
5 changed files with 25 additions and 13 deletions

View File

@@ -8,7 +8,10 @@ puts ""
pload QAcommands
set info [OCC24931]
set FilePath ${imagedir}/bug24931_testdocument.xml
file delete -force ${FilePath}
set info [OCC24931 ${FilePath}]
if { [regexp "OK" $info] != 1 } {
puts "Error: Stack is overflow"

View File

@@ -6,6 +6,12 @@ puts ""
# It is impossible to set material, color and transparency to compound
########################################################################
set FilePath_v1 ${imagedir}/bug2883_2_v1.png
set FilePath_v2 ${imagedir}/bug2883_2_v2.png
file delete -force ${FilePath_v1}
file delete -force ${FilePath_v2}
box b1 0 0 0 1 2 3
box b2 4 0 0 3 1 2
vinit drv1/v1/v1
@@ -18,10 +24,10 @@ vdisplay b1 b2
vfit
vsetcolor b1 RED
vactivate drv1/v1/v1
vdump v1.png
vdump ${FilePath_v1}
vactivate drv1/v2/v1
vdump v2.png
set info [diffimage v1.png v2.png 0 0 0]
vdump ${FilePath_v2}
set info [diffimage ${FilePath_v1} ${FilePath_v2} 0 0 0]
if { $info != 0 } {
puts "Error: images v1 and v2 are different"
} else {

View File

@@ -8,7 +8,10 @@ puts ""
pload QAcommands
set info [OCC23951]
set FilePath ${imagedir}/bug23951_test_box.step
file delete -force ${FilePath}
set info [OCC23951 ${FilePath}]
if { [regexp "Write Done" $info] != 1 } {
puts "Error: file was not written"
@@ -16,7 +19,7 @@ if { [regexp "Write Done" $info] != 1 } {
puts "OK: file was written"
}
stepread test_box.step a *
stepread ${FilePath} a *
axo
fit