mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
b8db9379fe
Added TKOpenGlTest and TKD3DHostTest Draw Harness plugins. TKOpenGlTest is automatically loaded by ViewerTest::ViewerInit(). Commands vgldebug, vvbo, vcaps and vuserdraw have been moved to TKOpenGlTest. New command vglshaders lists GLSL programs defined by OpenGl_GraphicDriver, previously implemented by "vshaderprog -list". Added new command vdriver for graphic driver selection. Removed erroneous code from command vstereo.
67 lines
1.5 KiB
Plaintext
Executable File
67 lines
1.5 KiB
Plaintext
Executable File
pload TOPTEST 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
|
|
|
|
if { [checkplatform -windows] } {
|
|
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"
|
|
}
|
|
}
|