From: apn <apn@opencascade.com>
Date: Tue, 12 Mar 2013 13:26:24 +0000 (+0400)
Subject: 0021308: Problem of Interface_Tracefile. There are not messages.
X-Git-Tag: V6_6_0_beta~23
X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=commitdiff_plain;h=0dc98b5b0a573ff51325c2dfeb89140ed2b8ec51

0021308: Problem of Interface_Tracefile. There are not messages.

Added test case for issue 21308
---

diff --git a/tests/bugs/xde/bug21308 b/tests/bugs/xde/bug21308
new file mode 100644
index 0000000000..7566ef826b
--- /dev/null
+++ b/tests/bugs/xde/bug21308
@@ -0,0 +1,27 @@
+puts "================"
+puts "OCC21308"
+puts "================"
+puts ""
+######################################################################################
+# Problem of Interface_Tracefile. There are not messages.
+######################################################################################
+
+igesbrep [locate_data_file annie_surf.igs] a *
+
+set out [tpstat c]
+set err 0
+set nb [llength $out]
+if { $nb == 0 } {
+    set err 1
+}
+
+regexp {[ \t]*([-0-9.+eE]+)[ \t]*W:126 } $out full val
+if { $val == 0 } {
+    set err 1
+}
+
+if { $err != 0 } {
+    puts "Error : No output warnings from command tpstat"
+} else {
+    puts "OK : Command tpstat works properly"
+}