-puts "TODO OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
+puts "TODO ?OCC26018 ALL: Faulty shapes in variables faulty_1 to faulty_"
source [locate_data_file 20000_h1-2_et5_401-ta13429.prt.2.gdml.tcl]
set bug_info_y [string trim [string range $bug_info_y [expr {[string last "\n" $bug_info_y] + 1}] [expr {[string length $bug_info_y] - 1}]]]
set bug_info_z [string trim [string range $bug_info_z [expr {[string last "\n" $bug_info_z] + 1}] [expr {[string length $bug_info_z] - 1}]]]
-if {$bug_info_x != -5.42659125962715e+207} {
- puts "ERROR: OCC26308 is reproduced. X value is incorrect."
-}
-
-if {$bug_info_y != 2.90803974424011e+209} {
- puts "ERROR: OCC26308 is reproduced. Y value is incorrect."
-}
-
-if {$bug_info_z != -3.1731154470359e+207} {
- puts "ERROR: OCC26308 is reproduced. Z value is incorrect."
-}
+checkreal "X value" $bug_info_x -5.42659125962715e+207 0. 1e-9
+checkreal "X value" $bug_info_y 2.90803974424011e+209 0. 1e-9
+checkreal "X value" $bug_info_z -3.1731154470359e+207 0. 1e-9
#F6----------------------------------------------
-#puts "TODO OCC22803 Linux: Error in depouille"
-#puts "TODO OCC22803 Linux: Error : The skin cannot be built."
puts "TODO OCC22803 Linux Windows: Faulty shapes in variables faulty_1 to faulty_"
-puts "TODO OCC22803 Linux Windows: Error : The area of the resulting shape is"
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
mkedge bc bc