[H5r-commits] r67 - tests

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

Author: extemporaneousb
Date: 2011-09-15 19:39:00 +0200 (Thu, 15 Sep 2011)
New Revision: 67

Modified:
   tests/Makefile
   tests/testMemory.R
Log:


Modified: tests/Makefile
===================================================================
--- tests/Makefile	2011-09-15 00:41:24 UTC (rev 66)
+++ tests/Makefile	2011-09-15 17:39:00 UTC (rev 67)
@@ -7,9 +7,9 @@
 	R CMD BATCH --no-save testReadPoints.R &
 	R CMD BATCH --no-save testWrite.R &
 	R CMD BATCH --no-save testErrors.R & 
+	R CMD BATCH --no-save testGetGroup.R &
 
 valgrind:
-	R -d "valgrind --tool=memcheck --leak-check=full" --vanilla < testread.R
-	R -d "valgrind --tool=memcheck --leak-check=full" --vanilla < testwrite.R
+	R -d "valgrind --tool=memcheck --leak-check=full" --vanilla < testGetGroup.R
 
 

Modified: tests/testMemory.R
===================================================================
--- tests/testMemory.R	2011-09-15 00:41:24 UTC (rev 66)
+++ tests/testMemory.R	2011-09-15 17:39:00 UTC (rev 67)
@@ -5,18 +5,34 @@
 ##
 require(h5r)
 
+showPS <- function() system(paste('ps -eo pid,vsz,%mem | grep', Sys.getpid()))
+gcl <- function() { lapply(1:10, gc, verbose = F)[[10]] }
+
+showPS()
 m <- .Call("h5R_allocate_gig")
 rm(m)
-gc()
+gcl()
+showPS()
 
 m <- sapply(1:1000, function(a) {
   .Call("h5R_allocate_meg")
 })
 rm(m)
-gc()
+gcl()
+showPS()
 
 m <- sapply(1:100000, function(a) {
   .Call("h5R_allocate_k")
 })
 rm(m)
-gc()
+gcl()
+showPS()
+
+m <- sapply(1:1000000, function(a) {
+  .Call("h5R_allocate_k")
+})
+rm(m)
+gcl()
+showPS()
+
+