-- main :: IO ()
-- main = if null allTestSuites
--        then print ("All Tests Passed" :: String)
--        else (putStrLn . unwords $ allTestSuites )*>
--             fail ("Error, some tests failed" :: String)
--  where
--    allTestSuites = lefts.concat $ [valentineParserSpec] ::[String]


main :: IO ()
main = runTests testParseStringTrees
main :: IO ()
main = runTests testParseStringTrees
main = runTests testParseStringTrees