1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-07-20 12:45:50 +03:00
occt/tests/bugs/vis/buc60632_2
apn 4e3aa6b76e 0024223: Review of unstable test cases
Modified TODOs in unstable test cases
2013-11-01 10:39:46 +04:00

29 lines
467 B
Plaintext
Executable File

if { [array get env os_type] != "" } {
set os $env(os_type)
}
if { [string compare $os "windows"] != 0 } {
}
puts "================"
puts "BUC60632"
puts "================"
vinit
BUC60632 1 100
vfit
vmoveto 126 143
puts "Highlighting by 'Move To' command in shading mode"
set x_coord 128
set y_coord 143
checkcolor $x_coord $y_coord 0 1 1
if { $stat != 1 } {
puts "Error : Highlighting by Move To command in shading mode is WRONG."
}
set only_screen 1