From 806b45f2f2fa920998cb69e958c9b7bb07b2c32c Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 23 Apr 2015 12:32:53 +0300
Subject: [PATCH] 0025670: Incorrect sprops/vprops/lprops check in heal
 drop_small_solids test cases

Procedure cmpprops in tests/heal/drop_small_solids/end is modified to correctly access top-level variables
---
 tests/heal/drop_small_solids/end | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/tests/heal/drop_small_solids/end b/tests/heal/drop_small_solids/end
index 0ffa046a00..49bd515d35 100644
--- a/tests/heal/drop_small_solids/end
+++ b/tests/heal/drop_small_solids/end
@@ -9,9 +9,10 @@ proc parseprops a {
     ]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)[\t ]+([-0-9.+eE]+)} $a]
 }
 
-proc cmpprops {cmd a b} {
-  set aa [parseprops [$cmd $a]]
-  set bb [parseprops [$cmd $b]]
+proc cmpprops {cmd shape1 shape2} {
+  upvar $shape1 a $shape2 b
+  set aa [parseprops [$cmd a]]
+  set bb [parseprops [$cmd b]]
   for {set i 1} {$i < [llength $aa]} {incr i} {
     if {[expr abs([lindex $aa $i] - [lindex $bb $i])] > 1e-8} {return 0}
   }