acronym: upgrade to 1.7.0 (add extra test case) (#861)

add underscore test case fix the text example to pass the newly added test case exercism/problem-specifications#1436
exercism · Oct 10, 2019 · 9252572 · 9252572
1 parent f88e6a4
commit 9252572
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/exercises/acronym/examples/success-text/src/Acronym.hs b/exercises/acronym/examples/success-text/src/Acronym.hs
@@ -10,6 +10,6 @@ abbreviate s = T.filter (/= ' ') $ T.zipWith sanitize (" " <> s) (s <> " ")
 
 sanitize :: Char -> Char -> Char
 sanitize a b
-  | (a == ' ' || a == '-') && isLetter b = toUpper b
+  | not (isLetter a) && a /= '\'' && isLetter b = toUpper b
   | isLower a && isUpper b = b
   | otherwise = ' '
diff --git a/exercises/acronym/package.yaml b/exercises/acronym/package.yaml
@@ -1,5 +1,5 @@
 name: acronym
-version: 1.6.0.10
+version: 1.7.0.11
 
 dependencies:
   - base

diff --git a/exercises/acronym/test/Tests.hs b/exercises/acronym/test/Tests.hs
@@ -62,4 +62,8 @@ cases = [ Case { description = "basic"
                , input       = "Halley's Comet"
                , expected    = "HC"
                }
+        , Case { description = "underscore emphasis"
+               , input       = "The Road _Not_ Taken"
+               , expected    = "TRNT"
+               }
         ]