Eric Kow <[email protected]> writes: > Slightly refactor test machinery in Setup.lhs. > ---------------------------------------------- >> Petr Rockai <[email protected]>**20090714134119 >> Ignore-this: 32206a331658d407d9c0fb3b48405db6 >> ] hunk ./Setup.lhs 286 >> createDirectory ".darcs" >> when (not $ null fmt) $ appendFile ".darcs/defaults" $ "ALL " ++ fmt ++ >> "\n" >> putStrLn $ "Running tests for format: " ++ fmt >> - exec >> - where exec = do >> - fs <- case tests of >> - [] -> sort `fmap` getDirectoryContents "." >> - x -> return x >> - cwd <- getCurrentDirectory >> - let run = filter isTest fs >> - res <- Harness.runTests (Just darcs_path) cwd run >> - when ((not res) && (k /= Bug)) $ fail "Tests failed" >> - return () > > I wonder what the intention behind this original helper function was. Me too! (I wrote it.)
Yours, Petr. _______________________________________________ darcs-users mailing list [email protected] http://lists.osuosl.org/mailman/listinfo/darcs-users
