Nothing
library(testthat)
library(humanFormat)
neg <- function(x) { -x }
test_that("individual duration formatting works", {
expect_equal("0", formatDuration(0))
expect_equal("1ns", formatDuration(1 * kNanosecond))
expect_equal("1.1us", formatDuration(1100 * kNanosecond))
expect_equal("2.2ms", formatDuration(2200 * kMicrosecond))
expect_equal("3.3s", formatDuration(3300 * kMillisecond))
expect_equal("4m5s", formatDuration(4*kMinute + 5*kSecond))
expect_equal("4m5.001s", formatDuration(4*kMinute + 5001*kMillisecond))
expect_equal("5h6m7.001s", formatDuration(5*kHour + 6*kMinute + 7001*kMillisecond))
expect_equal("8m0.000000001s", formatDuration(8*kMinute + 1*kNanosecond))
expect_equal("32d4h", formatDuration(32 * 24 * kHour + 4 * kHour + 19 * kMinute))
expect_equal("17w4d", formatDuration(122 * kDay + 14 * kHour))
expect_equal("2y70d", formatDuration(2 * kYear + 70 * kDay))
})
test_that("individual negative duration formatting works", {
expect_equal("-1ns", formatDuration(neg(1 * kNanosecond)))
expect_equal("-1.1us", formatDuration(neg(1100 * kNanosecond)))
expect_equal("-2.2ms", formatDuration(neg(2200 * kMicrosecond)))
expect_equal("-3.3s", formatDuration(neg(3300 * kMillisecond)))
expect_equal("-4m5s", formatDuration(neg(4*kMinute + 5*kSecond)))
expect_equal("-4m5.001s", formatDuration(neg(4*kMinute + 5001*kMillisecond)))
expect_equal("-5h6m7.001s", formatDuration(neg(5*kHour + 6*kMinute + 7001*kMillisecond)))
expect_equal("-8m0.000000001s", formatDuration(neg(8*kMinute + 1*kNanosecond)))
expect_equal("-32d4h", formatDuration(neg(32 * 24 * kHour + 4 * kHour + 19 * kMinute)))
expect_equal("-17w4d", formatDuration(neg(122 * kDay + 14 * kHour)))
expect_equal("-2y70d", formatDuration(neg(2 * kYear + 70 * kDay)))
})
test_that("converted durations format", {
expect_equal("13ns", formatNanoseconds(13))
expect_equal("13us", formatNanoseconds(13000))
expect_equal("13us", formatMicroseconds(13))
expect_equal("13ms", formatMicroseconds(13000))
expect_equal("13ms", formatMilliseconds(13))
expect_equal("13s", formatMilliseconds(13000))
})
test_that("vector duration formatting works", {
expect_equal(c("0", "1ns", "1.1us", "2.2ms", "3.3s",
"4m5.000000000s", "4m5.001000000s",
"5h6m7.001000000s", "8m0.000000001s"),
formatDuration(c(0,
1 * kNanosecond,
1100 * kNanosecond,
2200 * kMicrosecond,
3300 * kMillisecond,
4*kMinute + 5*kSecond,
4*kMinute + 5001*kMillisecond,
5*kHour + 6*kMinute + 7001*kMillisecond,
8*kMinute + 1*kNanosecond)))
})
test_that("negative vector duration formatting works", {
expect_equal(c("0", "-1ns", "-1.1us", "-2.2ms", "-3.3s",
"-4m5.000000000s", "-4m5.001000000s",
"-5h6m7.001000000s", "-8m0.000000001s"),
formatDuration(neg(c(0,
1 * kNanosecond,
1100 * kNanosecond,
2200 * kMicrosecond,
3300 * kMillisecond,
4*kMinute + 5*kSecond,
4*kMinute + 5001*kMillisecond,
5*kHour + 6*kMinute + 7001*kMillisecond,
8*kMinute + 1*kNanosecond))))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.