summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/loc.hs15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/loc.hs b/tests/loc.hs
new file mode 100644
index 0000000..cfc9985
--- /dev/null
+++ b/tests/loc.hs
@@ -0,0 +1,15 @@
+import Control.Monad
+import System.Exit
+
+main = do foo <- getContents
+ let actual_loc = filter isntcomment $
+ map (dropWhile (==' ')) $ lines foo
+ loc = length actual_loc
+ putStrLn $ show loc
+ -- uncomment the following to check for mistakes in isntcomment
+ -- putStr $ unlines $ actual_loc
+ when (loc > 400) $ fail "Too many lines of code!"
+
+isntcomment "" = False
+isntcomment ('-':'-':_) = False
+isntcomment _ = True