tests/testthat/test-apropos.R

In rim: Interface to 'Maxima', Enabling Symbolic Computation

test_that("maxima.apropos returns exact result", {
  if(!maxima.env$maxima$isInstalled()) 
    skip("Maxima not installed") 

  to <- maxima.apropos("int")

  expect_s3_class(to, "maxima")
  expect_type(to, "list")
  expect_match(attr(to, "input.label"), "^%\\i[[:digit::]]*$")
  expect_match(attr(to, "output.label"), "^\\%o[[:digit::]]*$")
  expect_equal(attr(to, "command"), "apropos(\"int\");")
  expect_true(!attr(to, "suppressed"))

  expect_named(to, expected = c("wtl", "wol"))
  expect_named(to$wtl, expected = c("linear", "ascii", "latex", "inline", "mathml"))
  expect_named(to$wol, expected = c("linear", "ascii", "latex", "inline", "mathml", "rstr"))
  
  expect_gt(length(to$wtl$linear), 10L)
  expect_gt(length(to$wtl$ascii), 10L)
  expect_length(to$wtl$latex, 1L)
  expect_gt(length(to$wtl$mathml), 10L)

  expect_gt(length(to$wol$linear), 10L)
  expect_gt(length(to$wol$ascii), 10L)
  expect_length(to$wol$latex, 1L)
  expect_gt(length(to$wol$mathml), 10L)
})