0024174: [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
[occt.git] / tests / bugs / modalg_5 / bug24174_2
diff --git a/tests/bugs/modalg_5/bug24174_2 b/tests/bugs/modalg_5/bug24174_2
new file mode 100644 (file)
index 0000000..fe0c52a
--- /dev/null
@@ -0,0 +1,41 @@
+puts "========================"
+puts "OCC24174"
+puts "========================" 
+puts ""
+#######################################################################
+# [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
+#######################################################################
+
+pload XSDRAW
+
+restore [locate_data_file  bug24174_stitch.brep] a
+
+sewing result 0.1 a
+
+# 0
+set log_1 [tolmax a]
+regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a
+set CMP_TOL ${MaxTolerance_a}
+
+# 1
+checkshape result
+
+# 2
+set log_2 [tolmax result]
+regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_result
+if { ${MaxTolerance_result} > ${CMP_TOL} } {
+   puts "Error: invalid tolerance"
+}
+
+# 3
+freebounds $result 0
+set s [explode result_c e]
+
+set Number [ llength ${s} ]
+puts "Number of free edges is ${Number}"
+set Number_Free_Edges 9
+if { ${Number} != ${Number_Free_Edges} } {
+   puts "Error : Number of free edges is ${Number}"
+}
+
+set 2dviewer 1