Reorganization of bugs testing group

tests/bugs/end

@@ -14,19 +14,11 @@ if { [isdraw result] } {
 	vfit
 	vdump $imagedir/${test_image}.png
     }
-} else {
-    if { [info exists 3dviewer] } {
-	if { ${3dviewer} == 2 } {
-		vdump $imagedir/${test_image}.png
-	}
-    }
 }
-    if { [info exist only_xwd] } {
-	xwd $imagedir/${test_image}.png	
-    }
-#} else {
-#   puts "Error : The command can not be build."
-#}
+
+if { [info exist only_screen] } {
+    vdump $imagedir/${test_image}.png
+}
 
 # to end a test script
 puts "TEST COMPLETED"

tests/bugs/heal/bug208

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC208"
 puts "========"

tests/bugs/heal/bug209

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC209"
 puts "========"

tests/bugs/iges/buc60850

@@ -1,5 +1,5 @@
 puts "==========="
-puts "  BUC60850"
+puts "BUC60850"
 puts "==========="
 
 igesbrep [locate_data_file BUC60850.igs] a *

tests/bugs/iges/buc60894

@@ -1,5 +1,5 @@
 puts "==========="
-puts "  BUC60894"
+puts "BUC60894"
 puts "==========="
 
 cpulimit 3000

tests/bugs/iges/bug156

@@ -9,7 +9,7 @@ puts "========"
 ## SAM392, #289: Crash when you want to import the "waaier_para.igs" file
 #####################################################
 
-igesbrep [locate_data_file Samtech_waaier_para.igs] a *
+igesbrep [locate_data_file waaier_para.igs] a *
 
 tpcompound result
 

tests/bugs/iges/bug89

@@ -1,5 +1,6 @@
 puts "========================"
-puts "BUC60800 OCC89"
+puts "BUC60800"
+puts "OCC89"
 puts "========================"
 
 #######################################################

tests/bugs/modalg/buc60532

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "==========="
 puts "BUC60532"
 puts "==========="

tests/bugs/modalg/buc60532_1

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "==========="
 puts "BUC60532"
 puts "==========="

tests/bugs/modalg/buc60532_2

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "=========="
 puts "BUC60532"
 puts "=========="

tests/bugs/modalg/buc60533

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "=========="
 puts "BUC60533"
 puts "=========="

tests/bugs/modalg/buc60555_1

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "==========="
 puts "BUC60555"
 puts "CUT Case 1"

tests/bugs/modalg/buc60663_1

@@ -23,4 +23,4 @@ if { $num != 2 } {
 #fsameparameter res
 
 set length 26.2001
-set 3dviewer 2
+set 2dviewer 0

tests/bugs/modalg/buc60782_1

@@ -3,7 +3,6 @@ puts "TODO OCC12345 ALL: Exception"
 puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
 puts "TODO OCC12345 ALL: Error : The square of result shape is"
 
-#INTERFACE IGES
 puts "========================"
 puts "BUC60782"
 puts "CASE 1"

tests/bugs/modalg/buc60782_3

@@ -4,7 +4,6 @@ puts "TODO OCC12345 ALL: Faulty BUC60782: mkoffset works wrongly"
 puts "TODO OCC12345 ALL: Error : The square of result shape is"
 
 
-#INTERFACE IGES
 puts "========================"
 puts "BUC60782"
 puts "CASE 3"

tests/bugs/modalg/buc60849

@@ -15,4 +15,5 @@ if { $bndb  > 100.000001 } {
     puts "BUC60849 OK :Bounding box of spherical surface is created properly."
 }
 set square 125663
-set 3dviewer 2
+set 2dviewer 0
+

tests/bugs/modalg/bug109

@@ -30,4 +30,5 @@ if { $tri != 294 && $nod != 300 }  {
 }
 
 set square 33.8757
-set 3dviewer 2
+set only_screen 1
+

tests/bugs/modalg/bug116

@@ -20,4 +20,5 @@ if [catch {chamf result sh sh_6_1 sh_6 A 2 45 sh_6_8 sh_6 A 2 45 } catch_result]
 }
 
 set square 48357.5
-set 3dviewer 2
+set 2dviewer 0
+

tests/bugs/modalg/bug122_2

@@ -1,4 +1,3 @@
-
 puts "================"
 puts "OCC122"
 puts "================"

tests/bugs/modalg/bug122_3

@@ -1,4 +1,3 @@
-
 puts "================"
 puts "OCC122"
 puts "================"

tests/bugs/modalg/bug174

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC174"
 puts "========"

tests/bugs/modalg/bug21

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "================"
 puts "OCC21"
 puts "================"

tests/bugs/modalg/bug221

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC221"
 puts "========"

tests/bugs/modalg/bug234

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========"
 puts "OCC234"
 puts "========"

tests/bugs/modalg/bug291

@@ -12,6 +12,7 @@ tclean result
 vinit
 vdisplay result
 vsetdispmode result 1
+vfit
 
 isos result 0
 triangles result
@@ -30,4 +31,5 @@ if { $tri == 382 && $nod == 343 } {
 }
 
 set square 376.873
-set 3dviewer 2
+set only_screen 1
+

tests/bugs/modalg/bug292

@@ -30,6 +30,7 @@ if { $tri ==6 && $nod == 8} {
     puts " OCC292 : Faulty"
 }
 
-set 3dviewer 2
 set square 1.3135
+set 3dviewer 1
+
 

tests/bugs/modalg/bug293

@@ -66,4 +66,4 @@ vdisplay result
 vfit
 
 set square 9.80214e+06
-set 3dviewer 2
+set only_screen 1

tests/bugs/modalg/bug302_1

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 1)"

tests/bugs/modalg/bug302_2

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 2)"

tests/bugs/modalg/bug302_3

@@ -1,4 +1,3 @@
-#INTERFACE IGES
 puts "========================"
 puts " OCC302 "
 puts "(case 3)"

tests/bugs/modalg/bug322

@@ -27,4 +27,4 @@ QAGetPixelColor $x1 $y1 $Yellow_R $Yellow_G $Yellow_B
 QAGetPixelColor $x2 $y2 $Yellow_R $Yellow_G $Yellow_B
 
 set square 20000
-set 3dviewer 2
+set only_screen 1