From: ski <ski@opencascade.com>
Date: Wed, 21 Jan 2015 08:53:27 +0000 (+0300)
Subject: 0024898: Test "bugs modalg_1 buc60782_1" is incorrect
X-Git-Tag: V6_9_0_beta~70
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=e94f2bfb11e5ce9d8416060041863a2e5b969ff8;p=occt-copy.git

0024898: Test "bugs modalg_1 buc60782_1" is incorrect

Test case was corrected.
---

diff --git a/tests/bugs/modalg_1/buc60782_1 b/tests/bugs/modalg_1/buc60782_1
index 0cc51d71a2..f23dab60e0 100755
--- a/tests/bugs/modalg_1/buc60782_1
+++ b/tests/bugs/modalg_1/buc60782_1
@@ -1,9 +1,3 @@
-puts "TODO ?OCC12345 ALL: An exception was caught"
-puts "TODO ?OCC12345 ALL: \\*\\* Exception"
-puts "TODO ?OCC12345 ALL: Error: Offset is not done."
-puts "TODO ?OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
-puts "TODO ?OCC12345 ALL: Error : The square of result shape is"
-
 puts "========================"
 puts "BUC60782"
 puts "CASE 1"
@@ -27,14 +21,13 @@ if { [regexp {OK} $che ] != 1} {
 } else {
     puts "Checking of SOURCE shape by checkshape - OK"
     if [catch { mkoffset result a 1 10 } catch_result] {
-	puts "Faulty BUC60782: mkoffset works wrongly"
-	renamevar a result
+      puts "Faulty BUC60782: mkoffset works wrongly"
+      renamevar a result
     } else {
-	puts "OK BUC60782: offset is created"
-	compound result_1 a result
-        
-    }    
+      puts "OK BUC60782: offset is created"
+      renamevar result_1 result
+    }
 }
 
-set square 4.24716e+006
+set length 9026.65
 set 2dviewer 0