0023403: Crash when parsing an expression with lexical error

[occt.git] / tests / bugs / demo / CR23410

puts "============"
puts "CR23410"
puts "============"
puts ""
#######################################################################
# QA comamnds don't work properly in new testing system
#######################################################################
pload QAcommands

set r_1 0.4
set r_2 0.5
set g_1 0.9
set g_2 1
set b_1 0
set b_2 0.1
set x1 128
set y1 235
box result 100 100 100
vdisplay result
vsetdispmode 1
vfit
vsetcolor result GREEN
set color [ QAGetPixelColor ${x1} ${y1} ]
regexp {RED +: +([-0-9.+eE]+)} $color full rd
regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
regexp {BLUE +: +([-0-9.+eE]+)} $color full bl

set red_status 0
if { $rd < $r_1 || $rd > $r_2 } {
    set red_status 1
} else {
    set red_status 0
}

set green_status 0
if { $gr < $g_1 || $gr > $g_2 } {
    set green_status 1
} else {
    set green_status 0
}

set blue_status 0
if { $bl < $b_1 || $bl > $b_2 } {
    set blue_status 1
} else {
    set blue_status 0
}

if { $red_status != 0 || $green_status != 0 || $blue_status != 0 } {
    puts "Error : color are not equal"
    puts "Error : QA command QAGetPixelColor doesn't work properly"
}
set 3dviewer 1