From: apn <apn@opencascade.com>
Date: Fri, 24 Apr 2015 10:18:48 +0000 (+0300)
Subject: Updated test case so that the output of each "dump" is checked against toroidal surfa... 
X-Git-Tag: V6_9_0_beta2~2
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=08f906ff37ebd9ac561eb69f502a8d2a5530b7f8;p=occt-copy.git

Updated test case so that the output of each "dump" is checked against toroidal surface type (SurfaceOfRevolution is considered as an error).
---

diff --git a/tests/bugs/modalg_5/bug23954 b/tests/bugs/modalg_5/bug23954
index 7aefad4686..80ba5a7c48 100644
--- a/tests/bugs/modalg_5/bug23954
+++ b/tests/bugs/modalg_5/bug23954
@@ -1,3 +1,5 @@
+puts "TODO OCC23954 ALL: Error: result is not Toroidal surface"
+
 puts "============"
 puts "OCC23954"
 puts "============"
@@ -12,8 +14,11 @@ circle c_3 0 100 0 1 0 0 0 -1 0 100
 circle c_4 0 100 0 1 0 0 0 0 1 10
 circle c_5 0 100 0 1 0 0 0 0 1 120
 for { set i 1 } { $i <= 5 } { incr i } {
-    mkedge e c_$i
-    revol r e 0 0 0 0 0 1 90
-    mksurface s_$i r
-    dump s_$i
+  mkedge e c_$i
+  revol r e 0 0 0 0 0 1 90
+  mksurface s_$i r
+  set info [dump s_$i]
+  if { [regexp "SurfaceOfRevolution" $info] == 1 } {
+    puts "Error: result is not Toroidal surface"
+  }
 }