Merge pull request #69 from JohnHBrock/pull-request/74f8c25b

Fix del_format when magic bytes are generated by function and add rel…

Author: timholy

src/query.jl

@@ -148,6 +148,11 @@ function del_magic{N}(magic::NTuple{N, UInt8}, sym)
     nothing
 end
 
+function del_magic(magic::Function, sym)
+    deleteat!(magic_func, findfirst(magic_func, Pair(magic,sym)))
+    nothing
+end
+
 """
 `info(fmt)` returns the magic bytes/extension information for
 `DataFormat` `fmt`."""

test/query.jl

@@ -309,3 +309,7 @@ context("AVI Detection") do
     q = query(joinpath(file_dir, "bees.avi"))
     @fact typeof(q) --> File{format"AVI"}
 end
+context("Format with function for magic bytes") do
+    add_format(format"FUNCTION_FOR_MAGIC_BYTES", x -> 0x00, ".wav", [:WAV])
+    del_format(format"FUNCTION_FOR_MAGIC_BYTES")
+end