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

[occt.git] / tests / bugs / modalg_3 / bug5805_50

diff --git a/tests/bugs/modalg_3/bug5805_50 b/tests/bugs/modalg_3/bug5805_50
new file mode 100755 (executable)
index 0000000..53dbd0e
--- /dev/null
+++ b/tests/bugs/modalg_3/bug5805_50
@@ -0,0 +1,44 @@
+puts "============"
+puts "OCC5805"
+puts "============"
+
+#######################################################################
+# BRepOffsetAPI_MakeThickSolid behaves unstably and produces very different results.
+#######################################################################
+
+set BugNumber OCC5805
+
+# pcone
+pcone s 30 5 20
+
+set distance -0.5
+catch { OFFSETSHAPE $distance {s_2} $calcul $type }
+
+
+set square 12150
+
+set nb_v_good 4
+set nb_e_good 6
+set nb_w_good 6
+set nb_f_good 5
+set nb_sh_good 1
+set nb_sol_good 1
+set nb_compsol_good 0
+set nb_compound_good 0
+set nb_shape_good 23
+
+
+set index [lsearch [whatis s] Closed]
+if {$index == -1} {
+  puts "Faulty ${BugNumber} : s is not Closed shape"
+  
+}
+
+set index [lsearch [whatis result] Closed]
+if {$index == -1} {
+  puts "Faulty ${BugNumber} : result is not Closed shape"
+  
+}
+
+
+set 2dviewer 0