[Oorexx-svn] SF.net SVN: oorexx:[5222] test/releases/4.0.0/ooRexx/base/bif/CHAROUT. testGroup

[<mie...@us...>]

Revision: 5222
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5222&view=rev
Author:   miesfeld
Date:     2009-09-30 02:42:15 +0000 (Wed, 30 Sep 2009)

Log Message:
-----------
Fix charout test, using wrong file name, so FILE was created and not deleted

Modified Paths:
--------------
    test/releases/4.0.0/ooRexx/base/bif/CHAROUT.testGroup

Modified: test/releases/4.0.0/ooRexx/base/bif/CHAROUT.testGroup
===================================================================
--- test/releases/4.0.0/ooRexx/base/bif/CHAROUT.testGroup	2009-09-29 00:29:12 UTC (rev 5221)
+++ test/releases/4.0.0/ooRexx/base/bif/CHAROUT.testGroup	2009-09-30 02:42:15 UTC (rev 5222)
@@ -62,9 +62,11 @@
 
 ::method tearDown
   fileName = self~charOutTestingFile
+  say 'fileName:' fileName
   if fileName \== .nil then do
     -- Close the file and delete it
     ret = stream(fileName, 'C', "close")
+    say 'stream close ret:' ret
     j = deleteFile(fileName)
   end
 
@@ -98,7 +100,7 @@
   fileName='tsmp.txt'
   self~charOutTestingFile = fileName
 
-  call charout file, ''
+  call charout fileName, ''
   self~assertSame(0, result)
 
 -- Tests reported position after charout null or charout chars


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