]> gitweb.michael.orlitzky.com - numerical-analysis.git/blob - test/Doctests.hs
Fix the column matrix 1-norm (it was missing the absolute value).
[numerical-analysis.git] / test / Doctests.hs
1 module Main
2 where
3
4 import Test.DocTest
5 import System.FilePath.Find ((==?), always, extension, find)
6
7 find_sources :: IO [FilePath]
8 find_sources = find always (extension ==? ".hs") "src/"
9
10 main :: IO ()
11 main = do
12 sources <- find_sources
13 doctest $ ["-isrc"] ++ sources