File: test_checkMultiClass.R

package info (click to toggle)
r-cran-checkmate 2.3.4-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,512 kB
  • sloc: ansic: 2,211; sh: 9; makefile: 8
file content (14 lines) | stat: -rw-r--r-- 411 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
context("checkMultiClass")

test_that("checkMultiClass", {
  myobj = 1
  expect_succ_all(MultiClass, myobj, "numeric", cc = "MultiClass", lc = "multi_class")
  expect_fail_all(MultiClass, myobj, "integer")

  foo = 1
  class(foo) = c("a", "b")
  expect_true(testMultiClass(foo, "a"))
  expect_true(testMultiClass(foo, "b"))
  expect_false(testClass(foo, "c"))
  expect_true(testMultiClass(foo, c("c", "b")))
})