adds a failing test for file playback

test/test_sndfile.jl

@@ -0,0 +1,43 @@
+module TestSndfile
+
+include("testhelpers.jl")
+
+using AudioIO
+using FactCheck
+import AudioIO: DeviceInfo, render, AudioSample
+
+facts("WAV file write/read") do
+    fname = Pkg.dir("AudioIO", "test", "sinwave.wav")
+
+    samplerate = 44100
+    freq = 440
+    t = [0 : 2 * samplerate - 1] / samplerate
+    phase = 2 * pi * freq * t
+    reference = int16((2 ^ 15 - 1) * sin(phase))
+
+    AudioIO.open(fname, "w") do f
+        write(f, reference)
+    end
+
+    # test basic reading
+    AudioIO.open(fname) do f
+        @fact f.sfinfo.channels => 1
+        @fact f.sfinfo.frames => 2 * samplerate
+        actual = read(f, 2 * samplerate)
+        @fact reference => mse(actual)
+    end
+
+    # test rendering as an AudioNode
+    AudioIO.open(fname) do f
+        # pretend we have a stream at the same rate as the file
+        bufsize = 512
+        input = zeros(AudioSample, bufsize)
+        test_info = DeviceInfo(samplerate, bufsize)
+        node = FilePlayer(f)
+        buf = render(node, input, test_info)
+        @fact buf => mse(actual[1:bufsize])
+    end
+
+end
+
+end # module TestSndfile