unit test

Qiang Kou · Qiang Kou · commit 1dc048695ade · 2016-05-16T17:24:15.000-04:00
diff --git a/inst/unitTests/runit.String.R b/inst/unitTests/runit.String.R
@@ -24,13 +24,13 @@ if (.runThisTest) {
     .setUp <- Rcpp:::unitTestSetup("String.cpp")
 
     test.replace_all <- function(){
-        checkEquals( String_replace_all("foobar", "o", "*"), "f**bar")
+        checkEquals( String_replace_all("abcdbacdab", "ab", "AB"), "ABcdbacdAB")
     }
     test.replace_first <- function(){
-        checkEquals( String_replace_first("foobar", "o", "*"), "f*obar")
+        checkEquals( String_replace_first("abcdbacdab", "ab", "AB"), "ABcdbacdab")
     }
     test.replace_last <- function(){
-        checkEquals( String_replace_last("foobar", "o", "*"), "fo*bar")
+        checkEquals( String_replace_last("abcdbacdab", "ab", "AB"), "abcdbacdAB")
     }
 
     test.String.sapply <- function(){

Original file line number	Diff line number	Diff line change
`@@ -24,13 +24,13 @@ if (.runThisTest) {`
`24`	`24`	`.setUp <- Rcpp:::unitTestSetup("String.cpp")`
`25`	`25`
`26`	`26`	`test.replace_all <- function(){`
`27`		`- checkEquals( String_replace_all("foobar", "o", ""), "f*bar")`
	`27`	`+ checkEquals( String_replace_all("abcdbacdab", "ab", "AB"), "ABcdbacdAB")`
`28`	`28`	`}`
`29`	`29`	`test.replace_first <- function(){`
`30`		`- checkEquals( String_replace_first("foobar", "o", ""), "fobar")`
	`30`	`+ checkEquals( String_replace_first("abcdbacdab", "ab", "AB"), "ABcdbacdab")`
`31`	`31`	`}`
`32`	`32`	`test.replace_last <- function(){`
`33`		`- checkEquals( String_replace_last("foobar", "o", ""), "fobar")`
	`33`	`+ checkEquals( String_replace_last("abcdbacdab", "ab", "AB"), "abcdbacdAB")`
`34`	`34`	`}`
`35`	`35`
`36`	`36`	`test.String.sapply <- function(){`