[Dplr-commits] r766 - pkg/dplR/inst/unitTests

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

Author: mvkorpel
Date: 2014-04-04 15:47:08 +0200 (Fri, 04 Apr 2014)
New Revision: 766

Modified:
   pkg/dplR/inst/unitTests/runit.io.R
Log:
Add to previous on.exit() list, don't replace it.


Modified: pkg/dplR/inst/unitTests/runit.io.R
===================================================================
--- pkg/dplR/inst/unitTests/runit.io.R	2014-04-04 13:06:46 UTC (rev 765)
+++ pkg/dplR/inst/unitTests/runit.io.R	2014-04-04 13:47:08 UTC (rev 766)
@@ -179,7 +179,7 @@
     ## File has no data (invalid file)
     tf13 <- tempfile()
     fh13 <- file(tf13, "wt")
-    on.exit(unlink(tf13))
+    on.exit(unlink(tf13), add=TRUE)
     writeLines("TST13A  1734", fh13)
     close(fh13)
     checkEquals(0, nrow(read.tucson(tf13, header = FALSE)),