OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-09-03 14:10:33 +03:00
Code Activity

0023087: Upgrade of the OCCT test system

Browse Source 
Integration of new occt testing system
This commit is contained in:
vtn
2012-07-13 11:42:23 +04:00
parent c983f7228d
commit 400933675f
6678 changed files with 64874 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/DrawResources/DrawDefault
View File

@@ -23,9 +23,11 @@ if { [info exists env(DRAWHOME) ] } {
# load standard DRAW scripts
if { [file isdirectory $dir] } {
foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl} {
foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl} {
if [file exist [file join $dir $script]] {
source [file join $dir $script]
} else {
puts "Warning: could not find command file $script"
}
}
@@ -38,6 +40,17 @@ if { [file isdirectory $dir] } {
wm iconbitmap . -default [file join $dir lamp.ico]
}
}
} else {
puts "Warning: could not find DRAW directory"
}
# set default testing environment
if { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
if { ! [info exists env(CSF_TestScriptsPath)] } {
set env(CSF_TestScriptsPath) $env(CASROOT)/tests
} else {
set env(CSF_TestScriptsPath) $env(CSF_TestScriptsPath)[_path_separator]$env(CASROOT)/tests
}
}
# load application-defined initialization script, which is expected to

2
src/DrawResources/FILES
View File

@@ -5,7 +5,6 @@ srcinc:::CURVES.tcl
srcinc:::Documentation.tcl
srcinc:::DrawTK.tcl
srcinc:::Geometry.tcl
srcinc:::WOKcomplement.tcl
srcinc:::InitEnvironment.tcl
srcinc:::PROFIL.tcl
srcinc:::StandardCommands.tcl
@@ -31,3 +30,4 @@ srcinc:::DrawPlugin
srcinc:::TKTopTest.tcl
srcinc:::dftree.tcl
srcinc:::QARebuildCommands
srcinc:::TestCommands.tcl

4
src/DrawResources/TKTopTest.tcl
View File

@@ -16,5 +16,5 @@
# and conditions governing the rights and limitations under the License.
set Draw_GEOMETRY 1
source $env(CASROOT)/src/DrawResources/CURVES.tcl
source $env(CASROOT)/src/DrawResources/SURFACES.tcl
catch {source $env(CASROOT)/src/DrawResources/CURVES.tcl}
catch {source $env(CASROOT)/src/DrawResources/SURFACES.tcl}

1197
src/DrawResources/TestCommands.tcl Normal file
View File

File diff suppressed because it is too large Load Diff

46
src/DrawResources/WOKcomplement.tcl
View File

@@ -1,46 +0,0 @@
# Copyright (c) 1999-2012 OPEN CASCADE SAS
#
# The content of this file is subject to the Open CASCADE Technology Public
# License Version 6.5 (the "License"). You may not use the content of this file
# except in compliance with the License. Please obtain a copy of the License
# at http://www.opencascade.org and read it completely before using this file.
#
# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
#
# The Original Code and all software distributed under the License is
# distributed on an "AS IS" basis, without warranty of any kind, and the
# Initial Developer hereby disclaims all such warranties, including without
# limitation, any warranties of merchantability, fitness for a particular
# purpose or non-infringement. Please see the License for the specific terms
# and conditions governing the rights and limitations under the License.
##########################################################
#
# find the name of the station
#
proc wokstation {} {
set LINE_FROM_UNAME [ exec uname -a ] ;
if { [ regexp SunOS $LINE_FROM_UNAME ] } {
return "sun"
}
elseif { [ regexp IRIX $LINE_FROM_UNAME ] } {
return "sil"
}
elseif { [ regexp OSF $LINE_FROM_UNAME ] } {
return "ao1"
}
elseif { [ regexp HP-UX $LINE_FROM_UNAME ] } {
return "hp"
}
elseif { [ regexp FreeBSD $LINE_FROM_UNAME ] } {
return "bsd"
}
elseif { [ regexp Darwin $LINE_FROM_UNAME ] } {
return "mac"
}
else {
return "unknown"
}
}