From 134735be7b495d3bacedb278495e737c110721dc Mon Sep 17 00:00:00 2001
From: abv <abv@opencascade.com>
Date: Tue, 25 Aug 2015 19:40:56 +0300
Subject: [PATCH] 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
---
 tests/boolean/gdml_private/O1 |  2 +-
 tests/bugs/modalg_6/bug26308  | 14 +++-----------
 tests/draft/angle/G8          |  3 ---
 3 files changed, 4 insertions(+), 15 deletions(-)

diff --git a/tests/boolean/gdml_private/O1 b/tests/boolean/gdml_private/O1
index ffb1617689..822cf55166 100644
--- a/tests/boolean/gdml_private/O1
+++ b/tests/boolean/gdml_private/O1
@@ -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]
 
diff --git a/tests/bugs/modalg_6/bug26308 b/tests/bugs/modalg_6/bug26308
index 2bd85abb89..4e9d1863ad 100644
--- a/tests/bugs/modalg_6/bug26308
+++ b/tests/bugs/modalg_6/bug26308
@@ -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
diff --git a/tests/draft/angle/G8 b/tests/draft/angle/G8
index 86c36c44de..488fe34ddd 100644
--- a/tests/draft/angle/G8
+++ b/tests/draft/angle/G8
@@ -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
-- 
2.39.5