context("basic functionality") test_that("we can do something", { tmp <- incant(list.files(system.file("img", package="wand"), full.names=TRUE), magic_wand_file()) tmp <- tmp$description tmp <- unlist(tmp, use.names=FALSE) tmp <- sort(tmp) expect_that(tmp[3], equals("C source, ASCII text")) })