/usr/share/doc/libghc-alut-doc/examples/TestSuite/TestErrorStuff.hs is in libghc-alut-doc 2.2.0.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | {-
TestErrorStuff.hs (adapted from test_errorstuff.c in freealut)
Copyright (c) Sven Panne 2005-2009 <sven.panne@aedion.de>
This file is part of the ALUT package & distributed under a BSD-style license
See the file libraries/ALUT/LICENSE
-}
import Sound.ALUT
import System.Exit ( exitFailure, exitWith, ExitCode(ExitSuccess) )
import System.IO ( hPutStrLn, stderr )
-- 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
|