[rkward-cvs] SF.net SVN: rkward:[2656] trunk/rkward/tests/test_framework.R

[tfry at users.sourceforge.net]

Revision: 2656
          http://rkward.svn.sourceforge.net/rkward/?rev=2656&view=rev
Author:   tfry
Date:     2009-09-23 17:11:56 +0000 (Wed, 23 Sep 2009)

Log Message:
-----------
fix for r2654

Modified Paths:
--------------
    trunk/rkward/tests/test_framework.R

Modified: trunk/rkward/tests/test_framework.R
===================================================================
--- trunk/rkward/tests/test_framework.R	2009-09-23 15:35:35 UTC (rev 2655)
+++ trunk/rkward/tests/test_framework.R	2009-09-23 17:11:56 UTC (rev 2656)
@@ -270,16 +270,16 @@
 ## Initialize test environment
 rktest.initializeEnvironment <- function () {
 	# By default .rk.rerun.plugin.link() and .rk.make.hr() are silenced during the test runs
-	.rk.rerun.plugin.link <- .rk.make.hr <- function (...) { list (...) }
+	.rk.rerun.plugin.link <<- .rk.make.hr <<- function (...) { list (...) }
 
 	# This should make the output of rk.graph.on() fixed
-	rk.get.tempfile.name <- function (prefix, extension) paste (prefix, extension, sep="")
+	rk.get.tempfile.name <<- function (prefix, extension) paste (prefix, extension, sep="")
 
 	# HACK: Override date, so we don't get a difference for each call of rk.header ()
 	# TODO: implement a clean solution inside rk.header()
-	date <- function () {
+	assign ("date", function () {
 		return ("DATE")
-	}
+	}, envir=globalenv())
 
 	# numerical precision is often a problem. To work around this in many places, reduce default printed precision to 5 digits
 	options (digits=5)


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