[Oorexx-svn] SF.net SVN: oorexx:[3499] test/trunk

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

Revision: 3499
          http://oorexx.svn.sourceforge.net/oorexx/?rev=3499&view=rev
Author:   wdashley
Date:     2008-10-09 18:31:40 +0000 (Thu, 09 Oct 2008)

Log Message:
-----------
ArtifactID: None
Comment: Another interium variable pool test commit.

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

Modified: test/trunk/external/API/orxclassic.cpp
===================================================================
--- test/trunk/external/API/orxclassic.cpp	2008-10-09 17:00:06 UTC (rev 3498)
+++ test/trunk/external/API/orxclassic.cpp	2008-10-09 18:31:40 UTC (rev 3499)
@@ -242,9 +242,6 @@
 
     // call the variable pool interface
     retc = RexxVariablePool(blocks);
-    if (currentblock->shvcode == RXSHV_PRIV) {
-        printf("retc = %d\n", retc);
-    }
 
     // set the array to the shvblocks
     currentblock = blocks;

Modified: test/trunk/ooRexx/API/classic/CLASSIC.testGroup
===================================================================
--- test/trunk/ooRexx/API/classic/CLASSIC.testGroup	2008-10-09 17:00:06 UTC (rev 3498)
+++ test/trunk/ooRexx/API/classic/CLASSIC.testGroup	2008-10-09 18:31:40 UTC (rev 3499)
@@ -510,3 +510,23 @@
   self~assertEquals(8, retc)
   self~assertEquals(8, arr[1]~shvret)
 
+::method 'test_36_variablepool'
+  arr = .array~new(1)
+  ctr = 0
+  do forever
+    arr[1] = .ShvBlock~new()
+    arr[1]~shvname = ''
+    arr[1]~shvvalue = ''
+    arr[1]~shvnamelen = arr[1]~shvname()~length
+    arr[1]~shvvaluelen = 0
+    arr[1]~shvcode = 6 -- RXSHV_NEXTV
+    arr[1]~shvret = 0
+    retc = TestFVariablePool(arr)
+    if arr[1]~shvret <> 0 then leave
+    say arr[1]~shvname '=' arr[1]~shvvalue
+    self~assertEquals(0, retc)
+    self~assertEquals(0, arr[1]~shvret)
+    ctr += 1
+    if ctr > 10 then leave
+    end
+


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