0023471: Intersection algorithm produces overlapping intersection curves
[occt.git] / tests / bugs / moddata_2 / bug567
index dbfa54d..e8f5fe2 100755 (executable)
@@ -11,11 +11,19 @@ puts ""
 restore [locate_data_file OCC567a.draw] s1 
 restore [locate_data_file OCC567b.draw] s2 
 
+if { [string compare $tcl_platform(platform) "windows"] == 0 }  {
+   puts "OS = Windows NT"
+   set N_repeat 10
+} else {
+   puts "OS = Linux"
+   set N_repeat 11
+}
+
 if { [catch {intersect i s1 s2 } catch_result] } {
     puts "Faulty OCC565: function intersection works wrongly with infinite Surfaces"
 } else {
    set j 1
-   repeat 11 {
+   repeat ${N_repeat} {
    set err [lindex [whatis i_$j] 5]
      if { $err != "curve"} {
        puts " Faulty OCC565: function intersection works wrongly with infinite Surfaces"