[R-gregmisc-users] SF.net SVN: r-gregmisc:[1571] trunk/SASxport/tests

[<wa...@us...>]

Revision: 1571
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1571&view=rev
Author:   warnes
Date:     2012-06-21 23:12:34 +0000 (Thu, 21 Jun 2012)
Log Message:
-----------
Standardize file capitalization

Added Paths:
-----------
    trunk/SASxport/tests/testUnnamedComponents.R

Removed Paths:
-------------
    trunk/SASxport/tests/TestUnnamedComponents.R

Deleted: trunk/SASxport/tests/TestUnnamedComponents.R
===================================================================
--- trunk/SASxport/tests/TestUnnamedComponents.R	2012-06-19 19:00:31 UTC (rev 1570)
+++ trunk/SASxport/tests/TestUnnamedComponents.R	2012-06-21 23:12:34 UTC (rev 1571)
@@ -1,73 +0,0 @@
-library(SASxport)
-
-
-##tests
-example(read.xport)
-write.xport(w$test,file="a.xpt") #1.a
-lookup.xport("a.xpt")            #1.b
-(tmp <- read.xport("a.xpt"))     #1.c
-
-b <- w$test
-write.xport(b,file="a.xpt")      #2.a
-lookup.xport("a.xpt")            #2.b
-(tmp <- read.xport("a.xpt"))     #2.c
-
-write.xport(test=w$test,file="a.xpt") #3.a
-lookup.xport("a.xpt")                 #3.b
-(tmp <- read.xport("a.xpt"))          #3.c
-
-write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
-lookup.xport("a.xpt")                       #4.b
-(tmp <- read.xport("a.xpt"))                #4.c
-
-write.xport(w$test,w$z,file="a.xpt") #5.a
-lookup.xport("a.xpt")                #5.b
-(tmp <- read.xport("a.xpt"))         #5.c
-
-write.xport(w$test,z=w$z,file="a.xpt") #6.a
-lookup.xport("a.xpt")                  #6.b
-(tmp <- read.xport("a.xpt"))           #6.c
-
-write.xport(list=w,file="a.xpt") #7.a
-lookup.xport("a.xpt")            #7.b
-(tmp <- read.xport("a.xpt"))     #7.c
-
-names(w) <- NULL
-write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
-lookup.xport("a.xpt")                   #8.b
-(tmp <- read.xport("a.xpt"))            #8.c
-
-names(w) <- NULL
-write.xport(list=w,file="a.xpt") #9.a
-lookup.xport("a.xpt")            #9.b
-(tmp <- read.xport("a.xpt"))     #9.c
-
-### Check that we catch invalid parameters
-failure <- try( write.xport(5,"a.xpt") )             #10.a
-SASxport:::assert( "try-error" %in% class(failure) ) #10.b
-(tmp <- read.xport("a.xpt"))                         #10.c
-
-failure <- try( write.xport(list(a=5,b=6),"a.xpt") ) #11.a
-SASxport:::assert( "try-error" %in% class(failure) ) #11.b
-(tmp <- read.xport("a.xpt"))                         #10.c
-
-# Check with different list construction function *name*
-example(read.xport)
-write.xport(list=base::list(w$test,w$z),file="a.xpt")   #11.a
-lookup.xport("a.xpt")                                   #11.b
-(tmp <- read.xport("a.xpt"))                            #11.c
-
-# remove names
-example(read.xport)
-names(w) <- NULL
-w[[3]] <- NULL
-write.xport(list=w,file="a.xpt") #12.a
-lookup.xport("a.xpt")            #12.b
-(tmp <- read.xport("a.xpt"))     #12.c
-
-# remove variable names
-example(read.xport)
-colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
-write.xport(list=w,file="a.xpt") #13.a
-lookup.xport("a.xpt")            #13.b
-(tmp <- read.xport("a.xpt"))     #13.c

Copied: trunk/SASxport/tests/testUnnamedComponents.R (from rev 1570, trunk/SASxport/tests/TestUnnamedComponents.R)
===================================================================
--- trunk/SASxport/tests/testUnnamedComponents.R	                        (rev 0)
+++ trunk/SASxport/tests/testUnnamedComponents.R	2012-06-21 23:12:34 UTC (rev 1571)
@@ -0,0 +1,73 @@
+library(SASxport)
+
+
+##tests
+example(read.xport)
+write.xport(w$test,file="a.xpt") #1.a
+lookup.xport("a.xpt")            #1.b
+(tmp <- read.xport("a.xpt"))     #1.c
+
+b <- w$test
+write.xport(b,file="a.xpt")      #2.a
+lookup.xport("a.xpt")            #2.b
+(tmp <- read.xport("a.xpt"))     #2.c
+
+write.xport(test=w$test,file="a.xpt") #3.a
+lookup.xport("a.xpt")                 #3.b
+(tmp <- read.xport("a.xpt"))          #3.c
+
+write.xport(test=w$test,z=w$z,file="a.xpt") #4.a
+lookup.xport("a.xpt")                       #4.b
+(tmp <- read.xport("a.xpt"))                #4.c
+
+write.xport(w$test,w$z,file="a.xpt") #5.a
+lookup.xport("a.xpt")                #5.b
+(tmp <- read.xport("a.xpt"))         #5.c
+
+write.xport(w$test,z=w$z,file="a.xpt") #6.a
+lookup.xport("a.xpt")                  #6.b
+(tmp <- read.xport("a.xpt"))           #6.c
+
+write.xport(list=w,file="a.xpt") #7.a
+lookup.xport("a.xpt")            #7.b
+(tmp <- read.xport("a.xpt"))     #7.c
+
+names(w) <- NULL
+write.xport(w[[1]],w[[2]],file="a.xpt") #8.a
+lookup.xport("a.xpt")                   #8.b
+(tmp <- read.xport("a.xpt"))            #8.c
+
+names(w) <- NULL
+write.xport(list=w,file="a.xpt") #9.a
+lookup.xport("a.xpt")            #9.b
+(tmp <- read.xport("a.xpt"))     #9.c
+
+### Check that we catch invalid parameters
+failure <- try( write.xport(5,"a.xpt") )             #10.a
+SASxport:::assert( "try-error" %in% class(failure) ) #10.b
+(tmp <- read.xport("a.xpt"))                         #10.c
+
+failure <- try( write.xport(list(a=5,b=6),"a.xpt") ) #11.a
+SASxport:::assert( "try-error" %in% class(failure) ) #11.b
+(tmp <- read.xport("a.xpt"))                         #10.c
+
+# Check with different list construction function *name*
+example(read.xport)
+write.xport(list=base::list(w$test,w$z),file="a.xpt")   #11.a
+lookup.xport("a.xpt")                                   #11.b
+(tmp <- read.xport("a.xpt"))                            #11.c
+
+# remove names
+example(read.xport)
+names(w) <- NULL
+w[[3]] <- NULL
+write.xport(list=w,file="a.xpt") #12.a
+lookup.xport("a.xpt")            #12.b
+(tmp <- read.xport("a.xpt"))     #12.c
+
+# remove variable names
+example(read.xport)
+colnames(w[[2]]) <- rep("", length=ncol(w[[2]]))
+write.xport(list=w,file="a.xpt") #13.a
+lookup.xport("a.xpt")            #13.b
+(tmp <- read.xport("a.xpt"))     #13.c

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.