From 831c2632abba69e981cbd1bb4af6301d94d1f37d Mon Sep 17 00:00:00 2001
From: mark <mark.vanderloo@gmail.com>
Date: Thu, 18 Jun 2015 11:42:28 +0200
Subject: [PATCH] added tests

---
 pkg/tests/testthat/testPhonetic.R   | 3 ++-
 pkg/tests/testthat/testQgrams.R     | 5 ++++-
 pkg/tests/testthat/testStringdist.R | 4 ++++
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/pkg/tests/testthat/testPhonetic.R b/pkg/tests/testthat/testPhonetic.R
index 1bf2831..740f65b 100644
--- 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
index bab754d..03efe9d 100644
--- 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
index 981dfb8..75fd374 100644
--- 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",{