mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
191082ac71
Use NCollection_Map instead of instantiation of TCollection_Map Test-cases for issue #25344 Correct error in test script: the shape variable assigned by the command 'restore' must not be referred by '$'.
73 lines
1.6 KiB
Plaintext
Executable File
73 lines
1.6 KiB
Plaintext
Executable File
pload TOPTEST
|
|
pload DCAF
|
|
|
|
cpulimit 300
|
|
|
|
set ValidatorCheck 0
|
|
|
|
if { [info exists env(CSF_ValidatorPath)] != 0 } {
|
|
if {[file exists $env(CSF_ValidatorPath)]} {
|
|
set ValidatorCheck 1
|
|
set Validator $env(CSF_ValidatorPath)
|
|
}
|
|
}
|
|
|
|
if { [info exists imagedir] == 0 } {
|
|
set imagedir .
|
|
}
|
|
|
|
if { [info exists test_image ] == 0 } {
|
|
set test_image photo
|
|
}
|
|
|
|
set WorkDirectory $imagedir
|
|
|
|
set os "ALL"
|
|
if {[array get env os_type] != ""} {
|
|
set os $env(os_type)
|
|
}
|
|
|
|
if { [regexp "indows" $os] } {
|
|
if {[regexp -nocase {jdk} $env(PATH)] || [regexp -nocase {java} $env(PATH)]} {
|
|
set Java "java"
|
|
} else {
|
|
puts "Warning: environment variable PATH doesn't contain path to Java"
|
|
}
|
|
} else {
|
|
catch {set Java $env(JAVAHOME)/bin/java}
|
|
}
|
|
|
|
set SchemaFile ""
|
|
|
|
proc SaveToFile { aD aFile } {
|
|
upvar $aD D
|
|
global FileSuffix ValidatorCheck
|
|
catch {[file delete ${aFile}]}
|
|
SaveAs D $aFile
|
|
if { [file exists $aFile] } {
|
|
if { $FileSuffix == "xml" && $ValidatorCheck} {
|
|
ValidateXml $aFile
|
|
} else {
|
|
puts "Validation of XML file by XSD schema is not provided."
|
|
}
|
|
} else {
|
|
puts "Error : There is no ${aFile} file"
|
|
}
|
|
catch {[file attributes ${aFile} -permissions 0777]}
|
|
}
|
|
|
|
proc ValidateXml { aFile } {
|
|
global Validator Java SchemaFile
|
|
if { ![info exists Java] } {
|
|
puts "Error : Java is not exists"
|
|
return
|
|
}
|
|
set isValidInfo ""
|
|
set ValCommand "exec $Java -jar $Validator $SchemaFile ${aFile}"
|
|
set isValid [catch {set isValidInfo [eval $ValCommand]}]
|
|
puts $isValidInfo
|
|
if { ![regexp "the document is valid" ${isValidInfo}] } {
|
|
puts "Error : File is not valid"
|
|
}
|
|
}
|