1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00

Adjustment of test cases

- bugs modalg_6 bug26238: check real values with tolerance to avoid false failures due to numeric deviations
- draft angle G8: removed TODOs that do not exhibit in 6.9.1 branch
- boolean gdml_private O1: unstable
This commit is contained in:
abv 2015-08-25 19:40:56 +03:00
parent b01be5abf8
commit 134735be7b
3 changed files with 4 additions and 15 deletions

View File

@ -1,3 +1,3 @@
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]

View File

@ -26,14 +26,6 @@ set bug_info_x [string trim [string range $bug_info_x [expr {[string last "\n" $
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

View File

@ -1,8 +1,5 @@
#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