extra/magic/magic-tests.factor

   1 USING: magic system tools.test ;
   2 IN: magic.tests
   3
   4 { "data" } [ image-path guess-file ] unit-test
   5 { "application/octet-stream" } [ image-path guess-mime-type ] unit-test
   6 { "binary" } [ image-path guess-mime-encoding ] unit-test