# use detailed mapping for various versions of Lunix
# (note that mapping is rather non-uniform, for historical reasons)
- if { $env(os_type) == "unix" && ! [catch {exec cat /etc/issue} issue] } {
+ if { $tcl_platform(os) == "Linux" && ! [catch {exec cat /etc/issue} issue] } {
if { [regexp {Mandriva[ \tA-Za-z]+([0-9]+)} $issue res num] } {
set env(os_type) Mandriva$num
} elseif { [regexp {Red Hat[ \tA-Za-z]+([0-9]+)} $issue res num] } {
if { [exec uname -m] == "x86_64" } {
set env(os_type) "$env(os_type)-64"
}
+ } elseif { $tcl_platform(os) == "Darwin" } {
+ set env(os_type) MacOS
}
}
_tests_platform_def
+puts "TODO #23828 MacOS: Tcl Exception: null shapes are not allowed"
+puts "TODO #23828 MacOS: TEST INCOMPLETE"
+
restore [locate_data_file OCC62.brep] sh
explode sh
-puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC12345 ALL: Error : The square of result shape is"
+set os "ALL"
+
+if {[array get env os_type] != ""} {
+ set os $env(os_type)
+}
+
+if {[string compare $os "MacOS"] == 0} {
+ puts "TODO #23828 MacOS: Tcl Exception: sh is not a topological shape!!!"
+ puts "TODO #23828 MacOS: TEST INCOMPLETE"
+} else {
+ puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
+ puts "TODO OCC12345 ALL: Error : The square of result shape is"
+}
puts "================"
puts "OCC62"
puts "OCC288"
puts "================"
puts ""
+puts "TODO #23828 MacOS: Tcl Exception: result is not a topological shape!!!"
+puts "TODO #23828 MacOS: TEST INCOMPLETE"
+
#######################################################################################
# Currently meshing (for shading) of some shapes looks incorrect
######################################################################################