mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-09 18:50:54 +03:00
9fe1ada847
Fix double freeing of memory in case when lexical error is detected by parser: - revert previous fix, instead nullify the global buffer after its freeing in ExprIntrp_stop_string(). Added new QA command CR23403 and test case
59 lines
1.1 KiB
Plaintext
Executable File
59 lines
1.1 KiB
Plaintext
Executable File
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
|
|
|
|
|
|
|
|
|
|
|