Summarize with the number of lines.

robrix · robrix · commit f2318537c938 · 2019-08-02T15:39:02.000-04:00
diff --git a/test/Data/Source/Spec.hs b/test/Data/Source/Spec.hs
@@ -70,9 +70,10 @@ testTree = Tasty.testGroup "Data.Source"
     ]
 
   ]
-  where summarize src
-          | nullSource src = "empty"
-          | otherwise      = "non-empty"
+  where summarize src = case sourceLines src of
+          []  -> "empty"
+          [x] -> if nullSource x then "empty" else "single-line"
+          _   -> "multiple lines"
 
 spec :: Spec
 spec = do

Original file line number	Diff line number	Diff line change
`@@ -70,9 +70,10 @@ testTree = Tasty.testGroup "Data.Source"`
`70`	`70`	`]`
`71`	`71`
`72`	`72`	`]`
`73`		`- where summarize src`
`74`		`- \| nullSource src = "empty"`
`75`		`- \| otherwise = "non-empty"`
	`73`	`+ where summarize src = case sourceLines src of`
	`74`	`+ [] -> "empty"`
	`75`	`+ [x] -> if nullSource x then "empty" else "single-line"`
	`76`	`+ _ -> "multiple lines"`
`76`	`77`
`77`	`78`	`spec :: Spec`
`78`	`79`	`spec = do`