Skip to content

Commit

Permalink
add MP3 sample for testing
Browse files Browse the repository at this point in the history
  • Loading branch information
mrkkrp committed Nov 1, 2015
1 parent 9761e88 commit 0e2be1f
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 1 deletion.
Binary file added audio-samples/sample.mp3
Binary file not shown.
4 changes: 3 additions & 1 deletion tests/Util.hs
Expand Up @@ -98,7 +98,9 @@ sampleTags path = AudioTags
, atChannels = fromJust $ mkChannels 2 }

fileList :: [(String, FileType)]
fileList = [ ("audio-samples/sample.flac", FLAC) ]
fileList =
[ ("audio-samples/sample.flac", FLAC)
, ("audio-samples/sample.mp3", MPEG) ]

caseWithFile :: Show a => (a -> Assertion) -> a -> Test
caseWithFile f param = testCase ("checking file: " ++ show param) (f param)

0 comments on commit 0e2be1f

Please sign in to comment.