Adjusting testing cases for current state of OCCT

diff --git a/tests/bugs/vis/bug23120 b/tests/bugs/vis/bug23120
index 495a3c8..b17153d 100755 (executable)
--- a/tests/bugs/vis/bug23120
+++ b/tests/bugs/vis/bug23120
@@ -36,12 +36,24 @@ if { [string compare $tcl_platform(os) "Windows NT"] == 0 }  {
   set b_check 0.094117000000000006
 }
 
   set b_check 0.094117000000000006
 }
 

+set r_check [expr int($r_check * 1.e5)]
+set g_check [expr int($g_check * 1.e5)]
+set b_check [expr int($b_check * 1.e5)]
+
+puts "r_check=$r_check"
+puts "g_check=$g_check"
+puts "b_check=$b_check"
+

 set color1 [ QAGetPixelColor ${x1} ${y1} ]
 
 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
 
 set color1 [ QAGetPixelColor ${x1} ${y1} ]
 
 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
 regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1
 

+set rd1 [expr int($rd1 * 1.e5)]
+set gr1 [expr int($gr1 * 1.e5)]
+set bl1 [expr int($bl1 * 1.e5)]
+

 puts "rd1=$rd1"
 puts "gr1=$gr1"
 puts "bl1=$bl1"
 puts "rd1=$rd1"
 puts "gr1=$gr1"
 puts "bl1=$bl1"

diff --git a/tests/bugs/xde/bug23193 b/tests/bugs/xde/bug23193
index d4a0793..8e921e4 100755 (executable)
--- a/tests/bugs/xde/bug23193
+++ b/tests/bugs/xde/bug23193
@@ -17,7 +17,7 @@ if { [string compare $os "windows"] == 0 } {
     set aFile /tmp/bug23193_sample.stl
 }
 
     set aFile /tmp/bug23193_sample.stl
 }
 

-catch {exec rm -f ${aFile}}
+file delete ${aFile}

 if { [file exists ${aFile}] } {
    puts "Error : There is old ${aFile} file"
 }
 if { [file exists ${aFile}] } {
    puts "Error : There is old ${aFile} file"
 }