tests/testthat/test_search.R

context( "search" )

test_that( "works as expected", {
  
  expect_equal( nrow( sch( iris, 'setos') ), 50 )
  expect_equal( nrow( sch( iris, 'Setos', ignore.case = FALSE ) ), 0 )
  expect_equal( nrow( sch( iris, '.', do.regex = TRUE ) ), nrow(iris) )
  
})
superchordate/bc documentation built on June 20, 2019, 4:05 p.m.