X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fmodalg_5%2Fbug25124_4;h=916a82e7811da514c17bab174e5fb603ed1358c1;hb=3d58dc498b209fa937919a4a69a81a83657ef2f9;hpb=68cdb44b0aa49d4672fb43f5c7fae69f9dc7b4b8

diff --git a/tests/bugs/modalg_5/bug25124_4 b/tests/bugs/modalg_5/bug25124_4
new file mode 100644
index 0000000000..916a82e781
--- /dev/null
+++ b/tests/bugs/modalg_5/bug25124_4
@@ -0,0 +1,38 @@
+puts "========"
+puts "OCC25124"
+puts "========"
+puts ""
+######################################################
+# Removal of continuity checks for offset geometries
+######################################################
+
+smallview
+
+point pp 0 0 1
+circle cc 20 40 30 20
+convert bc cc
+trim bc bc 1 6
+offsetcurve oc bc 10 pp
+trim bc oc 2 5
+extsurf se bc 0 0 1
+offset os se 15
+
+set bug_info [getsurfcontinuity se]
+getsurfcontinuity os
+
+if {[string compare $bug_info "se has G1 continuity.\n"] != 0} {
+  puts "ERROR: OCC25124 is reproduced (se does not have G1 continuity)."
+}
+
+set bug_info_1 [dump se]
+set bug_info_1 [string range $bug_info_1 39 [expr {[string length $bug_info_1] -1}]]
+set bug_info_2 [dump os]
+set bug_info_2 [string range $bug_info_2 39 [expr {[string length $bug_info_2] -1}]]
+if {[string compare $bug_info_1 $bug_info_2] == 0} {
+  puts "ERROR: OCC25124 is reproduced (se = os)."
+}
+
+donly os se
+fit
+
+set only_screen_axo 1