0027901: Resource_Manager creates directory with insufficient permissions

[occt.git] / tests / bugs / fclasses / bug7287_5

diff --git a/tests/bugs/fclasses/bug7287_5 b/tests/bugs/fclasses/bug7287_5
index 61140a4..4e6b933 100755 (executable)
--- a/tests/bugs/fclasses/bug7287_5
+++ b/tests/bugs/fclasses/bug7287_5
@@ -1,3 +1,7 @@
+puts "TODO ?OCC25921 Linux: Tcl Exception: Memory leak detected"
+puts "TODO ?OCC25921 Linux: TEST INCOMPLETE"
+
+
 puts "============"
 puts "OCC7287"
 puts "============"
@@ -12,17 +16,15 @@ puts ""
 
 set BugNumber OCC7287
 
-set NCycles 1000
+set NCycles 10
 box b1 10 10 10 100 100 100
 box b2 50 50 50
-bop b1 b2
 
+set listmem {}
 for {set i 1} {${i} <= ${NCycles}} {incr i } {
+    bop b1 b2
     bopfuse r
 
-    lappend listmem [expr [meminfo w] / 1024]
-    if { [checktrend $listmem 0 1 "Memory leak detected"] } {
-       puts "No memory leak, $i iterations"
-       break
-    }
+    lappend listmem [meminfo h]
+    checktrend $listmem 0 100 "Memory leak detected"
 }