19991017-08:51 GMT+1

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19991017-08:51 GMT+1 Victor Szel <info@szelvesz.hu>
+   * tests/Makefile
+     + tstalias.prg added
+   * tests/tstalias.prg
+     + CVS ID header added
+
 19991016-22:40 GMT+8 Ron Pinkas <Ron@Profit-Master.com>
    * harbour.y
 	  + added support for _FIELD->Expression and _FIELD->ALIAS->Expression

harbour/tests/Makefile

@@ -149,6 +149,7 @@ PRG_SOURCES=\
         testrdd.prg \
         testvars.prg \
         testwarn.prg \
+        tstalias.prg \
         tstcolor.prg \
         val.prg \
         version.prg \

harbour/tests/tstalias.prg

@@ -1,23 +1,27 @@
+/*
+ * $Id$
+ */
+
 FUNCTION Main()
 
-	USE TEST
+   USE TEST
 
-	REPLACE Age WITH 1
-	? FIELD->Age
+   REPLACE Age WITH 1
+   ? FIELD->Age
 
-	//REPLACE 1->Age WITH 2 // Todo: complete support in harbour.y - AliasAddInt()
-	//? FIELD->Age
+   //REPLACE 1->Age WITH 2 // Todo: complete support in harbour.y - AliasAddInt()
+   //? FIELD->Age
 
-	//REPLACE 1.5->Age WITH 3 // Will produce "Invalid alias expression"
-	//? FIELD->Age
+   //REPLACE 1.5->Age WITH 3 // Will produce "Invalid alias expression"
+   //? FIELD->Age
 
-	REPLACE TEST->Age WITH 4
-	? FIELD->Age
+   REPLACE TEST->Age WITH 4
+   ? FIELD->Age
 
-	TEST->Age := 5
-	? FIELD->Age
+   TEST->Age := 5
+   ? FIELD->Age
 
-	TEST->( FieldPut( FieldPos( 'AGE' ), 6 ) )
-	? FIELD->Age
+   TEST->( FieldPut( FieldPos( 'AGE' ), 6 ) )
+   ? FIELD->Age
 
 return NIL