ChasingBottoms- For testing partial and infinite values.

Portabilitynon-portable (exceptions)






isBottom :: a -> BoolSource

isBottom a returns False if a is distinct from bottom. If a equals bottom and results in an exception of a certain kind (see below), then isBottom a = True. If a never reaches a weak head normal form and never throws one of these exceptions, then isBottom a never terminates.

The exceptions that yield True correspond to "pure bottoms", i.e. bottoms that can originate in pure code:

Assertions are excluded, because their behaviour depends on compiler flags (not pure, and a failed assertion should really yield an exception and nothing else). The same applies to arithmetic exceptions (machine dependent, except possibly for DivideByZero, but the value infinity makes that case unclear as well).

bottom :: aSource

bottom generates a bottom that is suitable for testing using isBottom.

nonBottomError :: String -> aSource

nonBottomError s raises an exception (AssertionFailed) that is not caught by isBottom. Use s to describe the exception.

isBottomTimeOut :: Maybe Int -> a -> BoolSource

isBottomTimeOut timeOutLimit works like isBottom, but if timeOutLimit is Just lim, then computations taking more than lim seconds are also considered to be equal to bottom. Note that this is a very crude approximation of what a bottom is. Also note that this "function" may return different answers upon different invocations. Take it for what it is worth.

isBottomTimeOut is subject to all the same vagaries as timeOut.