6 ##########################################################################################
7 puts "Draw Harness, ViewerTest - vstate output is incorrect for sub-shapes selection without opening local context"
8 ##########################################################################################
10 pload MODELING VISUALIZATION
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"
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]
46 puts "ERROR: vstate output for shift selection is incorrect"
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"
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"
56 if {[string compare $aItem3 "Face #2"] != 0} {
57 puts "ERROR: vstate output for selected face in test part 2 is incorrect"
60 checkview -screenshot -3d -path ${imagedir}/${test_image}.png