0024898: Test "bugs modalg_1 buc60782_1" is incorrect
[occt.git] / tests / bugs / modalg_1 / buc60782_1
index 0cc51d7..f23dab6 100755 (executable)
@@ -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