0026237: Change platform in TODOs from Debian\Mandriva to Linux
authorapn <apn@opencascade.com>
Thu, 21 May 2015 12:50:31 +0000 (15:50 +0300)
committerbugmaster <bugmaster@opencascade.com>
Thu, 21 May 2015 12:51:28 +0000 (15:51 +0300)
Change platform in occt test cases in TODOs from Debian\Mandriva to Linux

Small corrections in test cases. Return procedure _tests_platform_def.

93 files changed:
src/DrawResources/TestCommands.tcl
tests/boolean/gdml_private/B5
tests/boolean/gdml_private/F8
tests/boolean/gdml_private/G1
tests/boolean/gdml_private/G7
tests/boolean/gdml_private/J4
tests/boolean/gdml_private/K8
tests/boolean/gdml_private/L3
tests/boolean/gdml_private/L4
tests/boolean/gdml_private/L5
tests/boolean/gdml_private/W2
tests/boolean/gdml_private/ZE4
tests/boolean/gdml_private/ZK3
tests/boolean/volumemaker/A4
tests/boolean/volumemaker/A7
tests/boolean/volumemaker/B3
tests/boolean/volumemaker/B4
tests/boolean/volumemaker/B6
tests/boolean/volumemaker/B9
tests/boolean/volumemaker/C1
tests/boolean/volumemaker/C3
tests/boolean/volumemaker/C9
tests/boolean/volumemaker/D2
tests/boolean/volumemaker/D4
tests/boolean/volumemaker/D5
tests/boolean/volumemaker/D8
tests/boolean/volumemaker/E4
tests/boolean/volumemaker/F1
tests/bugs/caf/bug1138
tests/bugs/fclasses/bug63
tests/bugs/fclasses/bug7287_2
tests/bugs/fclasses/bug7287_3
tests/bugs/fclasses/bug7287_4
tests/bugs/fclasses/bug7287_5
tests/bugs/fclasses/bug7287_6
tests/bugs/iges/buc60591_1
tests/bugs/iges/buc60591_2
tests/bugs/iges/buc60591_3
tests/bugs/iges/buc60591_4
tests/bugs/modalg_2/bug426
tests/bugs/moddata_1/bug22759
tests/bugs/moddata_2/bug567
tests/bugs/step/buc60948
tests/bugs/step/bug23379
tests/bugs/step/bug46
tests/bugs/step/bug51
tests/bugs/vis/buc60632_1
tests/bugs/vis/buc60632_2
tests/bugs/vis/bug137_10
tests/bugs/vis/bug137_11
tests/bugs/vis/bug137_9
tests/bugs/vis/bug22188
tests/bugs/vis/bug232
tests/bugs/vis/bug25732_1
tests/bugs/xde/bug184
tests/bugs/xde/bug23384
tests/bugs/xde/bug314
tests/bugs/xde/bug321
tests/chamfer/data/complex/B4
tests/chamfer/data/complex/B5
tests/chamfer/data/complex/B6
tests/chamfer/data/complex/B7
tests/chamfer/data/complex/B9
tests/de/step_3/F3
tests/demo/draw/getsource
tests/draft/angle/G8
tests/draft/angle/M2
tests/heal/data/advanced/X1
tests/heal/data/advanced/Y6
tests/heal/data/advanced/ZF1
tests/heal/data/advanced/ZF2
tests/mesh/data/standard/G1
tests/mesh/data/standard/U7
tests/mesh/data/standard/W4
tests/mesh/end
tests/offset/wire_closed_inside_0_005/D1
tests/offset/wire_closed_inside_0_005/H6
tests/offset/wire_closed_inside_0_005/I8
tests/offset/wire_closed_inside_0_025/H6
tests/offset/wire_closed_inside_0_025/I8
tests/offset/wire_closed_inside_0_075/H6
tests/offset/wire_closed_inside_0_075/I8
tests/offset/wire_closed_outside_0_005/C6
tests/offset/wire_closed_outside_0_005/D1
tests/offset/wire_closed_outside_0_005/H6
tests/offset/wire_closed_outside_0_025/C6
tests/offset/wire_closed_outside_0_025/H6
tests/offset/wire_closed_outside_0_075/C6
tests/offset/wire_closed_outside_0_075/H6
tests/offset/wire_closed_outside_0_075/I3
tests/offset/wire_unclosed_outside_0_005/A1
tests/offset/wire_unclosed_outside_0_005/B8
tests/xml/begin

index 5e24abc..1b00089 100644 (file)
@@ -1657,33 +1657,13 @@ proc _tests_platform_def {} {
     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
 
index 4dd96d4..fb4b8d5 100644 (file)
@@ -1,8 +1,8 @@
 # ? - 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"
index cb90931..b15ffc3 100644 (file)
@@ -1,5 +1,5 @@
 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]
 
index 8ae3d9c..57b888c 100644 (file)
@@ -1,7 +1,7 @@
-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]
 
index 4f174e3..1af9cde 100644 (file)
@@ -1,5 +1,5 @@
 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
index bd6ae64..220be3d 100644 (file)
@@ -1,4 +1,4 @@
 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]
 
