inst/tests/test-duration.R

In dustin/humanFormat: Human-Friendly Formatting Functions

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))))
})