X-Git-Url: http://git.dev.opencascade.org/gitweb/?p=occt.git;a=blobdiff_plain;f=tests%2Fbugs%2Fvis%2Fbug27986_2;h=055f0e1011aaccf9a178a0eb48f1c861335e83cf;hb=7bbccb5f4ecb56fec2697d895188676cc22e88f7;hpb=d94bed0e2677f081d10895db4bc42e24574349a4

diff --git a/tests/bugs/vis/bug27986_2 b/tests/bugs/vis/bug27986_2
new file mode 100644
index 0000000000..055f0e1011
--- /dev/null
+++ b/tests/bugs/vis/bug27986_2
@@ -0,0 +1,24 @@
+puts "==========="
+puts "OCC27986"
+puts "Visualization - AIS_InteractiveContext::SetLocation() does not update dynamic highlighting"
+puts "Test local selection"
+puts "==========="
+puts ""
+
+pload MODELING VISUALIZATION
+box b 1 2 3
+
+vclear
+vinit View1
+vaxo
+vdisplay -dispMode 0 -highMode 1 b
+vfit
+vzoom 0.5
+vselmode b 4 1
+vmoveto 250 250
+vsetlocation b 2 1 0
+set aColor1 [vreadpixel 220 200 rgb name]
+set aColor2 [vreadpixel 350 220 rgb name]
+if { "$aColor1" != "BLACK" || "$aColor2" != "DARKTURQUOISE" } { puts "Error: dynamic highlighting is not updated" }
+
+vdump $imagedir/${casename}.png