index 84e2107..6071518 100644 (file)
@@ -1,7 +1,7 @@
 # ? - 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_"
index 94dd715..eecc4a4 100644 (file)
@@ -1,7 +1,7 @@
 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]
 
index dad93ba..5c52403 100644 (file)
@@ -1,5 +1,5 @@
 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
index d6fe0aa..6abb59c 100644 (file)
@@ -1,7 +1,7 @@
 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]
 
index a3ce457..a98d027 100644 (file)
@@ -1,6 +1,6 @@
 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]
index 42ae5d1..33657d0 100644 (file)
@@ -1,5 +1,5 @@
-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]
 
index dd4f047..2953183 100644 (file)
@@ -1,8 +1,8 @@
-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]
 
index 118058c..f41e073 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index 881ae1d..352dd94 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index 328ff5d..ab54830 100644 (file)
@@ -2,8 +2,8 @@
 # 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
index c4bc4f6..b412ef4 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index c5577ed..b8d4779 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index 6c81568..4bedb2a 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index 3f33cc5..4849aac 100644 (file)
@@ -2,8 +2,8 @@
 # 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
index dd45a21..52eba83 100644 (file)
@@ -2,8 +2,8 @@
 # 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
index fb8937e..2ba08d8 100644 (file)
@@ -2,8 +2,8 @@
 # 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
index a89e872..34540c4 100644 (file)
@@ -3,7 +3,7 @@
 
 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
index f4c886f..e66854d 100644 (file)
@@ -2,7 +2,7 @@
 # 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
index 01af5f9..a39f4ac 100644 (file)
@@ -2,7 +2,7 @@
 # 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
index 696a344..969b7b4 100644 (file)
@@ -2,8 +2,8 @@
 # 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
index 3d600d5..3fdf57e 100644 (file)
@@ -4,8 +4,8 @@
 
 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
index e1f05d6..12e45c1 100644 (file)
@@ -4,8 +4,8 @@
 
 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
index b142b58..2fa8b98 100755 (executable)
@@ -1,6 +1,6 @@
-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"
index 068309d..97c45ca 100755 (executable)
@@ -1,5 +1,5 @@
-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"
index e652c98..82469eb 100755 (executable)
@@ -1,5 +1,5 @@
-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"
index fd2b43c..28488b7 100755 (executable)
@@ -1,5 +1,5 @@
-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"
index 9083edc..9213c7c 100755 (executable)
@@ -1,5 +1,5 @@
-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"
index 0bd8886..4e6b933 100755 (executable)
@@ -1,5 +1,5 @@
-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 "============"
index 4b92c87..09bc138 100755 (executable)
@@ -1,5 +1,5 @@
-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"
index 4ea9ec8..7108a2c 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "=========="
 puts "BUC60591"
 puts "=========="
index a5dad57..c09cfaf 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "=================================="
 puts "BUC60591"
 puts "=================================="
index 3d17511..71bf882 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "=================================="
 puts "BUC60591"
 puts "=================================="
index 8aae3ab..ed8b0f9 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "BUC60591"
 puts ""
 puts "=================================="
index 9425e5f..1b51ab8 100755 (executable)
@@ -1,7 +1,5 @@
-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"
index e93a2c5..82c4d6c 100755 (executable)
@@ -25,10 +25,8 @@ regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
 
 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
index 8d15f3b..c2d2e74 100755 (executable)
@@ -1,5 +1,5 @@
 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"
index a85ad1b..b65e586 100755 (executable)
@@ -1,8 +1,6 @@
 puts "TODO OCC24156 MacOS: \\*\\*\\* Abort"
 puts "TODO OCC24156 MacOS: ... The exception is"
 
-set os $env(os_type)
-
 puts "========================"
 puts "BUC60948"
 puts "========================"
index 96ed4c7..ab72161 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "================"
 puts "OCC23379"
 puts "================"
index d1cb81b..0571184 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "================"
 puts "OCC46"
 puts "================"
index 8e426c5..3a1955d 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "================"
 puts "OCC51"
 puts "================"
