Adding of testing cases from subgroups 937 940 and 941 of CHL group

[occt.git] / tests / bugs / modalg / buc60901

diff --git a/tests/bugs/modalg/buc60901 b/tests/bugs/modalg/buc60901
deleted file mode 100755 (executable)
index 7c9395f..0000000
--- a/tests/bugs/modalg/buc60901
+++ /dev/null
@@ -1,62 +0,0 @@
-
-puts "============"
-puts "BUC60901"
-puts "============"
-puts ""
-################################################################
-## We should get the edges forming a closed intersection line but we see breaks. 
-################################################################
-
-set n 3
-set dx 1
-set sx 20
-set sz 10
-
-set xc [dval (2*$dx+2*$sx)*$n/2]
-set yc 0
-set zc [dval $sz*10]
-set nxc 0.5
-set nyc -0.3
-set nzc 1
-set r [dval $xc*0.9]
-
-set x 0
-set y [dval -$r*1.2]
-set z 0
-set pol "polyline w $x $y $z"
-for {set i 1} {$i <= $n} {incr i} {
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z+$sz]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$dx]
-    set pol "$pol $x $y $z"
-    set x [dval $x+$sx]
-    set z [dval $z-$sz]
-    set pol "$pol $x $y $z"
-}
-
-eval $pol
-circle c $xc $yc $zc $nxc $nyc $nzc $r
-mkedge c c
-
-set lcyl [dval -$zc*2]
-set lcrg [dval -$y*2]
-
-prism cyl c 0 0 $lcyl
-prism crg w 0 $lcrg 0
-bsection result crg cyl
-
-set nb_info [nbshapes result]
-regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
-regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
-
-if { $nb_vertices != $nb_edges } {                                         
-    puts "Section is opened: Faulty shape"
-} else {
-    puts "Section is closed: OK"
-}
-
-set length 350.404
-set 2dviewer 0