0030829: BRepExtrema_ShapeProximity crashes with shape from STL/WRL

[occt.git] / tests / bugs / end

diff --git a/tests/bugs/end b/tests/bugs/end
index 38b1e60..3de4bb4 100755 (executable)
--- a/tests/bugs/end
+++ b/tests/bugs/end
@@ -1,25 +1,10 @@
-if { [isdraw result] } {
-    if { [info exists 2dviewer] } {
-       clear
-       smallview
-       donly result
-       fit
-       xwd $imagedir/${test_image}.png
-    }
-    if { [info exists 3dviewer] } {
-       vinit
-       vclear
-       vdisplay result
-       vsetdispmode 1
-       vfit
-       vdump $imagedir/${test_image}.png
-    }
-}
-
-if { [info exist only_screen] } {
-    vdump $imagedir/${test_image}.png
+if { [info exists rel_tol] && $rel_tol > 0 } {
+  puts "\nChecking triangulation area (triarea command)..."
+  set rel_err [expr abs([CheckTriArea result $area_eps])]
+  if { [info exists max_rel_tol_diff] && $max_rel_tol_diff > 0 } {
+    checkreal "area difference" $rel_err $rel_tol $max_rel_tol_diff 0
+  }
 }
 
 # to end a test script
 puts "TEST COMPLETED"
-