From 39b81c603bb4aa7f35c96472f1584e6106dc1f41 Mon Sep 17 00:00:00 2001
From: Ryszard Glab <rglab@imid.med.pl>
Date: Thu, 22 Jul 1999 02:33:30 +0000
Subject: [PATCH] ChangeLog 19990722-03:30

---
 harbour/tests/working/memvar.prg | 227 +++++++++++++++++++++++++++++++
 1 file changed, 227 insertions(+)
 create mode 100644 harbour/tests/working/memvar.prg

diff --git a/harbour/tests/working/memvar.prg b/harbour/tests/working/memvar.prg
new file mode 100644
index 0000000000..74cc7a8fce
--- /dev/null
+++ b/harbour/tests/working/memvar.prg
@@ -0,0 +1,227 @@
+// Basic test for memvars handling
+//
+// $Id$
+//
+PROCEDURE MAIN()
+
+    Test1()
+    __accept( "press Enter..." )
+    Test2()
+    __accept( "press Enter..." )
+    Test3()
+    __accept( "press Enter..." )
+    Test4()
+    __accept( "press Enter..." )
+    Test5()
+    __accept( "press Enter..." )
+    Test6()
+    __accept( "press Enter..." )
+    Test7( 'value1', 2, .T. )
+
+RETURN
+
+/////////////////////////////////////////////////////////////////////////
+
+PROCEDURE Test1()
+// PUBLIC overrided by PRIVATE overrided by uninitialized PUBLIC
+PUBL memvar1
+
+    Qout( "==Test 1==PUBLIC -> PRIVATE -> PUBLIC" )
+  Qout( memvar1 )
+  memvar1 ='main'
+  Qout( 'in MAIN=', memvar1 )
+  Scope( memvar1 )
+  Qout( 'back in MAIN=', memvar1 )
+  Qout( "" )
+
+RETURN
+
+FUNCTION Scope( value )
+PRIVA memvar1:='scope'
+
+  Scope2()
+  Qout( "in SCOPE=", memvar1 )
+
+RETURN( value )
+
+PROCEDURE Scope2()
+PUBLIC memvar1
+   Qout( "in SCOPE2=", memvar1 )
+RETURN
+
+///////////////////////////////////////////////////////////////////
+
+PROCEDURE Test2()
+// PUBLIC overrided by PUBLIC overrided by uninitialized PUBLIC
+PUBLIC memvar2
+
+    Qout( "==Test 2==PUBLIC -> PUBLIC -> PUBLIC" )
+  Qout( memvar2 )
+  memvar2 ='main'
+  Qout( 'in MAIN=', memvar2 )
+  Scope3( memvar2 )
+  Qout( 'back in MAIN=', memvar2 )
+  Qout( "" )
+
+RETURN
+
+FUNCTION Scope3( value )
+PUBLIC memvar2:='scope'
+
+  Scope4()
+  Qout( "in SCOPE=", memvar2 )
+
+RETURN( value )
+
+PROCEDURE Scope4()
+PUBLIC memvar2
+   Qout( "in SCOPE2=", memvar2 )
+RETURN
+
+////////////////////////////////////////////////////////////////////////////
+
+PROCEDURE Test3()
+// PUBLIC overrided by PRIVATE overrided by initialized PUBLIC
+PUBLIC memvar3
+
+    Qout( "==Test 3==PUBLIC -> PRIVATE -> PUBLIC:=" )
+  Qout( memvar3 )
+  memvar3 ='main'
+  Qout( 'in MAIN=', memvar3 )
+  Scope5( memvar3 )
+  Qout( 'back in MAIN=', memvar3 )
+  Qout( "" )
+
+RETURN
+
+FUNCTION Scope5( value )
+PRIVATE memvar3:='scope'
+
+  Scope6()
+  Qout( "in SCOPE=", memvar3 )
+
+RETURN( value )
+
+PROCEDURE Scope6()
+PUBLIC memvar3:='scope2'
+   Qout( "in SCOPE2=", memvar3 )
+RETURN
+
+///////////////////////////////////////////////////////////////////////
+
+PROCEDURE Test4()
+// PUBLIC overrided by PUBLIC overrided by initialized PUBLIC
+PUBLIC memvar4
+
+    Qout( "==Test 4==PUBLIC -> PUBLIC -> PUBLIC:=" )
+  Qout( memvar4 )
+  memvar4 ='main'
+  Qout( 'in MAIN=', memvar4 )
+  Scope7( memvar4 )
+  Qout( 'back in MAIN=', memvar4 )
+  Qout( "" )
+
+RETURN
+
+FUNCTION Scope7( value )
+PUBLIC memvar4:='scope'
+
+  Scope8()
+  Qout( "in SCOPE=", memvar4 )
+
+RETURN( value )
+
+PROCEDURE Scope8()
+PUBLIC memvar4:='scope2'
+   Qout( "in SCOPE2=", memvar4 )
+RETURN
+
+///////////////////////////////////////////////////////////////////////
+
+PROCEDURE TEST5()
+PUBLIC mempublic, public3:=3
+//PUBLIC public2[ 10 ]		//unsupported yet
+PRIVATE memprivate
+//PARAMETERS memparam		//unsupported yet
+
+  Qout( "==Test for memvars passed by reference and __PUBLIC/__PRIVATE " )
+  Qout( "uninitialized PUBLIC=", mempublic )
+//  Qout( "uninitialized PUBLIC array (first item)=", public2[1] )
+  Qout( "initialized PUBLIC=", public3 )
+  Qout( "uninitialized PRIVATE=", memprivate )
+//  Qout( memparam )
+//  Qout( memnone )
+
+  mempublic ='PUBLIC'
+  Qout( "PUBLIC with new value=", mempublic )
+  memprivate ='PRIVATE'
+  Qout( "PRIVATE with new value=", memprivate )
+//  memparam =3
+//  Qout( memparam )
+//  memnone =4
+//  Qout( memnone )
+
+  Qout( "PUBLIC after passing by reference=", Use( @mempublic ) )
+  Qout( "PRIVATE after passing by reference=", Use( @memprivate ) )
+//  Qout( Use( @memparam ) )
+//  Qout( Use( @memnone ) )
+
+  Qout( "PUBLIC created by __PUBLIC function=", public1 )
+  Qout( "" )
+
+RETURN
+
+
+FUNCTION Use( value )
+
+  UseRef( @value )
+
+  __PUBLIC( "public1" )
+  __PRIVATE( {"private1", "private2", "private3"} )
+  Qout( "undeclared PUBLIC created by __PUBLIC function=", public1 )
+  Qout( "undeclared PRIVATE created by __PRIVATE function=", private1 )
+  Qout( "undeclared PRIVATE created by __PRIVATE function=", private2 )
+  Qout( "undeclared PRIVATE created by __PRIVATE function=", private3 )
+
+  public1 :='public created by __PUBLIC'
+  Qout( "" )
+
+RETURN( value )
+
+PROCEDURE UseRef( reference )
+
+    reference +=' variable'
+
+RETURN
+
+//////////////////////////////////////////////////////////////////////
+
+PROCEDURE Test6()
+PUBLIC publCB
+PRIVATE privVar:=' (PRIVATE in MAIN) '
+
+    Qout( "== Test for detached PRIVATE variables" )
+    DetachMemvar( 'detached memvar' )
+    Qout( EVAL( publCB, 'in Main: ' ) )
+
+RETURN
+
+PROCEDURE DetachMemvar( cValue )
+PRIVATE privVar:=' (PRIVATE in DetachMemvar) '
+
+    publCB ={|x| x+privVar+cValue}
+    Qout( EVAL( publCB, "in DetachMemvar: " ) )
+
+RETURN
+
+////////////////////////////////////////////////////////////////////////
+
+PROCEDURE Test7( )
+PARAMETERS para1, para2
+PARAM para3
+
+  Qout( "Parameter 1  =", para1 )
+  Qout( "Parameter 2  =", para2 )
+  Qout( "Parameter 3  =", para3 )
+
+RETURN