2015-12-05 10:58 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

+ tests/getblock.prg
    + added test code for GET SetGet block for aliased macro variables

tests/getblock.prg

@@ -0,0 +1,60 @@
+/*
+ * Harbour Project source code:
+ *    test code for GET SetGet block for aliased macro variables
+ *
+ * Copyright 2015 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
+ * www - http://harbour-project.org
+ */
+
+PROCEDURE Main()
+
+   LOCAL GetList := {}, aStr
+   MEMVAR idx, fld, als
+   PRIVATE idx, fld, als
+
+   aStr := { { "F1", "C", 10, 0 }, ;
+             { "F2", "C", 10, 0 } }
+
+   dbCreate( "_tst1", aStr )
+   USE _tst1 NEW
+   dbAppend()
+   field->F1 := "FIRST"
+   field->F2 := "SECOND"
+
+   dbCreate( "_tst2", aStr )
+   USE _tst2 NEW
+   dbAppend()
+   field->F1 := "first"
+   field->F2 := "second"
+   Select( 1 )
+
+   CLS
+
+   idx := "1"
+   fld := "F" + idx
+   als := "_tst" + idx
+
+   @  1, 0 GET f&idx
+   @  2, 0 GET field->f&idx
+   @  3, 0 GET _tst1->f&idx
+   @  4, 0 GET &als->f&idx
+   @  5, 0 GET _tst&idx->f&idx
+
+   @  7, 0 GET &fld
+   @  8, 0 GET field->&fld
+   @  9, 0 GET _tst1->&fld
+   @ 10, 0 GET &als->&fld
+   @ 11, 0 GET _tst&idx->&fld
+
+   @ 13, 0 GET &als->F1
+   @ 14, 0 GET _tst&idx->F1
+
+   InKey( 0 )
+
+   idx := "2"
+   fld := "F" + idx
+   als := "_tst" + idx
+
+   READ
+
+RETURN