1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00

Adjusting testing cases for current state of OCCT

This commit is contained in:
bugmaster 2012-11-27 13:47:01 +04:00
parent bd7ad48c54
commit bba0504021
2 changed files with 13 additions and 1 deletions

View File

@ -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} ] set color1 [ QAGetPixelColor ${x1} ${y1} ]
regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1 regexp {RED +: +([-0-9.+eE]+)} $color1 full rd1
regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1 regexp {GREEN +: +([-0-9.+eE]+)} $color1 full gr1
regexp {BLUE +: +([-0-9.+eE]+)} $color1 full bl1 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 "rd1=$rd1"
puts "gr1=$gr1" puts "gr1=$gr1"
puts "bl1=$bl1" puts "bl1=$bl1"

View File

@ -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}] } { if { [file exists ${aFile}] } {
puts "Error : There is old ${aFile} file" puts "Error : There is old ${aFile} file"
} }