tests

README.md

@@ -70,13 +70,13 @@ library(testthat)
 date()
 ```
 
-    ## [1] "Fri Aug 12 23:38:14 2016"
+    ## [1] "Fri Aug 12 23:58:20 2016"
 
 ``` r
 test_dir("tests/")
 ```
 
     ## testthat results ========================================================================================================
-    ## OK: 0 SKIPPED: 0 FAILED: 0
+    ## OK: 1 SKIPPED: 0 FAILED: 0
     ## 
     ## DONE ===================================================================================================================

tests/test-all.R

@@ -1,2 +1,2 @@
 library(testthat)
-test_check("filemagic")
+test_check("wand")

tests/testthat/test-wand.R

@@ -1,6 +1,11 @@
 context("basic functionality")
 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"))
 
 })