turtle-1.3.2: test/RegressionMaskingException.hs

{-# LANGUAGE OverloadedStrings #-}

import Turtle

import qualified System.Timeout

-- This test fails by hanging
main :: IO ()
main = runManaged (do
    _ <- fork (shells "while true; do sleep 1; done" empty)
    sleep 1
    return () )