[Oorexx-svn] SF.net SVN: oorexx:[3506] test/trunk/ooRexx/API/classic/CLASSIC.testGroup

[<wda...@us...>]

Revision: 3506
          http://oorexx.svn.sourceforge.net/oorexx/?rev=3506&view=rev
Author:   wdashley
Date:     2008-10-10 14:25:47 +0000 (Fri, 10 Oct 2008)

Log Message:
-----------
ArtifactID: None
Comment: Finished with the variable pool tests.

Modified Paths:
--------------
    test/trunk/ooRexx/API/classic/CLASSIC.testGroup

Modified: test/trunk/ooRexx/API/classic/CLASSIC.testGroup
===================================================================
--- test/trunk/ooRexx/API/classic/CLASSIC.testGroup	2008-10-09 23:42:25 UTC (rev 3505)
+++ test/trunk/ooRexx/API/classic/CLASSIC.testGroup	2008-10-10 14:25:47 UTC (rev 3506)
@@ -740,3 +740,57 @@
   self~assertEquals(8, retc)
   self~assertEquals(8, arr[1]~shvret) -- make sure an error was generated
 
+::method 'test_40_variablepool'
+  test1 = 123 -- give this an existing value
+  arr = .array~new(1)
+  arr[1] = .ShvBlock~new()
+  arr[1]~shvname = 'TEST1'
+  arr[1]~shvvalue = ''
+  arr[1]~shvnamelen = arr[1]~shvname()~length
+  arr[1]~shvvaluelen = 0
+  arr[1]~shvcode = 2 -- RXSHV_DROPV
+  arr[1]~shvret = 0
+  retc = TestFVariablePool(arr)
+  self~assertEquals(0, retc)
+  self~assertEquals(0, arr[1]~shvret)
+  self~assertEquals(test1, 'TEST1')
+
+::method 'test_40a_variablepool'
+  test1 = 123 -- give this an existing value
+  test2 = 'my teststring' -- give this an existing value
+  arr = .array~new(2)
+  arr[1] = .ShvBlock~new()
+  arr[1]~shvname = 'TEST1'
+  arr[1]~shvvalue = ''
+  arr[1]~shvnamelen = arr[1]~shvname()~length
+  arr[1]~shvvaluelen = 0
+  arr[1]~shvcode = 2 -- RXSHV_DROPV
+  arr[1]~shvret = 0
+  arr[2] = .ShvBlock~new()
+  arr[2]~shvname = 'TEST2'
+  arr[2]~shvvalue = ''
+  arr[2]~shvnamelen = arr[2]~shvname()~length
+  arr[2]~shvvaluelen = 0
+  arr[2]~shvcode = 2 -- RXSHV_DROPV
+  arr[2]~shvret = 0
+  retc = TestFVariablePool(arr)
+  self~assertEquals(0, retc)
+  self~assertEquals(0, arr[1]~shvret)
+  self~assertEquals(test1, 'TEST1')
+  self~assertEquals(0, arr[2]~shvret)
+  self~assertEquals(test2, 'TEST2')
+
+::method 'test_40b_variablepool'
+  test1_val = 'my test string'
+  arr = .array~new(1)
+  arr[1] = .ShvBlock~new()
+  arr[1]~shvname = '2TEST' -- invalid name!
+  arr[1]~shvvalue = test1_val
+  arr[1]~shvnamelen = arr[1]~shvname()~length
+  arr[1]~shvvaluelen = arr[1]~shvvalue()~length
+  arr[1]~shvcode = 2 -- RXSHV_DROPV
+  arr[1]~shvret = 0
+  retc = TestFVariablePool(arr)
+  self~assertEquals(8, retc)
+  self~assertEquals(8, arr[1]~shvret) -- make sure an error was generated
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.