-- | 

test_parse_unzip :: IO Bool 
test_parse_unzip = do 
  dir <- getDataDir 
  let fn = dir </> "test" </> "resources" </> "pp_gogo_events.lhe"
  h <- openFile fn ReadMode
  lst <- evtsHandle False h $$ CL.consume
  return $ (length (catMaybes lst)) == 2

-- | 
test_parse_unzip :: IO Bool
test_parse_unzip = do 
  dir <- getDataDir 
  let fn = dir </> "test" </> "resources" </> "pp_gogo_events.lhe"
  h <- openFile fn ReadMode
  lst <- evtsHandle False h $$ CL.consume
  return $ (length (catMaybes lst)) == 2

-- | 
test_parse_unzip = do 
  dir <- getDataDir 
  let fn = dir </> "test" </> "resources" </> "pp_gogo_events.lhe"
  h <- openFile fn ReadMode
  lst <- evtsHandle False h $$ CL.consume
  return $ (length (catMaybes lst)) == 2

-- | 