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:
@@ -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"
|
||||
|
@@ -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 {
|
||||
|
@@ -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
|
||||
|
||||
|
Reference in New Issue
Block a user