added tests

markvanderloo · Jun 18, 2015 · 831c263 · 831c263
1 parent fca8729
commit 831c263
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/pkg/tests/testthat/testPhonetic.R b/pkg/tests/testthat/testPhonetic.R
@@ -20,7 +20,8 @@ Lee;L000
 NA;NA"
   testset <- read.csv2(textConnection(testset), stringsAsFactors=FALSE)
   expect_that(phonetic(testset$name,"soundex"), equals(testset$code))
-
+  expect_that(phonetic(testset$name,"soundex",useBytes=TRUE), equals(testset$code))
+  expect_warning(phonetic(paste0('Mot',intToUtf8(0x00F6),'rhead')))  
 }) 
 
 test_that("soundex handles encoding",{

diff --git a/pkg/tests/testthat/testQgrams.R b/pkg/tests/testthat/testQgrams.R
@@ -12,4 +12,7 @@ test_that("qgram edge cases",{
   expect_equivalent(qgrams(c(''),q=0), as.matrix(table('')))          # empty string, q=0
 })
 
-
+test_that("qgrams",{
+  expect_equivalent(qgrams("a",q=1),array(1,dim=c(1,1)))
+  expect_equivalent(qgrams("a",q=1,useBytes=TRUE),array(1,dim=c(1,1)))
+})
diff --git a/pkg/tests/testthat/testStringdist.R b/pkg/tests/testthat/testStringdist.R
@@ -9,6 +9,7 @@ test_that("Argument parsing",{
    expect_error(stringdist("a","b",weight=c(-1,1,1,1)))
    expect_error(stringdist("a","b",weight=c(1,0,1,1)))
    expect_error(stringdist("a","b",weight=c(1,1,1,4)))
+   expect_warning(stringdist(letters[1:3],letters[1:2]))
 }) 
 
 
@@ -506,6 +507,9 @@ test_that("",{
   expect_equal(stringdist("r00d","rt",method='soundex'),0)  
   # consonants are not merged when a vowel in between
   expect_equal(stringdist("sock", "sck", method='soundex'),1)
+  x <- "Motorhead"
+  y <- paste0("Mot",intToUtf8(0x00F6),"rhead") # with o-umlaut
+  expect_warning(stringdist(x,y,method='soundex',useBytes=TRUE))  
 })
 
 test_that("Shortest argument is recycled",{