[Sciviews-commits] r366 - in pkg/svUnit: . R inst/doc

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

Author: mariotomo
Date: 2011-03-15 13:49:24 +0100 (Tue, 15 Mar 2011)
New Revision: 366

Modified:
   pkg/svUnit/DESCRIPTION
   pkg/svUnit/NEWS
   pkg/svUnit/R/svSuite.R
   pkg/svUnit/R/svUnit-internal.R
   pkg/svUnit/inst/doc/svUnit.pdf
Log:
solving ticket:1327
adding information about the change, and documenting it locally.

also stripping name information to context variables, because the name
would become longer and longer each time the piece of code was
executed.


Modified: pkg/svUnit/DESCRIPTION
===================================================================
--- pkg/svUnit/DESCRIPTION	2011-03-15 12:39:55 UTC (rev 365)
+++ pkg/svUnit/DESCRIPTION	2011-03-15 12:49:24 UTC (rev 366)
@@ -4,7 +4,7 @@
 Depends: R (>= 1.9.0)
 Suggests: svGUI, datasets, utils, XML
 Description: A complete unit test system and functions to implement its GUI part
-Version: 0.7-5
+Version: 0.7-6
 Date: 2010-09-30
 Author: Philippe Grosjean
 Maintainer: Philippe Grosjean <phgrosjean at sciviews.org>

Modified: pkg/svUnit/NEWS
===================================================================
--- pkg/svUnit/NEWS	2011-03-15 12:39:55 UTC (rev 365)
+++ pkg/svUnit/NEWS	2011-03-15 12:49:24 UTC (rev 366)
@@ -1,5 +1,12 @@
 = svUnit News
 
+
+== svUnit 0.7-6
+
+* refer to last test environment through a local identifier.  closes #1327
+* strip attributes from context fields when saving them temporarily.
+
+
 == svUnit 0.7-5
 
 * XML-encoding entities in protocol_junit.svTestData.  closes #1147

Modified: pkg/svUnit/R/svSuite.R
===================================================================
--- pkg/svUnit/R/svSuite.R	2011-03-15 12:39:55 UTC (rev 365)
+++ pkg/svUnit/R/svSuite.R	2011-03-15 12:49:24 UTC (rev 366)
@@ -274,9 +274,10 @@
 
 	## Source each runit*.R file in turn
 	for (unit in names(.lastSuite)) {
-		## Create a new environment for this suite (created in .GlobalEnv so
-		## that we can inspect it in case of stop on error)
+		## Create a new environment for this suite.
 		.ThisTestSuiteEnv <- new.env(parent = .GlobalEnv)
+        ## store it globally so that we can inspect it in case of stop
+		## on error.  but please do not remove the local alias.  #1327
         .TestSuiteEnv <<- .ThisTestSuiteEnv
 		## Source the corresponding file
 		Unit <- .lastSuite[[unit]]$file

Modified: pkg/svUnit/R/svUnit-internal.R
===================================================================
--- pkg/svUnit/R/svUnit-internal.R	2011-03-15 12:39:55 UTC (rev 365)
+++ pkg/svUnit/R/svUnit-internal.R	2011-03-15 12:49:24 UTC (rev 366)
@@ -349,11 +349,11 @@
 	oContext <- c(Unit = .Log$..Unit, Obj = .Log$..Obj, File = .Log$..File,
 		Msg = .Log$..Msg, Tag = .Log$..Tag)
 	on.exit({
-		.Log$..Unit <- oContext[1]
-		.Log$..Obj <- oContext[2]
-		.Log$..File <- oContext[3]
-		.Log$..Msg <- oContext[4]
-		.Log$..Tag <- oContext[5]
+		.Log$..Unit <- as.character(oContext[1])
+		.Log$..Obj <- as.character(oContext[2])
+		.Log$..File <- as.character(oContext[3])
+		.Log$..Msg <- as.character(oContext[4])
+		.Log$..Tag <- as.character(oContext[5])
 	})
 	.Log$..Unit <- unit				# The unit file
 	.Log$..Obj <- name 				# Name of the tested object

Modified: pkg/svUnit/inst/doc/svUnit.pdf
===================================================================
(Binary files differ)