added test of desource90

markvanderloo · Oct 19, 2015 · a6f65f7 · a6f65f7
1 parent 01fe88a
commit a6f65f7
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/pkg/tests/testthat/testStringdist.R b/pkg/tests/testthat/testStringdist.R
@@ -303,7 +303,10 @@ test_that("basic examples and edge cases work",{
   # following test added after issue #42 by github user gtumuluri
   # thanks to Jan for providing this simple example.
   expect_equal(stringdist("DHCXXXXX","HCDXXXXX",method="jw"),stringdist("HCDXXXXX","DHCXXXXX",method="jw"))
-
+  # the following test added after issue #42, comment by desource90
+  expect_equal(
+    stringdist("RICK WARREN","WARREN BUFFET",method="jw")
+    , 1 - (1/3)*(7/13 + 7/11 + (7-3.5)/7))
 })
 
 test_that("Extended examples work",{