A test…

mrkkrp · Jul 22, 2017 · 470bb10 · 470bb10
1 parent 0451bf9
commit 470bb10
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -45,6 +45,11 @@ spec = do
     it "no upper-cased chars found in slugs" $
       property $ \slug ->
         unSlug slug `shouldNotSatisfy` T.any isUpper
+
+    it "prove it" $
+      property $ \txt ->
+        T.toLower txt `shouldNotSatisfy` T.any isUpper
+
     it "showed Slug looks the same as its inner Text" $
       property $ \slug ->
         show slug === show (unSlug slug)