{-  Exploring Languages with Interpreters and Functional Programming
    Chapter 6 -- Square Root Smoke Test Module
    Copyright (C) 2018, H. Conrad Cunningham

1234567890123456789012345678901234567890123456789012345678901234567890

    2016-07-??: Testing code for module Sqrt.hs
    2018-07-04: Revised for 2018 textbook Chapter 6
-}

module TestSqrt
where

import Sqrt -- file Sqrt.hs, import all public names 

main = do
    putStrLn ("sqrt(0)     = " ++ show (sqrt'     0))
    putStrLn ("sqrt(1)     = " ++ show (sqrt'     1))
    putStrLn ("sqrt(2)     = " ++ show (sqrt'     2))
    putStrLn ("sqrt(3)     = " ++ show (sqrt'     3))
    putStrLn ("sqrt(4)     = " ++ show (sqrt'     4))
    putStrLn ("sqrt(16)    = " ++ show (sqrt'    16))
    putStrLn ("sqrt(256)   = " ++ show (sqrt'   256))
    putStrLn ("sqrt(68096) = " ++ show (sqrt' 68096))
    putStrLn ("sqrt(-1)    = " ++ show (sqrt'  (-1)))