Commit 30193198 authored by pcapriotti's avatar pcapriotti
Browse files

Add testcase for #5930.

parent 75efe3ca
import Control.Monad (when)
import Data.Maybe (isJust)
import System.Environment (lookupEnv)
main :: IO ()
main = do
term <- lookupEnv "PATH"
when (isJust term) $ putStrLn "Got PATH"
fish <- lookupEnv "One fish, two fish, red fish, blue fish"
print fish
......@@ -2,6 +2,7 @@
test('exitWith001', exit_code(42), compile_and_run, [''])
test('getArgs001', normal, compile_and_run, [''])
test('getEnv001', normal, compile_and_run, [''])
test('T5930', normal, compile_and_run, [''])
test('system001', if_platform("i386-unknown-mingw32", expect_fail), \
compile_and_run, [''])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment