GenSmsPdu-0.1: src/Main.hs

module Main where

import GenSmsPdu
import System

tr "normal" = Normal
tr "c" = GenC
tr "send" = Send
tr _ = Normal

main = do args <- getArgs
          mapM_ test_suite (map tr (args ++ ["c"]))