23963a92 |
1 | puts "============" |
2 | puts "CR26779" |
3 | puts "============" |
4 | puts "" |
5 | |
6 | ########################################################################################## |
7 | puts "Draw Harness, ViewerTest - vstate output is incorrect for sub-shapes selection without opening local context" |
8 | ########################################################################################## |
9 | |
10 | pload MODELING VISUALIZATION |
11 | |
12 | box b1 1 2 3 |
13 | box b2 5 5 5 1 1 1 |
14 | |
15 | vclear |
16 | vclose ALL |
17 | vinit View1 |
18 | vaxo |
19 | vsetdispmode 1 |
20 | vdisplay b1 |
21 | vfit |
22 | |
23 | vselmode b1 4 1 |
24 | vselect 300 300 |
25 | set anInfo [split [vstate] "\n"] |
26 | set aItem1 [lindex $anInfo 0] |
27 | set aItem2 [string trim [lindex $anInfo 1] ] |
28 | set aSize [llength $anInfo] |
29 | if {$aSize != 3 || [string compare $aItem1 "Locally selected sub-shapes within b1:"] != 0 || [string compare $aItem2 "Face #2"] != 0} { |
30 | puts "ERROR: vstate output for selected face is incorrect" |
31 | } |
32 | |
33 | vdisplay b2 |
34 | vfit |
35 | |
36 | vselect 350 120 1 |
37 | set anInfo [split [vstate *] "\n"] |
38 | set aItem1 [string trim [lindex $anInfo 1] ] |
39 | set aItem2 [string trim [lindex $anInfo 2] ] |
40 | set aItem3 [string trim [lindex $anInfo 4] ] |
41 | set aSize [llength $anInfo] |
42 | puts $aItem1 |
43 | puts $aItem2 |
44 | puts $aSize |
45 | if {$aSize != 6} { |
46 | puts "ERROR: vstate output for shift selection is incorrect" |
47 | } |
48 | if {[string compare $aItem1 "b1 Displayed Type: AIS_Shape (AIS_Shape)"] != 0 && |
49 | [string compare $aItem2 "b1 Displayed Type: AIS_Shape (AIS_Shape)"] != 0} { |
50 | puts "ERROR: no info about object b1 in vstate output" |
51 | } |
52 | if {[string compare $aItem1 "b2 Displayed Selected Detected Type: AIS_Shape (AIS_Shape)"] != 0 && |
53 | [string compare $aItem2 "b2 Displayed Selected Detected Type: AIS_Shape (AIS_Shape)"] != 0} { |
54 | puts "ERROR: no info about object b2 in vstate output" |
55 | } |
56 | if {[string compare $aItem3 "Face #2"] != 0} { |
57 | puts "ERROR: vstate output for selected face in test part 2 is incorrect" |
58 | } |
59 | |
5747059b |
60 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |