{- CSci 450/503: Org. of Programming Languages, Test Module
   Movable Objects Case Study from Thompson textbook
   H. Conrad Cunningham

1234567890123456789012345678901234567890123456789012345678901234567890

2017-10-28: Adapt originalfrom Thompson Sec. 4.6
2017-10-31: Create testing module, but still incomplete

Adapted from Chapter 14, Section 6, of:
    Simon Thompson.
    Haskell: The Craft of Functional Programming, Third Edition
    Addison-Wesley, 1996-2011.

TODO:
- Complete testing module

-}

module NamedMovableTest
    ( main )
where

import NamedMovableObjects
    ( Movable(..), Vector(..), Point(..), Figure(..),
      Named(..), Name(..),
      NamedMovable(..), mapName
    )

main :: IO ()
main = do
    putStrLn "Begin Testing"
    putStrLn "No tests defined yet!"
    putStrLn "End Testing"