1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-10 18:51:21 +03:00
occt/tests/bugs/vis/buc60738
aba 4754e16481 0023539: QASelect and QAShiftSelect commands
Replaced QAMoveTo, QASelect and QAShiftSelect draw commands with vmoveto and vselect
Moved vselect and vmoveto draw commands to ViewerTest_ViewerCommands.cxx
Replaced  QAMoveTo and QASelect in test cases. Corrected returned error case result in vselect and vmoveto.
Added commands in ViewerTest_ViewerCommands from QADraw. Edited tests.
QACommands in tests were replaced with ViewerTest commands.
QAxwd command was removed from QADraw. Edited command wzoom and commands from ViewerTest.
Help for ViewerTest commands was edited
Small corrections. Added test cases for polygonal selection.
Small correction of test cases
2013-01-18 14:22:14 +04:00

35 lines
864 B
Plaintext
Executable File

### by apn (no regresion in CR23352_3
###if { [array get env os_type] != "" } {
### set os $env(os_type)
###}
###if { [string compare $os "windows"] == 0 } {
puts "TODO ?OCC12345 ALL: Error : Colors are not equal in default coordinate and in the near coordinates too"
puts "TODO ?OCC12345 ALL: Error : The style of edge is NOT dash"
### by apn: Image is not correct on WNT
###}
puts "========================"
puts "BUC60738"
puts "========================"
puts ""
puts "=================================="
puts "It takes visual check for this BUG"
puts "=================================="
vinit
BUC60738
vfit
vsetdispmode 1
set x_coord 261
set y_coord 314
checkcolor $x_coord $y_coord 0 1 0
if {$stat != 1} {
puts "Error : The style of edge is NOT dash"
}
set only_screen 1