tests/testthat/same_type.R

# Description:
#   Tests for the `sameType` method.

test_that("same_type detects matching atomic types", {
  x = NumericType()
  y = NumericType()

  expect_true(same_type(x, y))
})

test_that("same_type detects different atomic types", {
  x = NumericType()
  y = IntegerType()

  expect_false(same_type(x, y))
})

test_that("same_type detects matching composite types", {
})

test_that("same_type detects different composite types", {
})
nick-ulle/typesys documentation built on Jan. 21, 2020, 5:13 p.m.