0026118: Implement FastSewing algorithm

[occt.git] / tests / sewing / fast / A6

diff --git a/tests/sewing/fast/A6 b/tests/sewing/fast/A6
new file mode 100644 (file)
index 0000000..9de064b
--- /dev/null
+++ b/tests/sewing/fast/A6
@@ -0,0 +1,49 @@
+if { [regexp {Debug mode} [dversion]] } {
+  if { [regexp {Windows} [dversion]] } {
+    set max_time 9
+  } else {
+    set max_time 9
+  }
+} else {
+  if { [regexp {Windows} [dversion]] } {
+    set max_time 3
+  } else {
+    set max_time 3
+  }
+}
+
+restore [locate_data_file Pipe_Full.brep] a
+
+dchrono ch reset
+dchrono ch start
+puts [fastsewing result -tol 5.0e-4 a]
+dchrono ch stop
+
+set q [dchrono ch show]
+
+regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
+puts "$z"
+
+if { $z > ${max_time} } {
+    puts "Elapsed time is more than ${max_time} seconds - Error"
+} else {
+    puts "Elapsed time is less than ${max_time} seconds - OK"
+}
+
+donly result
+checkshape result
+
+set nbshapes_expected "
+Number of shapes in shape
+ VERTEX    : 5327
+ EDGE      : 10656
+ WIRE      : 5326
+ FACE      : 5326
+ SHELL     : 1
+ SOLID     : 0
+ COMPSOLID : 0
+ COMPOUND  : 1
+ SHAPE     : 26637
+"
+
+checknbshapes result -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"