tests: improve dot units test

git-svn-id: trunk@24248 -

tests/test/tdotunits2.pp

@@ -1,4 +1,3 @@
-{%norun}
 program tdotunits2;
 
 {$mode delphi}
@@ -8,6 +7,11 @@ uses
 
 begin
   // this identifier should be resolved to test variable from udots.dot unit
-  udots.dot.test := 'c';
+  udots.dot.test := 'a';
+  if udots.dot.test <> 'a' then
+    halt(1);
+  udots.dot.t;
+  if udots.dot.test <> 'c' then
+    halt(2);
 end.
 

tests/test/udots.dot.pp

@@ -5,6 +5,8 @@ interface
 var
   test: char;
 
+procedure t;
+
 implementation
 
 uses