tests/testthat/test-new_class.R

In bandicoot: Light-Weight 'python'-Like Object-Oriented System

test_that("bandicoot::new_class() can create a class", {
  a <- bandicoot::new_class(class_name = "test")
  expect_equal(a$..str..(), "<test class>")
})

test_that("bandicoot::new_class() can create a class with manually specified BASE", {
  a <- bandicoot::new_class(bandicoot::BASE, class_name = "test")
  expect_equal(a$..str..(), "<test class>")
})

test_that("bandicoot::new_class() can create an empty class", {
  a <- bandicoot::new_class(class_name = "test", empty_class = TRUE)
  expect_false("..str.." %in% names(a))
})

test_that("bandicoot::new_class() can inherit from two classes and the left class will override the right class", {
  derived <- bandicoot::new_class(class_name = "derived")
  register_method(derived, ..init.. = function(){"test"})

  a <- bandicoot::new_class(derived, bandicoot::BASE, class_name = "test")
  expect_equal(a$..str..(), "<test class>")
  expect_equal(a$..init..(), "test")
  expect_equal(a$..class.., c("test", "derived", "BASE"))
})

test_that("bandicoot::new_class() can detect no class name is provided", {
  a <- new.env()
  expect_error(bandicoot::new_class(bandicoot::BASE, env = a),
               "`class_name` is null!",
               ignore.case = TRUE)
})