language-nix/test: report how many tested identifiers need quoting

Currently this is practically > 95% which isn't great. Presumably, the
examples for simple identifiers are very short as well.

Author: sternenseemann

language-nix/test/hspec.hs

@@ -21,10 +21,14 @@ main = hspec $ do
 
     describe "HasParser Identifier" $ do
       it "can parse the result of prettyShow" $
-        property $ \i -> parseM "Identifier" (prettyShow i) == Just (i :: Identifier)
+        identProperty $ \i -> parseM "Identifier" (prettyShow i) == Just (i :: Identifier)
       it "can parse the result of quote" $
         stringIdentProperty $ \str -> parseM "Identifier" (quote str) == Just (ident # str)
 
 stringIdentProperty :: (String -> Bool) -> Property
 stringIdentProperty p = property $ \s ->
-  '\0' `notElem` s ==> p s
+  '\0' `notElem` s ==> classify (needsQuoting s) "need quoting" $ p s
+
+identProperty :: (Identifier -> Bool) -> Property
+identProperty p = property $ \i ->
+  classify (needsQuoting (from ident # i)) "need quoting" $ p i