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