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

0027146: Create command checkplatform

Browse Source 
Command checkplatform was created.
All test cases were updated.

Global variable os_type was eliminated.
New option -osx (MacOS) for procedure checkplatform was added.
This commit is contained in:
ski
2016-02-09 17:31:17 +03:00
committed by bugmaster
parent 0a2a7b466d
commit 863f782a42
36 changed files with 171 additions and 155 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/DrawResources/TestCommands.tcl
View File

@@ -1182,7 +1182,7 @@ proc _check_log {dir group gridname casename errors log {_summary {}} {_html_log
# check if line defines specific treatment of some messages
if [regexp -nocase {^[ \s]*TODO ([^:]*):(.*)$} $line res platforms pattern] {
if { ! [regexp -nocase {\mAll\M} $platforms] &&
! [regexp -nocase "\\m$env(os_type)\\M" $platforms] } {
! [regexp -nocase "\\m[checkplatform]\\M" $platforms] } {
lappend html_log [_html_highlight IGNORE $line]
continue ;# TODO statement is for another platform
}
@@ -1206,7 +1206,7 @@ proc _check_log {dir group gridname casename errors log {_summary {}} {_html_log
}
if [regexp -nocase {^[ \s]*REQUIRED ([^:]*):[ \s]*(.*)$} $line res platforms pattern] {
if { ! [regexp -nocase {\mAll\M} $platforms] &&
! [regexp -nocase "\\m$env(os_type)\\M" $platforms] } {
! [regexp -nocase "\\m[checkplatform]\\M" $platforms] } {
lappend html_log [_html_highlight IGNORE $line]
continue ;# REQUIRED statement is for another platform
}
@@ -1742,21 +1742,6 @@ proc _log_xml_summary {logdir filename log include_cout} {
return
}
# define custom platform name
proc _tests_platform_def {} {
global env tcl_platform
if [info exists env(os_type)] { return }
set env(os_type) $tcl_platform(platform)
if { $tcl_platform(os) == "Linux" } {
set env(os_type) Linux
}
if { $tcl_platform(os) == "Darwin" } {
set env(os_type) MacOS
}
}
_tests_platform_def
# Auxiliary procedure to split path specification (usually defined by
# environment variable) into list of directories or files
proc _split_path {pathspec} {