From 8fa196d67dad32ffe2a4c1fc3efc833f4bfcb6ff Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 17 Oct 1999 07:03:16 +0000 Subject: [PATCH] 19991017-08:51 GMT+1 --- harbour/ChangeLog | 6 ++++++ harbour/tests/Makefile | 1 + harbour/tests/tstalias.prg | 30 +++++++++++++++++------------- 3 files changed, 24 insertions(+), 13 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 7d7c2996cd..bef40d020a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19991017-08:51 GMT+1 Victor Szel + * tests/Makefile + + tstalias.prg added + * tests/tstalias.prg + + CVS ID header added + 19991016-22:40 GMT+8 Ron Pinkas * harbour.y + added support for _FIELD->Expression and _FIELD->ALIAS->Expression diff --git a/harbour/tests/Makefile b/harbour/tests/Makefile index 89496ecb27..dff6fde9a2 100644 --- a/harbour/tests/Makefile +++ b/harbour/tests/Makefile @@ -149,6 +149,7 @@ PRG_SOURCES=\ testrdd.prg \ testvars.prg \ testwarn.prg \ + tstalias.prg \ tstcolor.prg \ val.prg \ version.prg \ diff --git a/harbour/tests/tstalias.prg b/harbour/tests/tstalias.prg index 577ad1e7c1..610ba6a775 100644 --- a/harbour/tests/tstalias.prg +++ b/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