[Sciviews-commits] r322 - pkg/svUnit/R

[noreply at r-forge.r-project.org]

Author: mariotomo
Date: 2010-09-30 09:10:32 +0200 (Thu, 30 Sep 2010)
New Revision: 322

Modified:
   pkg/svUnit/R/svUnit-internal.R
Log:
#1105 : quoting the name of the test case function, so one can use all special characters he needs.


Modified: pkg/svUnit/R/svUnit-internal.R
===================================================================
--- pkg/svUnit/R/svUnit-internal.R	2010-09-29 07:54:41 UTC (rev 321)
+++ pkg/svUnit/R/svUnit-internal.R	2010-09-30 07:10:32 UTC (rev 322)
@@ -388,8 +388,8 @@
 	options(warn = nwarn)
 
 	## Evaluate the test function in the .TestEnv environment
-	cmd <- paste("evalq(.LogRes <- try( { .setUp(); ", test,
-		"(); .tearDown() }, silent = TRUE), envir = envir)", sep = "")
+	cmd <- paste("evalq(.LogRes <- try( { .setUp(); '", test,
+		"'(); .tearDown() }, silent = TRUE), envir = envir)", sep = "")
 	eval(parse(text = cmd))
 
 	## Analyze error => is it a deactivation or error in the code?