Update acronym tests to version 1.7.0 (#117)

* Update acronym tests to version 1.7.0

* Update acronym example.R to pass new tests

* Disambiguate variable name

exercises/acronym/example.R

@@ -1,12 +1,6 @@
 acronym <- function(input) {
-  # split the string by spaces or hyphens
-  split <- strsplit(input, " |-")
-
-  # get the first letter of each substring
-  first_letters <- substring(split[[1]], 1, 1)
-
-  # join the acronym back together & make uppercase
-  acronym <- paste(toupper(first_letters), collapse = "")
-
-  return(acronym)
+  words <- strsplit(input, " |-")[[1]]
+  words <- gsub("[[:punct:]]", "", words)
+  first_letters <- lapply(words, substring, 1, 1)
+  toupper(paste(first_letters, collapse = ""))
 }

exercises/acronym/test_acronym.R

@@ -36,5 +36,19 @@ test_that("Very long abbreviation", {
   expect_equal(acronym(input), "ROTFLSHTMDCOALM")
 })
 
-message("All tests passed for exercise: acronym")
+test_that("Consecutive delimiters", {
+  input <- "Something - I made up from thin air"
+  expect_equal(acronym(input), "SIMUFTA")
+})
+
+test_that("Apostrophes", {
+  input <- "Halley's Comet"
+  expect_equal(acronym(input), "HC")
+})
 
+test_that("Underscore emphasis", {
+  input <- "The Road _Not_ Taken"
+  expect_equal(acronym(input), "TRNT")
+})
+
+message("All tests passed for exercise: acronym")