Minor fixes to sugar median unit tests

Author: nathan-russell

inst/unitTests/runit.sugar.R

@@ -782,7 +782,7 @@ if (.runThisTest) {
     test.sugar.median_int <- function() {
         fx <- median_int
 
-        x <- as.integer(rpos(5, 20))
+        x <- as.integer(rpois(5, 20))
         checkEquals(fx(x), median(x), 
                     "median_int / odd length / no NA / na.rm = FALSE")
 
@@ -794,7 +794,7 @@ if (.runThisTest) {
                     "median_int / odd length / with NA / na.rm = TRUE")
 
         ##
-        x <- as.integer(rpos(6, 20))
+        x <- as.integer(rpois(6, 20))
         checkEquals(fx(x), median(x), 
                     "median_int / even length / no NA / na.rm = FALSE")
 
@@ -874,19 +874,28 @@ if (.runThisTest) {
         checkEquals(fx(x), median(x), 
                     "median_ch / odd length / with NA / na.rm = FALSE")
 
-        checkEquals(fx(x, TRUE), median(x, TRUE), 
+        ## median(x, TRUE) returns NA_real_ for character vector input 
+        ## which results in a warning; i.e. if the vector it passes to 
+        ## `mean.default(sort(x, partial = half + 0L:1L)[half + 0L:1L])`
+        ## has ((length(x) %% 2) == 0)
+        
+        checkEquals(fx(x, TRUE), 
+                    as.character(suppressWarnings(median(x, TRUE))), 
                     "median_ch / odd length / with NA / na.rm = TRUE")
 
         ##
         x <- sample(letters, 6)
-        checkEquals(fx(x), suppressWarnings(median(x)), 
+        checkEquals(fx(x), 
+                    as.character(suppressWarnings(median(x))), 
                     "median_ch / even length / no NA / na.rm = FALSE")
 
         x[4] <- NA
-        checkEquals(fx(x), suppressWarnings(median(x)), 
+        checkEquals(fx(x), 
+                    as.character(suppressWarnings(median(x))), 
                     "median_ch / even length / with NA / na.rm = FALSE")
 
-        checkEquals(fx(x, TRUE), suppressWarnings(median(x, TRUE)), 
+        checkEquals(fx(x, TRUE), 
+                    as.character(suppressWarnings(median(x, TRUE))), 
                     "median_ch / even length / with NA / na.rm = TRUE")
     }