[Fingerprint-commits] r6 - in pkg: . inst/unitTests man

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

Author: rajarshi
Date: 2009-10-31 18:25:29 +0100 (Sat, 31 Oct 2009)
New Revision: 6

Modified:
   pkg/DESCRIPTION
   pkg/inst/unitTests/runit.fp.R
   pkg/man/fingerprint.Rd
Log:
Added more unit tests

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2009-10-31 16:50:14 UTC (rev 5)
+++ pkg/DESCRIPTION	2009-10-31 17:25:29 UTC (rev 6)
@@ -1,6 +1,6 @@
 Package: fingerprint
-Version: 3.1.2
-Date: 2009-02-24
+Version: 3.2
+Date: 2009-10-31
 Title: Functions to operate on binary fingerprint data
 Author: Rajarshi Guha <rajarshi.guha at gmail.com>
 Maintainer: Rajarshi Guha <rajarshi.guha at gmail.com>

Modified: pkg/inst/unitTests/runit.fp.R
===================================================================
--- pkg/inst/unitTests/runit.fp.R	2009-10-31 16:50:14 UTC (rev 5)
+++ pkg/inst/unitTests/runit.fp.R	2009-10-31 17:25:29 UTC (rev 6)
@@ -3,3 +3,124 @@
   fp <- new("fingerprint", bits=c(1,2,3,4), nbit=8, provider='rg',name='foo')
   checkTrue(!is.null(fp))
 }
+
+test.distance1 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(5,6,7,8), nbit=8)
+  d <- distance(fp1,fp2)
+  checkEquals(d, 0)
+}
+
+test.distance2 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  d <- distance(fp1,fp2)
+  checkEquals(d, 1)
+}
+
+test.and1 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fpnew <- fp1 & fp2
+  bits <- fpnew at bits
+  checkTrue( all(bits == c(1,2,3,4)))
+}
+test.and2 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(5,6,7,8), nbit=8)
+  fpnew <- fp1 & fp2
+  bits <- fpnew at bits
+  checkEquals(length(bits),0)
+}
+
+test.or1 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(5,6,7,8), nbit=8)
+  fpnew <- fp1 | fp2
+  bits <- fpnew at bits
+  checkTrue(all(bits == c(1,2,3,4,5,6,7,8)))
+}
+test.or2 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fpnew <- fp1 | fp2
+  bits <- fpnew at bits
+  checkTrue(all(bits == c(1,2,3,4)))
+}
+
+test.not <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  nfp1 <- !fp1
+  checkTrue(all(nfp1 at bits == c(5,6,7,8)))
+  checkTrue(all(fp1 at bits == (!nfp1)@bits))
+}
+
+test.xor1 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fpnew <- xor(fp1,fp2)
+  bits <- fpnew at bits
+  checkEquals(length(bits),0)
+}
+test.xor2 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  fp2 <- new("fingerprint",
+             bits=c(5,6,7,8), nbit=8)
+  fpnew <- xor(fp1,fp2)
+  bits <- fpnew at bits
+  checkEquals(length(bits),8)
+  checkTrue(all(bits == c(1,2,3,4,5,6,7,8)))
+}
+
+test.fold1 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4), nbit=8)
+  nfp <- fold(fp1)
+  checkTrue(all(nfp at bits == c(1,2,3,4)))
+}
+
+test.fold2 <- function() {
+  fp1 <- new("fingerprint",
+             bits=c(1,2,3,4,8), nbit=8)
+  nfp <- fold(fp1)
+  checkTrue(all(nfp at bits == c(1,2,3,4)))
+}
+
+test.fp.to.matrix <- function() {
+    fp1 <- new("fingerprint", bits=c(1,2,3,4), nbit=8)
+    fp2 <- new("fingerprint", bits=c(5,6,7,8), nbit=8)
+    fp3 <- new("fingerprint", bits=c(1,2,3,5,6,7,8), nbit=8)
+    m1 <- fp.to.matrix(list(fp1,fp2,fp3))
+    m2 <- rbind(c(1,1,1,1,0,0,0,0),
+                c(0,0,0,0,1,1,1,1),
+                c(1,1,1,0,1,1,1,1))
+    checkTrue(all(m1 == m2))
+}
+
+test.fp.sim.matrix <- function() {
+    fp1 <- new("fingerprint", bits=c(1,2,3,4), nbit=8)
+    fp2 <- new("fingerprint", bits=c(5,6,7,8), nbit=8)
+    fp3 <- new("fingerprint", bits=c(1,2,3,5,6,7,8), nbit=8)
+    fpl <- list(fp1,fp2,fp3)
+    sm <- round(fp.sim.matrix(fpl),2)
+    am <- rbind(c(1,0,0.38),
+                c(0,1,0.57),
+                c(0.38,0.57,1))
+    checkTrue(all(sm == am))
+}

Modified: pkg/man/fingerprint.Rd
===================================================================
--- pkg/man/fingerprint.Rd	2009-10-31 16:50:14 UTC (rev 5)
+++ pkg/man/fingerprint.Rd	2009-10-31 17:25:29 UTC (rev 6)
@@ -48,8 +48,7 @@
     \item{random.fingerprint}{\code{signature(nbit = "numeric", on = "numeric")}: ... }    
 	 }
 }
-\references{}
-\author{Rajarshi Guha \email{rguha at indiana.edu}}
+\author{Rajarshi Guha \email{rajarshi.guha at gmail.com}}
 \seealso{
   \code{\link{fp.read}}, \code{\link{fp.read.to.matrix}}
   \code{\link{fp.sim.matrix}}, \code{\link{fp.to.matrix}},