----------------------------------------------------------------------

testSimple :: FilePath -> Ssheet -> IO ()
testSimple source expected = do
  putStrLn $ "Testing " ++ source
  either_ssheet <- ssheetReadFile ssheetDefaultOptions source
  case either_ssheet of
   Left err -> do
     showError err
     exitFailure
   Right ssheet -> do
     unless (ssheet == expected) (error $ source ++ ": unexpected data extracted:\n" ++ (ssheetJsonPrettyPrintToString ssheet))
testSimple :: FilePath -> Ssheet -> IO ()
testSimple source expected = do
  putStrLn $ "Testing " ++ source
  either_ssheet <- ssheetReadFile ssheetDefaultOptions source
  case either_ssheet of
   Left err -> do
     showError err
     exitFailure
   Right ssheet -> do
     unless (ssheet == expected) (error $ source ++ ": unexpected data extracted:\n" ++ (ssheetJsonPrettyPrintToString ssheet))
testSimple source expected = do
  putStrLn $ "Testing " ++ source
  either_ssheet <- ssheetReadFile ssheetDefaultOptions source
  case either_ssheet of
   Left err -> do
     showError err
     exitFailure
   Right ssheet -> do
     unless (ssheet == expected) (error $ source ++ ": unexpected data extracted:\n" ++ (ssheetJsonPrettyPrintToString ssheet))