update formatting

krlmlr · krlmlr · commit 7ce88829869d · 2018-03-24T00:34:15.000+01:00
@hadley: Is this the formatting we want to see? Changing this requires patching prettyunits or using our own code again.
diff --git a/tests/testthat/test-format.R b/tests/testthat/test-format.R
@@ -8,36 +8,40 @@ expect_format_equal <- function(formatted, result) {
 }
 
 test_that("unequal sizes", {
+  skip_on_cran()
+
   x <- blob(raw(2 ** 2), raw(2 ** 11), raw(2 ** 20))
 
   expect_format_equal(
     format(x),
     c(
-      "blob[4 B]",
-      "blob[2,050 B]",
-      "blob[1,050,000 B]"
+      "blob[4.00 B]",
+      "blob[2.05 kB]",
+      "blob[1.05 MB]"
     )
   )
 
   expect_format_equal(
     format(x, trim = FALSE),
     c(
-      "blob[        4 B]",
-      "blob[    2,050 B]",
-      "blob[1,050,000 B]"
+      "blob[4.00 B]",
+      "blob[2.05 kB]",
+      "blob[1.05 MB]"
     )
   )
 })
 
 test_that("similar sizes", {
+  skip_on_cran()
+
   x <- blob(raw(2 ** 10), raw(2 ** 11), raw(2 ** 12))
 
   expect_format_equal(
     format(x),
     c(
-      "blob[1 kB]",
-      "blob[2 kB]",
-      "blob[4 kB]"
+      "blob[1.02 kB]",
+      "blob[2.05 kB]",
+      "blob[4.10 kB]"
     )
   )
 })