index 1dcf5dd..1a4784f 100755 (executable)
@@ -1,9 +1,3 @@
-if { [array get env os_type] != "" } {
-    set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
 puts "================"
 puts "BUC60632"
 puts "================"
index ea6e949..014eb2b 100755 (executable)
@@ -1,9 +1,3 @@
-if { [array get env os_type] != "" } {
-    set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
 puts "================"
 puts "BUC60632"
 puts "================"
index 034d11e..fa631b0 100755 (executable)
@@ -1,9 +1,3 @@
-if { [array get env os_type] != "" } {
-   set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
 puts "================"
 puts "OCC137"
 puts "================"
index 9d872a1..03db837 100755 (executable)
@@ -1,9 +1,3 @@
-if { [array get env os_type] != "" } {
-   set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
 puts "================"
 puts "OCC137"
 puts "================"
index 55465ac..5174ea9 100755 (executable)
@@ -1,9 +1,3 @@
-if { [array get env os_type] != "" } {
-   set os $env(os_type)
-}
-if { [string compare $os "windows"] != 0 } {
-}
-
 puts "================"
 puts "OCC137"
 puts "================"
index e76cec2..e7d8b98 100755 (executable)
@@ -23,7 +23,7 @@ regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
 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
index d93edfd..a185488 100755 (executable)
@@ -61,10 +61,8 @@ set result23 [regexp "$Yellow" [vreadpixel $x4 $y4 rgb]]
 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
index c25fc53..f007e5e 100644 (file)
@@ -18,7 +18,16 @@ vsetdispmode b 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."
 }
index 655464d..c6c3421 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "========"
 puts "OCC184"
 puts "========"
index 7b3deb1..2867a3b 100755 (executable)
@@ -1,9 +1,5 @@
 # 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.xbf] doc
 set info1 [XStat doc]
 regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
@@ -46,15 +42,3 @@ if { ${l0} != ${l0_1} ||
      ${nbname} != ${nbname_1} } {
     puts "Error : Document is read/written wrong!"
 }
-
-
-
-
-
-
-
-
-
-
-
-
index 055bd9f..bb6bf3a 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "========"
 puts "OCC314"
 puts "========"
index 29d99e4..d5a5613 100755 (executable)
@@ -1,5 +1,3 @@
-set os $env(os_type)
-
 puts "========"
 puts "OCC321"
 puts "========"
index 64bb4a9..de7ed67 100644 (file)
@@ -4,10 +4,6 @@ set chamf_dist_angle [list "0.08   30" "0.06   30" "0.1   30"]
 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"
 }
index ff81c00..fb3b83d 100644 (file)
@@ -8,10 +8,6 @@ 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"
   }
index f4f9530..75bfaee 100644 (file)
@@ -8,10 +8,6 @@ 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 All:Faulty shapes in variables faulty_1 to faulty_"
     puts "TODO OCC24156 MacOS: chamfer is not done. compute of chamfer failed"
index cea26e2..415dd61 100644 (file)
@@ -6,10 +6,6 @@ set chamf_equal_dist [list "0.1     " " 0.2     "]
 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 {
index 46607d5..3ce8ce7 100644 (file)
@@ -7,30 +7,24 @@ dset SCALE 100
 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
@@ -45,7 +39,7 @@ if { [string compare $command chamf_sequence] == 0 } {
   }  
 
   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_"
   }
 }
index 39ba6d7..874b06f 100644 (file)
@@ -1,6 +1,6 @@
 # !!!! 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
index 143151b..49cd13a 100755 (executable)
@@ -1,11 +1,8 @@
 # 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
index 84383fe..0c56853 100644 (file)
@@ -1,6 +1,6 @@
 #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
index 5c041b6..d9d52c5 100644 (file)
@@ -2,7 +2,7 @@
 # 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
 
index 7f10a85..3cd1120 100644 (file)
@@ -1,15 +1,5 @@
 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
index 04624e7..5aacd57 100644 (file)
@@ -1,8 +1,4 @@
 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_"
 }
 
index d382115..3923b81 100644 (file)
@@ -1,15 +1 @@
-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
-
index 948a8bb..aa071aa 100644 (file)
@@ -1,15 +1,2 @@
-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
 
index c76c128..5d66d3b 100755 (executable)
@@ -1,43 +1,14 @@
 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
index cc72be0..cf1d2f6 100755 (executable)
@@ -4,43 +4,20 @@ set rel_tol 10.7
 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
 }
index 5cfbcf2..0cb15f3 100755 (executable)
@@ -11,26 +11,9 @@ if { [string compare $command "shading"] == 0 } {
   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
-###}
index b9ed015..ee66122 100644 (file)
@@ -29,10 +29,6 @@ if { [string compare $command "shading"] == 0 } {
 }
 
 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
     }
index e28b25f..13358e6 100644 (file)
@@ -1,19 +1,6 @@
 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
 
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 5dcb2ad..f91c587 100644 (file)
@@ -1,19 +1,4 @@
-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
 
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 0724aa2..37f5dfc 100644 (file)
@@ -1,18 +1,4 @@
-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
 
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 55ab1b2..dc1b681 100644 (file)
@@ -1,19 +1,4 @@
-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
 
index 433e9bf..1e74ae2 100644 (file)
@@ -1,15 +1,4 @@
-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
 
index c91ddb5..1d8031e 100644 (file)
@@ -3,18 +3,7 @@
 #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
 
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 9a57e51..757301b 100644 (file)
@@ -1,16 +1,6 @@
-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
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 62cfe1d..ecd4f3e 100644 (file)
@@ -1,16 +1,6 @@
-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
index f7745db..92e092a 100644 (file)
@@ -1,7 +1,7 @@
 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
 
index 255cbd2..a543e03 100644 (file)
@@ -1,13 +1,3 @@
-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
index 93baafb..6b3e762 100644 (file)
@@ -1,15 +1,4 @@
-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
index 1b11460..8118c5a 100644 (file)
@@ -1,16 +1,5 @@
 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
 
index f5cc9f7..840942a 100755 (executable)
@@ -22,12 +22,8 @@ if { [info exists test_image ] == 0 } {
 
 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 {