global env tcl_platform
if [info exists env(os_type)] { return }
-
set env(os_type) $tcl_platform(platform)
-
- # use detailed mapping for various versions of Lunix
- # (note that mapping is rather non-uniform, for historical reasons)
- 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] } {
- set env(os_type) RedHat$num
- } elseif { [regexp {Debian[ \tA-Za-z/]+([0-9]+)[.]([0-9]+)} $issue res num subnum] } {
- set env(os_type) Debian$num$subnum
- } elseif { [regexp {Debian[ \tA-Za-z/]+([0-9]+)} $issue res num] } {
- set env(os_type) Debian${num}0
- } elseif { [regexp {CentOS[ \tA-Za-z]+([0-9]+)[.]([0-9]+)} $issue res num subnum] } {
- set env(os_type) CentOS$num$subnum
- } elseif { [regexp {Scientific[ \tA-Za-z]+([0-9]+)[.]([0-9]+)} $issue res num subnum] } {
- set env(os_type) SL$num$subnum
- } elseif { [regexp {Fedora Core[ \tA-Za-z]+([0-9]+)} $issue res num] } {
- set env(os_type) FedoraCore$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
+ if { $tcl_platform(os) == "Linux" } {
+ set env(os_type) Linux
}
+ if { $tcl_platform(os) == "Darwin" } {
+ set env(os_type) MacOS
+ }
}
_tests_platform_def
# ? - because sometimes test is killed by elapsed time
puts "TODO OCC26018 ALL: TEST INCOMPLETE"
puts "TODO ?OCC26018 ALL: Process killed by CPU limit"
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
puts "TODO ?OCC26017 ALL: Tcl Exception:"
puts "TODO ?OCC26017 ALL: Error: sh141385A0_copy is not a valid shape"
puts "TODO ?OCC26017 ALL Error: sh59D36470_copy is not a valid shape"
puts "TODO OCC26018 ALL: Error : The area of the resulting shape is"
-puts "TODO OCC26018 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26018 Linux: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO ?OCC26017 Windows: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_et1_401-ta6027.prt.2.gdml.tcl]
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26017 Debian70-64: Process killed by CPU limit"
-puts "TODO ?OCC26017 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC26017 Linux: Process killed by CPU limit"
+puts "TODO ?OCC26017 Linux: TEST INCOMPLETE"
source [locate_data_file 20000_et1_401-ta6029.prt.2.gdml.tcl]
puts "TODO OCC26018 ALL: Error : The area of the resulting shape is"
-puts "TODO OCC26018 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26018 Linux: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_et3_401-ta6037.prt.2.gdml.tcl]
## image is differ from application
puts "TODO OCC26018 Windows: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26017 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC26017 Linux: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_et5_401-ta6160.prt.2.gdml.tcl]
# ? - because sometimes test is killed by elapsed time
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
puts "TODO ?OCC26017 ALL: TEST INCOMPLETE"
puts "TODO ?OCC26017 ALL: Process killed by CPU limit"
puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
-puts "TODO ?OCC26017 Debian70-64: TEST INCOMPLETE"
-puts "TODO ?OCC26017 Debian70-64: Process killed by CPU limit"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
+puts "TODO ?OCC26017 Linux: TEST INCOMPLETE"
+puts "TODO ?OCC26017 Linux: Process killed by CPU limit"
source [locate_data_file 20000_g1-2_et1.asm.5.gdml.tcl]
puts "TODO OCC26018 ALL: Error : The area of the resulting shape is"
-puts "TODO OCC26018 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26018 Linux: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_g1-2_et3.asm.2.gdml.tcl]
## image is differ from application
puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26017 Debian70-64: XIO: fatal IO error"
-puts "TODO ?OCC26017 Debian70-64: TEST INCOMPLETE"
-puts "TODO ?OCC26017 Debian70-64: Tcl Exception"
-puts "TODO ?OCC26017 Debian70-64: Error: shC26D310_copy is not a valid shape"
+puts "TODO ?OCC26017 Linux: XIO: fatal IO error"
+puts "TODO ?OCC26017 Linux: TEST INCOMPLETE"
+puts "TODO ?OCC26017 Linux: Tcl Exception"
+puts "TODO ?OCC26017 Linux: Error: shC26D310_copy is not a valid shape"
source [locate_data_file 20000_g1-2_et4.asm.3.gdml.tcl]
puts "TODO ?OCC26017 ALL: TEST INCOMPLETE"
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
puts "TODO ?OCC26017 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO ?OCC26017 ALL: Process killed by CPU limit"
source [locate_data_file 20000_ss2_401-ta5993.prt.2.gdml.tcl]
-puts "TODO ?OCC26017 Debian70-64: TEST INCOMPLETE"
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
+puts "TODO ?OCC26017 Linux: TEST INCOMPLETE"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
source [locate_data_file 401-ta6001-3.prt.1.gdml.tcl]
-puts "TODO ?OCC26017 Debian70-64: TEST INCOMPLETE"
-puts "TODO ?OCC26017 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26017 Debian70-64: An exception was caught"
-puts "TODO ?OCC26017 Debian70-64: X Error of failed request"
-puts "TODO ?OCC26017 Debian70-64: XIO: fatal IO error 11"
-puts "TODO ?OCC26017 Debian70-64: Process killed by CPU limit"
+puts "TODO ?OCC26017 Linux: TEST INCOMPLETE"
+puts "TODO ?OCC26017 Linux: \\*\\* Exception"
+puts "TODO ?OCC26017 Linux: An exception was caught"
+puts "TODO ?OCC26017 Linux: X Error of failed request"
+puts "TODO ?OCC26017 Linux: XIO: fatal IO error 11"
+puts "TODO ?OCC26017 Linux: Process killed by CPU limit"
source [locate_data_file voile_3.asm.1.gdml.tcl]
puts "TODO ?OCC26019 ALL: Error: bopcheck failed"
puts "TODO ?OCC26019 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26019 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO ?OCC26019 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 -2740.6595835899998 -150 -1050 1.110223024625157e-016 1 1.1102230246251563e-016
puts "TODO ?OCC26019 ALL: Error: bopcheck failed"
puts "TODO ?OCC26019 ALL: Error : The area of the resulting shape"
-puts "TODO ?OCC26019 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC26019 Linux: Faulty shapes in variables faulty_1 to faulty_"
# planar face
plane pln_f1 -1863.18155559 1250 -1538.57262704 1.110223024625157e-016 1 1.1102230246251563e-016
# plane
puts "TODO OCC26020 ALL: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 590.6877421677151 -519.8775759738943 -93.555747452441423 0.64798185367609173 0.7547095802227719 -0.10263024323494339
puts "TODO OCC26020 ALL: Error: bopcheck failed"
puts "TODO ?OCC26019 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 79.400363856921899 8.7220982904821555e-015 -94.116057183203139 -0.83335943573869897 -2.2204460492503131e-016 -0.55273144551877762
puts "TODO OCC26020 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC26020 ALL: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 35.877464033656999 5.9462928582193458e-016 -25.973690230789806 -0.64944804833018333 -3.0834627769631957e-016 -0.76040596560003137
puts "TODO OCC26020 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC26020 ALL: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 32.294537607197917 1.8096910201742288e-014 -39.176406819310692 -0.77162458338772011 -6.6613381477509373e-016 -0.63607822027776384
# plane
puts "TODO OCC26020 Windows: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
-puts "TODO OCC26020 Debian70-64: Error: bopcheck failed"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error: bopcheck failed"
# planar face
plane pln_f1 -331.49269816258993 -487.15663197846379 -460.05843051255943 -0.29784456643004237 0.75470958022277179 -0.58455287508322795
# plane
puts "TODO OCC26020 Windows: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC26020 Debian70-64: Error : The mkvolume is not valid. The area is"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The mkvolume is not valid. The area is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 -513.57358775546049 376.87261141864394 391.24411461018769 -0.35888381816183362 -0.86162916044152549 0.35888381816183351
# cylinder plane unstable
puts "TODO ?OCC26019 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26019 Debian70-64: Error: bopcheck failed"
-puts "TODO ?OCC26019 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO ?OCC26019 Linux: Error: bopcheck failed"
+puts "TODO ?OCC26019 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 0 -875 -1.4432899320127035e-014 0 1 1.1102230246251565e-016
puts "TODO ?OCC26019 ALL: Error: bopcheck failed"
puts "TODO ?OCC26019 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26019 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO ?OCC26019 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 0 -232.5 3.8857805861880479e-015 0 -1 -1.1102230246251565e-016
# cylinder plane
puts "TODO OCC26020 ALL: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 1665.7013364039071 -825 -339.75605834598957 0.15643446504023129 4.4408920985006257e-016 0.98768834059513766
# cylinder plane
puts "TODO OCC26020 ALL: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 0 -1450 -4.4408920985006262e-015 0 1 1.1102230246251565e-016
# cylinder plane
puts "TODO OCC26020 ALL: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC26020 Debian70-64: Error: bopcheck failed"
-puts "TODO OCC26020 Debian70-64: Error : The area of the resulting shape is"
+puts "TODO OCC26020 Linux: Error: bopcheck failed"
+puts "TODO OCC26020 Linux: Error : The area of the resulting shape is"
# planar face
plane pln_f1 -335.23319463083521 698.25 1031.741684575172 0.95105651629515375 3.3306690738754676e-016 0.30901699437494723
puts "TODO OCC26020 ALL: TEST INCOMPLETE"
puts "TODO ?OCC26020 ALL: Process killed by CPU limit"
-puts "TODO ?OCC26020 Debian70-64: \\*\\* Exception"
-puts "TODO ?OCC26020 Debian70-64: An exception"
+puts "TODO ?OCC26020 Linux: \\*\\* Exception"
+puts "TODO ?OCC26020 Linux: An exception"
# planar face
plane pln_f1 460.8377555733228 -1160 121.87519451048833 -0.17364817766693036 1.1223734950417248e-017 0.98480775301220813
puts "TODO OCC26020 Windows: Error status"
puts "TODO OCC26020 Windows: TEST INCOMPLETE"
-puts "TODO OCC26020 Debian70-64: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO ?OCC26019 Debian70-64: Error: bopcheck failed"
+puts "TODO OCC26020 Linux: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC26019 Linux: Error: bopcheck failed"
# planar face
plane pln_f1 -2.4595121467478056e-014 -746.52181700999995 1844.22896887 0.86602540378443849 -0.47367733686073094 -0.16009303715192033
-puts "TODO ?OCC12345 Debian70-64: An exception was caught"
-puts "TODO ?OCC12345 Debian70-64: Faulty OCC1138 : here is reading problem when the filename is a directory name."
-puts "TODO ?OCC12345 Debian70-64: Faulty OCC1138"
+puts "TODO ?OCC12345 Linux: An exception was caught"
+puts "TODO ?OCC12345 Linux: Faulty OCC1138 : here is reading problem when the filename is a directory name."
+puts "TODO ?OCC12345 Linux: Faulty OCC1138"
puts "================"
puts "OCC1138"
-puts "TODO OCC23626 Debian70-64 Windows: Tcl Exception"
-puts "TODO OCC23626 Debian70-64 Windows: TEST INCOMPLETE"
+puts "TODO OCC23626 ALL: Tcl Exception"
+puts "TODO OCC23626 ALL: TEST INCOMPLETE"
puts "================"
puts "OCC63"
-puts "TODO ?OCC25921 Debian70-64: Tcl Exception: Memory leak detected"
-puts "TODO ?OCC25921 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
puts "============"
puts "OCC7287"
-puts "TODO ?OCC25921 Debian70-64: Tcl Exception: Memory leak detected"
-puts "TODO ?OCC25921 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
puts "============"
puts "OCC7287"
-puts "TODO ?OCC25921 Debian70-64: Tcl Exception: Memory leak detected"
-puts "TODO ?OCC25921 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
puts "============"
puts "OCC7287"
-puts "TODO ?OCC25921 Debian70-64: Tcl Exception: Memory leak detected"
-puts "TODO ?OCC25921 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
puts "============"
-puts "TODO ?OCC25921 Debian70-64: Tcl Exception: Memory leak detected"
-puts "TODO ?OCC25921 Debian70-64: TEST INCOMPLETE"
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
puts "============"
puts "OCC7287"
-set os $env(os_type)
-
puts "=========="
puts "BUC60591"
puts "=========="
-set os $env(os_type)
-
puts "=================================="
puts "BUC60591"
puts "=================================="
-set os $env(os_type)
-
puts "=================================="
puts "BUC60591"
puts "=================================="
-set os $env(os_type)
-
puts "BUC60591"
puts ""
puts "=================================="
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-if {[string compare $os "windows"] != 0 } {
+set env(os_type) $tcl_platform(platform)
+if {[string compare $env(os_type) "windows"] != 0 } {
puts "TODO ?OCC12345 MacOS: \\*\\* Exception"
puts "TODO ?OCC12345 MacOS: An exception was caught"
puts "TODO ?OCC12345 MacOS: TEST INCOMPLETE"
regexp {deflection +([-0-9.+eE]+)} $tri_info full defl
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
+set env(os_type) $tcl_platform(platform)
+if { [string compare $env(os_type) "windows"] != 0 } {
puts "OS = Linux"
set good_tri 520414
set good_nod 263938
puts "TODO OCC12345 ALL: Faulty OCC565: function intersection works wrongly with trimmed Surfaces"
-puts "TODO OCC12345 Debian70-64 MacOS: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
+puts "TODO OCC12345 Linux MacOS: Faulty OCC565: function intersection works wrongly with infinite Surfaces"
puts "========"
puts "OCC567"
puts "TODO OCC24156 MacOS: \\*\\*\\* Abort"
puts "TODO OCC24156 MacOS: ... The exception is"
-set os $env(os_type)
-
puts "========================"
puts "BUC60948"
puts "========================"
-set os $env(os_type)
-
puts "================"
puts "OCC23379"
puts "================"
-set os $env(os_type)
-
puts "================"
puts "OCC46"
puts "================"
-set os $env(os_type)
-
puts "================"
puts "OCC51"
puts "================"
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
puts "================"
puts "BUC60632"
puts "================"
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
puts "================"
puts "BUC60632"
puts "================"
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
puts "================"
puts "OCC137"
puts "================"
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
puts "================"
puts "OCC137"
puts "================"
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
puts "================"
puts "OCC137"
puts "================"
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
-if { [string compare $tcl_platform(os) "Windows"] == 0 } {
+if { [string compare $tcl_platform(platform) "windows"] == 0 } {
set good_tri 6114
set good_nod 3080
set good_defl 0.50050406431775729
set result24 [regexp "$Yellow" [vreadpixel $x5 $y5 rgb]]
set result25 [regexp "$Yellow" [vreadpixel $x6 $y6 rgb]]
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
+set env(os_type) $tcl_platform(platform)
+if { [string compare $env(os_type) "windows"] != 0 } {
set result31 [regexp "$Cyan" [vreadpixel $x2 $y2 rgb]]
if { $result31 == 0 } {
set IsFaulty 1
vdrawtext text "Open\nCASCADE" -pos 0 0 0 -color 1.0 0.0 0.0 -halign center -valign center -angle -45 -zoom 1 -height 50 -aspect regular -font Arial
-set bug_info [vreadpixel 259 279 rgb name]
+set env(os_type) $tcl_platform(platform)
+if { [string compare ${env(os_type)} "windows"] != 0 } {
+ set x_coord 259
+ set y_coord 279
+} else {
+ set x_coord 255
+ set y_coord 277
+}
+
+set bug_info [vreadpixel ${x_coord} ${y_coord} rgb name]
if {$bug_info != "RED"} {
puts "ERROR: OCC25732 is reproduced. Text is missed."
}
-set os $env(os_type)
-
puts "========"
puts "OCC184"
puts "========"
# Original bug : 23384
# Date : 16 Aug 2012
-
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
XOpen [locate_data_file bug23384-doc_subshapes.dxc] doc
set info1 [XStat doc]
regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
${nbname} != ${nbname_1} } {
puts "Error : Document is read/written wrong!"
}
-
-
-
-
-
-
-
-
-
-
-
-
-set os $env(os_type)
-
puts "========"
puts "OCC314"
puts "========"
-set os $env(os_type)
-
puts "========"
puts "OCC321"
puts "========"
set chamf_dist_dist [list "0.05 0.05" "0.05 0.09" "0.1 0.08"]
set chamf_equal_dist [list "0.05 " "0.05 " "0.2 "]
if { [string compare $command chamf_sequence] == 0 && [string compare $group equal_dist] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
}
puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
}
} else {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
if {[string compare $group dist_angle] == 0} {
puts "TODO OCC22909 MacOS: chamfer is not done. compute of chamfer failed"
}
puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
}
} else {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
if {[string compare $group dist_angle] == 0} {
puts "TODO OCC22909 All:Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
if { [string compare $command chamf] == 0 } {
puts "TODO OCC22909 All:chamfer is not done. compute of chamfer failed"
} else {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
if {[string compare $group dist_angle] == 0} {
puts "TODO OCC22909 MacOS: chamfer is not done. compute of chamfer failed"
} else {
if { [string compare $command chamf_sequence] == 0 } {
puts "TODO #22909 ALL: Error: The tests should be reviewed"
puts "Error: The tests should be reviewed."
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
+ set env(os_type) $tcl_platform(platform)
- if { [string compare ${os} "Windows-64-VC9"] != 0 && [string compare ${os} "Windows-64-VC10"] != 0} {
- set nf 0
- if {[string compare $os "Debian70-64"] == 0 } {
- if { [string compare $group dist_dist] == 0 } {
- set nf 2
- } elseif { [string compare $group equal_dist] == 0 } {
- set nf 4
- }
+ set nf 0
+ if { [string compare ${env(os_type)} "windows"] != 0 } {
+ if { [string compare $group dist_dist] == 0 } {
+ set nf 2
+ } elseif { [string compare $group equal_dist] == 0 } {
+ set nf 4
}
}
- if { [string compare ${os} "windows"] == 0} {
+ if { [string compare ${env(os_type)} "windows"] == 0} {
if {[string compare $group dist_dist] == 0 || [string compare $group equal_dist] == 0 } {
set nf 2
}
}
- if { [string compare ${os} "MacOS"] == 0 } {
- set nf 0
+ if { [string compare ${env(os_type)} "MacOS"] == 0 } {
if { [string compare $group dist_dist] == 0 } {
puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
set nf 8
}
if { $nf != 0 } {
- #puts "TODO OCC22909 $os:Faulty shapes in variables faulty_1 to faulty_$nf"
+ #puts "TODO OCC22909 $env(os_type):Faulty shapes in variables faulty_1 to faulty_$nf"
puts "TODO OCC22909 ALL:Faulty shapes in variables faulty_1 to faulty_"
}
}
# !!!! This file is generated automatically, do not edit manually! See end script
puts "TODO CR23096 ALL: NBSHAPES : Faulty"
-puts "TODO CR23096 Debian70-64: Error : 2 differences with reference data found :"
+puts "TODO CR23096 Linux: Error : 2 differences with reference data found :"
set LinuxDiff 2
set filename trj12_b3-sy-214.stp
# test for command getsource
# check that path returned for command pload is as expected
-if { [array get env os_type] != "" } {
- set os $env(os_type)
-}
-puts $os
-if { [string compare $os "windows"] == 0 } {
+set env(os_type) $tcl_platform(platform)
+if { [string compare $env(os_type) "windows"] == 0 } {
set expected src/Draw/Draw_PloadCommands.cxx
} else {
set expected /src/Draw/Draw_PloadCommands.cxx
#F6----------------------------------------------
-puts "TODO OCC22803 Debian70-64: Error in depouille"
-puts "TODO OCC22803 Debian70-64: Error : The skin cannot be built."
+puts "TODO OCC22803 Linux: Error in depouille"
+puts "TODO OCC22803 Linux: Error : The skin cannot be built."
puts "TODO OCC22803 Windows: Faulty shapes in variables faulty_1 to faulty_"
polyline p 0 0 3 0 0 0 10 0 0 10 0 3
beziercurve bc 4 10 0 3 7 0 2 3 0 3 0 0 3
# Date : 02 Dec 98
puts "TODO OCC22803 All: Error: The tolerance of the resulting shape is too big"
-#puts "TODO OCC23511 Debian70-64: The area of the resulting shape is 186543"
+#puts "TODO OCC23511 Linux: The area of the resulting shape is 186543"
restore [locate_data_file CFE903_pro12ggx.rle] base
if {[string compare $command "SplitAngle"] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
- if {
- [string compare $os "Debian40"] != 0
- && [string compare $os "Mandriva2008"] != 0
- && [string compare $os "Mandriva2010"] != 0
- } {
puts "TODO OCC23245 ALL: Faulty shapes in variables faulty_1 to faulty_"
- }
}
restore [locate_data_file GOUVERGUI.brep] a
if {[string compare $command "SplitAngle"] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
puts "TODO OCC23127 ALL: Faulty shapes in variables faulty_1 to faulty_"
}
-if {[string compare $command "SplitAngle"] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
- if {
- [string compare $os "Debian40"] == 0
- || [string compare $os "Mandriva2008"] == 0
- || [string compare $os "Mandriva2010"] == 0
- } {
- }
-}
-
restore [locate_data_file cd.brep] a
-
-if {[string compare $command "SplitAngle"] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
- if {
- [string compare $os "Debian40"] == 0
- || [string compare $os "Mandriva2008"] == 0
- || [string compare $os "Mandriva2010"] == 0
- } {
- }
-}
-
restore [locate_data_file cg.brep] a
set TheFileName shading_055.brep
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
+set env(os_type) $tcl_platform(os)
if { [string compare $command "shading"] == 0 } {
set nb 62
- if {[string compare $os "Mandriva2008"] == 0} {
- set nb 64
- }
- if {[string compare $os "Mandriva2010"] == 0} {
- set nb 64
- }
- if {[string compare $os "Debian40"] == 0} {
- set nb 72
- }
}
if { [string compare $command "incmesh"] == 0 } {
set nb 60
- if {[string compare $os "Mandriva2008"] == 0} {
- set nb 64
- }
- if {[string compare $os "Mandriva2010"] == 0} {
- set nb 64
- }
- if {[string compare $os "Debian40"] == 0} {
- set nb 72
- }
}
if { [string compare $command "mesh"] == 0 } {
set nb 36
- if {[string compare $os "Mandriva2008"] == 0} {
- set nb {40|56}
- }
- if {[string compare $os "Mandriva2010"] == 0} {
- set nb 56
- }
- if {[string compare $os "Debian40"] == 0} {
- set nb {51|61}
- }
}
+
set bug_cross "OCC22687"
-set nbcross($os) $nb
+set nbcross($env(os_type)) $nb
set bug_withouttri "OCC22687"
set bug_freelinks "OCC22687"
set bug_freenodes "OCC22687"
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
+
if { [string compare $command "shading"] == 0 } {
-### set nbt 14
- set nbt 9
- set nbn 83
- if {
- [string compare $os "Mandriva2008"] == 0
- || [string compare $os "Debian70-64"] == 0
- } {
-### set nbl 19
-### set nbfree($os) $nbl
-## else
-## set nbl 17
- }
-set nbwithouttri($os) $nbt
-set nbfreenodes($os) $nbn
+##set nbt 14
+ set nbt 9
+ set nbn 83
+ set nbwithouttri($env(os_type)) $nbt
+ set nbfreenodes($env(os_type)) $nbn
} else {
- if {
- [string compare $os "Mandriva2010"] == 0
- } {
- set nbt 14
- set nbn 83
- set nbl 19
- set nbwithouttri($os) $nbt
- set nbfree($os) $nbl
- set nbfreenodes($os) $nbn
- } else {
- set bug_withouttri "OCC23105"
-### set nbt 14
- set nbt 8
- set nbn 60
- set nbl 3
- set nbwithouttri($os) $nbt
- set nbfree($os) $nbl
- set nbfreenodes($os) $nbn
- }
+ set bug_withouttri "OCC23105"
+##set nbt 14
+ set nbt 8
+ set nbn 60
+ set nbl 3
+ set nbwithouttri($env(os_type)) $nbt
+ set nbfree($env(os_type)) $nbl
+ set nbfreenodes($env(os_type)) $nbn
}
set rel_tol 1.3
set nbwithouttri(ALL) 6
set nbfreenodes(ALL) 1
-### set bug_freelinks "OCC22687"
-### set nbfree(ALL) 2
+##set bug_freelinks "OCC22687"
+##set nbfree(ALL) 2
} else {
set nbfreenodes(ALL) 2
set nbwithouttri(ALL) 5
}
-###if { [string compare $command "mesh"] == 0 } {
-### set os "ALL"
-### if {[array get env os_type] != ""} {
-### set os $env(os_type)
-### }
-### set bug_freelinks "OCC22687"
-### if {[string compare $os "Mandriva2008"] == 0 || [string compare $os "MacOS"] == 0 || [string compare $os "Mandriva2010"] == 0 || [string compare $os "Debian40"] == 0 || [string compare $os "Debian70-64"] == 0 || [string compare $os "windows"] == 0} {
-### set nb 4
-### } else {
-### set nb 6
-### }
-### set nbfree($os) $nb
-###}
-###if { [string compare $command "shading"] == 0 } {
-### set bug_freelinks "OCC22687"
-### set nbfree(ALL) 2
-###}
}
if { [string compare $command "incmesh"] == 0 } {
- set os "ALL"
- if {[array get env os_type] != ""} {
- set os $env(os_type)
- }
if { [string compare $parallel "-parallel"] != 0 || [info exists count_parallel] == 0 } {
set count_parallel 1
}
puts "TODO OCC23068 ALL: Error : big tolerance of shape result"
puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2"
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Debian40"] != 0
- && [string compare $os "Mandriva2010"] != 0
- && [string compare $os "Mandriva2008"] != 0
- } {
- puts "TODO OCC23068 $os: Error : The resulting shape is WRONG"
-}
-
-
+puts "TODO OCC23068 ALL: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_041.brep] s
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Windows-64-VC8"] == 0
- || [string compare $os "Windows-64-VC9"] == 0
- || [string compare $os "Windows-64-VC10"] == 0
- } {
- puts "TODO OCC23068 $os: Error : Result shape is WRONG"
-}
-
-if { [string compare $os "MacOS"] == 0 } {
- puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
-}
+puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_103.brep] s
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Windows-64-VC8"] == 0
- || [string compare $os "Windows-64-VC9"] == 0
- || [string compare $os "Windows-64-VC10"] == 0
- } {
- puts "TODO OCC23068 $os: Error : Result shape is WRONG"
-}
-if { [string compare $os "MacOS"] == 0 } {
- puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
-}
+puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_103.brep] s
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Windows-64-VC8"] == 0
- || [string compare $os "Windows-64-VC9"] == 0
- || [string compare $os "Windows-64-VC10"] == 0
- } {
- puts "TODO OCC23068 $os: Error : Result shape is WRONG"
-}
-
-if { [string compare $os "MacOS"] == 0 } {
- puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
-}
+puts "TODO OCC24156 MacOS: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_103.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Mandriva2010"] != 0
- && [string compare $os "Debian40" ] != 0
- && [string compare $os "Mandriva2008"] != 0
- } {
- puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_2"
-}
+puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2"
restore [locate_data_file offset_wire_037.brep] s
#puts "TODO OCC24255 ALL: An exception was caught"
puts "TODO OCC24255 ALL: Error: Offset is not done."
puts "TODO OCC24255 ALL: Error : The offset cannot be built."
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-#if {
-# [string compare $os "Mandriva2010" ] != 0
-# && [string compare $os "Debian40" ] != 0
-# && [string compare $os "Mandriva2008" ] != 0
-# } {
-# puts "TODO OCC23068 $os: Error : The resulting shape is WRONG"
-#}
+#puts "TODO OCC23068 ALL: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_041.brep] s
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Mandriva2010" ] != 0
- && [string compare $os "Debian40" ] != 0
- && [string compare $os "Mandriva2008" ] != 0
- } {
- puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_2"
- puts "TODO OCC23068 $os: Error : The resulting shape is WRONG"
-}
+puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2"
+puts "TODO OCC23068 ALL: Error : The resulting shape is WRONG"
+
restore [locate_data_file offset_wire_037.brep] s
set length 1105.94
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
+puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2"
+puts "TODO OCC23068 ALL: Error : The resulting shape is WRONG"
-if {
- [string compare $os "Mandriva2010"] != 0
- && [string compare $os "Debian40" ] != 0
- && [string compare $os "Mandriva2008"] != 0
- } {
- puts "TODO OCC23068 $os: Faulty shapes in variables faulty_1 to faulty_2"
- puts "TODO OCC23068 $os: Error : The resulting shape is WRONG"
-}
restore [locate_data_file offset_wire_037.brep] s
set length 1406.21
puts "TODO OCC23748 ALL: Error : The offset cannot be built."
puts "TODO OCC23748 Windows: Error: Offset is not done."
-puts "TODO OCC23748 Debian70-64: An exception was caught"
-puts "TODO OCC23748 Debian70-64: \\*\\* Exception \\*\\*"
+puts "TODO OCC23748 Linux: An exception was caught"
+puts "TODO OCC23748 Linux: \\*\\* Exception \\*\\*"
restore [locate_data_file offset_wire_092.brep] s
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Windows-32-VC8"] == 0
- } {
-}
-
restore [locate_data_file offset_wire_098.brep] s
set length 332.67
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Mandriva2010"] != 0
- && [string compare $os "Debian40" ] != 0
- && [string compare $os "Mandriva2008"] != 0
- } {
- puts "TODO OCC23068 $os: Error : The resulting shape is WRONG"
-}
+puts "TODO OCC23068 ALL: Error : The resulting shape is WRONG"
restore [locate_data_file offset_wire_001.brep] s
set length 8.78837
puts "TODO OCC23068 ALL: Faulty shapes in variables faulty_1 to faulty_2"
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if {
- [string compare $os "Mandriva2010"] != 0
- && [string compare $os "Debian40" ] != 0
- && [string compare $os "Mandriva2008"] != 0
- } {
- puts "TODO OCC23068 $os: Error : big tolerance of shape result"
-}
+puts "TODO OCC23068 ALL: Error : big tolerance of shape result"
restore [locate_data_file offset_wire_070.brep] s
set WorkDirectory $imagedir
-set os "ALL"
-if {[array get env os_type] != ""} {
- set os $env(os_type)
-}
-
-if { [regexp "indows" $os] } {
+set env(os_type) $tcl_platform(platform)
+if { [regexp "indows" $env(os_type)] } {
if {[regexp -nocase {jdk} $env(PATH)] || [regexp -nocase {java} $env(PATH)]} {
set Java "java"
} else {
projects / occt-copy.git / commitdiff