tests/testthat/test-rational-add.R

In bertcarnell/rational: Rational Numbers in S3, S4, R6, S7

testthat::context("test-rational-add")

testthat::test_that("Test Addition S4", {
  expect_error(rational(c(1L,2L),c(3L,5L), "S4") + rational(1L, 2L, "S4"))

  a <- rational(1L,2L,"S4")
  b <- rational(3L,5L,"S4")
  d <- a + b
  expect_true(d@n == 11)
  expect_true(d@d == 10)
  a <- 7L
  b <- rational(3L,5L,"S4")
  d <- a + b
  expect_true(d@n == 38)
  expect_true(d@d == 5)
  a <- rational(1L,2L,"S4")
  b <- 7L
  d <- a + b
  expect_true(d@n == 15)
  expect_true(d@d == 2)
  a <- 7
  b <- rational(3L,5L,"S4")
  d <- a + b
  expect_true(abs(d - 7.6) < 1E-12)
  a <- rational(1L,2L,"S4")
  b <- 7
  d <- a + b
  expect_true(abs(d - 7.5) < 1E-12)
})

testthat::test_that("Test Addition S3", {
  expect_true(is.na(rational(1L, 2L, "S3") + "test"))

  a <- rational(1L,2L,"S3")
  b <- rational(3L,5L,"S3")
  d <- a + b
  expect_true(d$n == 11)
  expect_true(d$d == 10)
  a <- 7L
  b <- rational(3L,5L,"S3")
  d <- a + b
  expect_true(d$n == 38)
  expect_true(d$d == 5)
  a <- rational(1L,2L,"S3")
  b <- 7L
  d <- a + b
  expect_true(d$n == 15)
  expect_true(d$d == 2)
  a <- 7
  b <- rational(3L,5L,"S3")
  d <- a + b
  expect_true(abs(d - 7.6) < 1E-12)
  a <- rational(1L,2L,"S3")
  b <- 7
  d <- a + b
  expect_true(abs(d - 7.5) < 1E-12)
})

testthat::test_that("Test Addition r6", {
  expect_true(is.na(rational(1L, 2L, "R6") + "test"))

  a <- rational(1L,2L,"R6")
  b <- rational(3L,5L,"R6")
  d <- a + b
  expect_true(d$getNumerator() == 11)
  expect_true(d$getDenominator() == 10)
  a <- 7L
  b <- rational(3L,5L,"R6")
  d <- a + b
  expect_true(d$getNumerator() == 38)
  expect_true(d$getDenominator() == 5)
  a <- rational(1L,2L,"R6")
  b <- 7L
  d <- a + b
  expect_true(d$getNumerator() == 15)
  expect_true(d$getDenominator() == 2)
  a <- 7
  b <- rational(3L,5L,"R6")
  d <- a + b
  expect_true(abs(d - 7.6) < 1E-12)
  a <- rational(1L,2L,"R6")
  b <- 7
  d <- a + b
  expect_true(abs(d - 7.5) < 1E-12)
  a <- rational(1L,2L,"R6")
  b <- rational(3L,5L,"R6")
  a$add(b)
  expect_true(a$getNumerator() == 11)
  expect_true(a$getDenominator() == 10)
  a <- rational(1L,2L,"R6")
  b <- 7L
  a$add(b)
  expect_true(a$getNumerator() == 15)
  expect_true(a$getDenominator() == 2)
})

testthat::test_that("Test Addition S7", {
  expect_error(rational(c(1L,2L),c(3L,5L), "S7") + rational(1L, 2L, "S7"))

  a <- rational(1L,2L,"S7")
  b <- rational(3L,5L,"S7")
  d <- a + b
  expect_true(d@n == 11)
  expect_true(d@d == 10)
  a <- 7L
  b <- rational(3L,5L,"S7")
  d <- a + b
  expect_true(d@n == 38)
  expect_true(d@d == 5)
  a <- rational(1L,2L,"S7")
  b <- 7L
  d <- a + b
  expect_true(d@n == 15)
  expect_true(d@d == 2)
  a <- 7
  b <- rational(3L,5L,"S7")
  d <- a + b
  expect_true(abs(d - 7.6) < 1E-12)
  a <- rational(1L,2L,"S7")
  b <- 7
  d <- a + b
  expect_true(abs(d - 7.5) < 1E-12)
})