Running ‘test_block_write.R’ [1s/1s]
  Comparing ‘test_block_write.Rout’ to ‘test_block_write.Rout.save’ ... OK
  Running ‘test_bracket1.R’ [1s/1s]
  Running ‘test_bracket2.R’ [2s/3s]
  Comparing ‘test_bracket2.Rout’ to ‘test_bracket2.Rout.save’ ... OK
  Running ‘test_checksums1.R’ [0s/0s]
  Comparing ‘test_checksums1.Rout’ to ‘test_checksums1.Rout.save’ ... OK
  Running ‘test_extent_index.R’ [0s/1s]
  Comparing ‘test_extent_index.Rout’ to ‘test_extent_index.Rout.save’ ... OK
  Running ‘test_fused_write_object1.R’ [0s/1s]
  Comparing ‘test_fused_write_object1.Rout’ to ‘test_fused_write_object1.Rout.save’ ... OK
  Running ‘test_hash.R’ [0s/1s]
  Comparing ‘test_hash.Rout’ to ‘test_hash.Rout.save’ ... OK
  Running ‘test_indexed_copy.R’ [0s/1s]
  Comparing ‘test_indexed_copy.Rout’ to ‘test_indexed_copy.Rout.save’ ... OK
  Running ‘test_order1.R’ [1s/1s]
  Comparing ‘test_order1.Rout’ to ‘test_order1.Rout.save’ ... OK
Running the tests in ‘tests/test_bracket1.R’ failed.
Complete output:
  > require("RMVL")
  Loading required package: RMVL
  >  
  > M3<-mvl_open("test2.mvl", append=TRUE, create=TRUE)
  > 
  > L<-list()
  > 
  > df<-data.frame(x=1:1e5, y=rnorm(1e5), s=rep(c("a", "b"), 5e4), b=rnorm(1e5)<0.5)
  > L[["x"]]<-mvl_write_object(M3, df)
  > 
  > aa<-array(rnorm(10000), c(10, 50, 20))
  > L[["y"]]<-aa
  > 
  > mm<-matrix(rnorm(10000), 10, 1000)
  > L[["z"]]<-mm
  > 
  > LL2<-as.list(rnorm(10000))
  > names(LL2)<-paste("x", 1:10000, sep="")
  > L[["LL2"]]<-LL2
  > 
  > L[["description"]]<-"Example of large data frame"
  > mvl_write_object(M3, L, "test_object")
  > 
  > LM1<-lm(rnorm(100)~runif(100))
  > mvl_write_serialized_object(M3, LM1, "LM1")
  > 
  > mvl_close(M3)
  > 
  > M3<-mvl_open("test2.mvl")
  > print(names(M3))
  [1] "test_object" "LM1"        
  > L2<-M3["test_object"]
  > 
  > N<-dim(df)[1]
  > 
  > compare_df<-function(x, y) {
  + 	if(length(dim(x))!=length(dim(y)))return(FALSE)
  + 	if(any(dim(x)!=dim(y)))return(FALSE)
  + 	if(any(names(x)!=names(y)))return(FALSE)
  + 	if(dim(x)[2]>0) {
  + 		for(i in 1:(dim(x)[2])) {
  + 			if(any(x[,i]!=y[,i]))return(FALSE)
  + 			}
  + 		}
  + 	return(TRUE)
  + 	}
  > 
  > if(!compare_df(df, L2[["x"]][,])) {
  + 	cat("test1a failed\n")
  + 	print(attributes(df))
  + 	print(attributes(L2[["x"]][,]))
  + 	cat("-----------\n")
  + 	}
  > if(!compare_df(df[1:20,], L2[["x"]][1:20,]))cat("test1b failed\n")
  > 
  > if(!compare_df(df[(1:N) %% 5==0,], L2[["x"]][(1:N) %% 5==0,]))cat("test2 failed\n")
  > 
  > if(!compare_df(df[(1:N) %% 5==0,], L2[["x"]][(1:N)[(1:N) %% 5==0],]))cat("test3 failed\n")
  > 
  > if(!compare_df(df[(1:N) %% 5==0, c("y", "s")], L2[["x"]][(1:N)[(1:N) %% 5==0], c("y", "s")]))cat("test4 failed\n")
  > 
  > if(!identical(df[(1:N) %% 5==0, c("s")], L2[["x"]][(1:N)[(1:N) %% 5==0], c("s")]))cat("test5 failed\n")
  > 
  > if(!compare_df(df[(1:N) %% 5==0, 2:3], L2[["x"]][(1:N)[(1:N) %% 5==0], 2:3]))cat("test6 failed\n")
  > 
  > if(!isTRUE(all.equal(aa, L2[["y"]][])))cat("test7 failed\n")
  > if(!compare_df(mm, L2[["z"]][])) {
  + 	cat("test8 failed\n")
  + 	print(all.equal(mm, L2[["z"]][]))
  + 	print(attributes(mm))
  + 	print(attributes(L2[["z"]][]))
  + 	cat("-----------\n")
  + 	}
  > 
  > if(!isTRUE(all.equal(aa[c(2,3,5),,], L2[["y"]][c(2,3,5),,])))cat("test9 failed\n")
  Error in `[.MVL_OBJECT`(L2[["y"]], c(2, 3, 5), , ) : 
    argument "ii" is missing, with no default
  Calls: isTRUE ... all.equal.numeric -> attr.all.equal -> mode -> [ -> [.MVL_OBJECT
  Execution halted