change typos

Author: ben-schwen

R/test.data.table.R

@@ -379,13 +379,7 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
   }
   # Check UTF-8 requirement
   if (!isFALSE(requires_utf8)) {
-    # Test string with common UTF-8 symbols that appear in tests: ñ (test 2266), ü (test 1229.3), ん (Japanese)
-    # If requires_utf8 is TRUE, use the default test string; if it's a string, use that string
-    if (isTRUE(requires_utf8)) {
-      test_str = "a\u00F1o \u00FCber \u3093"
-    } else {
-      test_str = requires_utf8
-    }
+    test_str = if (isTRUE(requires_utf8)) "\u00F1\u00FC\u3093" else requires_utf8
     if (!utf8_check(test_str)) {
       last_utf8_skip = get0("last_utf8_skip", parent.frame(), ifnotfound=0, inherits=TRUE)
       if (num - last_utf8_skip >= 1) {

inst/tests/tests.Rraw

@@ -4346,8 +4346,8 @@ test(1163, last(x), character(0))
 
 # Bug fix for #5159 - chmatch and character encoding (for some reason this seems to pass the test on a mac as well)
 a<-c("a","\u00E4","\u00DF","z")
- au<-iconv(a,"UTF8","latin1")
- test(1164.1, requires_utf8=c("\u00E4", "\u00DF"), chmatch(a, au), match(a, au))
+au<-iconv(a,"UTF8","latin1")
+test(1164.1, requires_utf8=c("\u00E4", "\u00DF"), chmatch(a, au), match(a, au))
 
 # Bug fix for #73 - segfault when rbindlist on empty data.tables
 x <- as.data.table(BOD)
@@ -4653,7 +4653,7 @@ local(if (utf8_check("\u00e4\u00f6\u00fc")) {
          "\u00FCberall"=c(0,0), "\u00FCberlegt" = c(0,0), abgeandert=c(2,1), abgebildet = c(0,2), abgelegt=c(0,3)))
   '))
 } else {
-  cat("Tests 1229.3 skipped because required UTF-8 symbols cannot be represented in native encoding.\n")
+  cat("Test 1229.3 skipped because required UTF-8 symbols cannot be represented in native encoding.\n")
 })
 
 # Test that ad hoc by detects if ordered and dogroups switches to memcpy if contiguous, #1050