Bob Rudis
8 years ago
3 changed files with 9 additions and 4 deletions
@ -1,2 +1,2 @@ |
|||||
library(testthat) |
library(testthat) |
||||
test_check("filemagic") |
test_check("wand") |
||||
|
@ -1,6 +1,11 @@ |
|||||
context("basic functionality") |
context("basic functionality") |
||||
test_that("we can do something", { |
test_that("we can do something", { |
||||
|
|
||||
#expect_that(some_function(), is_a("data.frame")) |
tmp <- incant(list.files(system.file("img", package="wand"), full.names=TRUE), |
||||
|
magic_wand_file()) |
||||
|
tmp <- tmp$description |
||||
|
tmp <- unlist(tmp, use.names=FALSE) |
||||
|
|
||||
|
expect_that(tmp[2], equals("C source, ASCII text")) |
||||
|
|
||||
}) |
}) |
||||
|
Loading…
Reference in new issue