tests/testthat/test-base_converters.R

In ISO11784Tools: ISO11784 PIT Tag ID Format Converters

test_that("Hexadecimal to Decimal converter works",{
  expect_equal(hexadecimal_to_decimal('2a'),'42')})

test_that("Binary to Decimal converter works",{
  expect_equal(binary_to_decimal('00101010'),'42')})

test_that("Decimal to Binary converter works",{
  expect_equal(decimal_to_binary('42'),'00101010')})

test_that("Decimal to Hexadecimal converter works",{
  expect_equal(decimal_to_hexadecimal('42'),'2a')})

test_that("Hexadecimal to Binary converter works",{
  expect_equal(hexadecimal_to_binary('2a'),'00101010')})

test_that("Binary to Hexadecimal converter works",{
  expect_equal(binary_to_hexadecimal('00101010'),'2a')})

# Test extremes
# case 0
testthat::test_that("Hexadecimal to Decimal converter works",{
  suppressWarnings({
  testthat::expect_equal(hexadecimal_to_decimal('0'),'0')})
})

testthat::test_that("Binary to Decimal converter works",{
  suppressWarnings({
  testthat::expect_equal(binary_to_decimal('0'),'0')})
})

testthat::test_that("Decimal to Binary converter works",{
  suppressWarnings({
  testthat::expect_equal(decimal_to_binary('0'),'0000')})
})

testthat::test_that("Decimal to Hexadecimal converter works",{
  suppressWarnings({
  testthat::expect_equal(decimal_to_hexadecimal('0'),'0')})
})

testthat::test_that("Hexadecimal to Binary converter works",{
  suppressWarnings({
  testthat::expect_equal(hexadecimal_to_binary('0'),'0000')})
})

testthat::test_that("Binary to Hexadecimal converter works",{
  suppressWarnings({
  testthat::expect_equal(binary_to_hexadecimal('0'),'0')})
})

# Case maximum
test_that("Hexadecimal to Decimal converter works",{
  expect_equal(hexadecimal_to_decimal('40000000000000'),'18014398509481984')})

test_that("Binary to Decimal converter works",{
  expect_equal(binary_to_decimal('01000000000000000000000000000000000000000000000000000000'),'18014398509481984')})

test_that("Decimal to Binary converter works",{
  expect_equal(decimal_to_binary('18014398509481984'),'01000000000000000000000000000000000000000000000000000000')})

test_that("Decimal to Hexadecimal converter works",{
  expect_equal(decimal_to_hexadecimal('18014398509481984'),'40000000000000')})

test_that("Hexadecimal to Binary converter works",{
  expect_equal(hexadecimal_to_binary('40000000000000'),'01000000000000000000000000000000000000000000000000000000')})

test_that("Binary to Hexadecimal converter works",{
  expect_equal(binary_to_hexadecimal('01000000000000000000000000000000000000000000000000000000'),'40000000000000')})