Adjusting testing cases

[occt.git] / tests / bugs / step / bug46

diff --git a/tests/bugs/step/bug46 b/tests/bugs/step/bug46
index 0571184..33fbbaa 100755 (executable)
--- a/tests/bugs/step/bug46
+++ b/tests/bugs/step/bug46
@@ -1,3 +1,13 @@
+set os $env(os_type)
+if { [string compare $os "windows"] == 0 } {
+#     puts "TODO OCC23561 $os: child process exited abnormally"
+} else {
+    puts "TODO OCC23561 ALL: An exception was caught"
+    puts "TODO OCC23561 ALL: Tcl Exception:"
+    puts "TODO OCC23561 ALL: \\*\\* Exception \\*\\*.*"
+}
+puts "TODO OCC23561 ALL: TEST INCOMPLETE"
+
 puts "================"
 puts "OCC46"
 puts "================"