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/bug7186
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

59 lines
1.2 KiB
Plaintext
Executable File

puts "============"
puts "OCC7186"
puts "============"
puts ""
######################################################
# Selecting an empty space with rectangle doesn't clear
# the current selection, when there is an opened local context
######################################################
set BugNumber OCC7186
set mistake 0
box b 10 10 10
vinit
vdisplay b
vfit
vselmode 2 1
vselect 1 1 407 407
set NbSelected1 [vnbselected]
if { ${NbSelected1} != 12 } {
puts "Bad number of selected edges after rectangle selection all edges"
set mistake 1
}
vselect 10 10 20 20
set NbSelected2 [vnbselected]
if { ${NbSelected2} != 0 } {
puts "Error : Bad number of selected edges after rectangle selection an empty space"
set mistake 1
}
set x [list 125 204 283 29 111 298 379 125 204 283 125 283]
set y [list 47 100 47 200 150 150 200 250 300 250 361 361]
puts ""
for {set i 0} {$i < 12} {incr i} {
set x_coord [lindex ${x} $i]
set y_coord [lindex ${y} $i]
checkcolor $x_coord $y_coord 1 1 0
if { ${stat} != 1 } {
set mistake 1
}
}
puts ""
if { ${mistake} == 1 } {
puts "${BugNumber}: Faulty"
} else {
puts "${BugNumber}: OK"
}
set only_screen 1