-- This is a minimal test for error handling.

main :: IO ()
main = do
   withProgNameAndArgs runALUT $ \_progName _args ->
     createBuffer (File "no_such_file_in_existance.wav")
       `catch` const (exitWith ExitSuccess)
   hPutStrLn stderr "expected an I/O error"
   exitFailure
main :: IO ()
main = do
   withProgNameAndArgs runALUT $ \_progName _args ->
     createBuffer (File "no_such_file_in_existance.wav")
       `catch` const (exitWith ExitSuccess)
   hPutStrLn stderr "expected an I/O error"
   exitFailure
main = do
   withProgNameAndArgs runALUT $ \_progName _args ->
     createBuffer (File "no_such_file_in_existance.wav")
       `catch` const (exitWith ExitSuccess)
   hPutStrLn stderr "expected an I/O error"
   exitFailure