🔥 Remove superfluous messages in tests

exercises/practice/acronym/test_acronym.R

@@ -1,8 +1,6 @@
 source("./acronym.R")
 library(testthat)
 
-context("acronym")
-
 test_that("Abbreviate a phrase", {
   input <- "Portable Network Graphics"
   expect_equal(acronym(input), "PNG")
@@ -32,7 +30,8 @@ test_that("Very long abbreviation", {
   input <- paste(
     "Rolling On The Floor Laughing So Hard ",
     "That My Dogs Came Over And Licked Me",
-    sep = "")
+    sep = ""
+  )
   expect_equal(acronym(input), "ROTFLSHTMDCOALM")
 })
 
@@ -50,5 +49,3 @@ test_that("Underscore emphasis", {
   input <- "The Road _Not_ Taken"
   expect_equal(acronym(input), "TRNT")
 })
-
-message("All tests passed for exercise: acronym")

exercises/practice/allergies/test_allergies.R

@@ -1,8 +1,6 @@
 source("./allergies.R")
 library(testthat)
 
-context("allergies")
-
 test_that("no allergies means not allergic", {
   x <- allergy(0)
   expect_false(allergic_to(x, "peanuts"))
@@ -45,42 +43,45 @@ test_that("allergic to just strawberries", {
 test_that("allergic to eggs and peanuts", {
   x <- allergy(3)
   expect_true(setequal(
-    list_allergies(x), 
-    c("eggs", "peanuts"))
-  )
+    list_allergies(x),
+    c("eggs", "peanuts")
+  ))
 })
 
 test_that("allergic to more than eggs but not peanuts", {
   x <- allergy(5)
   expect_true(setequal(
-    list_allergies(x), 
-    c("eggs", "shellfish"))
-  )
+    list_allergies(x),
+    c("eggs", "shellfish")
+  ))
 })
 
 test_that("allergic to lots of stuff", {
   x <- allergy(248)
   expect_true(setequal(
-    list_allergies(x), 
-    c("strawberries", "tomatoes", "chocolate", "pollen", "cats"))
-  )
+    list_allergies(x),
+    c("strawberries", "tomatoes", "chocolate", "pollen", "cats")
+  ))
 })
 
 test_that("allergic to everything", {
   x <- allergy(255)
   expect_true(setequal(
-    list_allergies(x), 
-    c("eggs", "peanuts", "shellfish", "strawberries", "tomatoes", 
-      "chocolate", "pollen", "cats")))
+    list_allergies(x),
+    c(
+      "eggs", "peanuts", "shellfish", "strawberries", "tomatoes",
+      "chocolate", "pollen", "cats"
+    )
+  ))
 })
 
 test_that("ignore non allergen score parts", {
   x <- allergy(509)
   expect_true(setequal(
-    list_allergies(x), 
-    c("eggs", "shellfish", "strawberries", "tomatoes", 
-      "chocolate", "pollen", "cats"))
-  )
+    list_allergies(x),
+    c(
+      "eggs", "shellfish", "strawberries", "tomatoes",
+      "chocolate", "pollen", "cats"
+    )
+  ))
 })
-
-message("All tests passed for exercise: allergies")

exercises/practice/anagram/test_anagram.R

@@ -1,151 +1,193 @@
 source("./anagram.R")
 library(testthat)
 
-context("anagram")
-
 test_that("no matches", {
   subject <- "diaper"
   candidates <- c("hello", "world", "zombies", "pants")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("detects simple anagram", {
   subject <- "ant"
   candidates <- c("tan", "stand", "at")
-  expect_equal(anagram(subject, candidates),
-               c("tan"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("tan")
+  )
 })
 
 test_that("does not detect false positives", {
   subject <- "galea"
   candidates <- c("eagle")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("detects two anagrams", {
   subject <- "solemn"
   candidates <- c("lemons", "cherry", "melons")
-  expect_equal(anagram(subject, candidates),
-               c("lemons", "melons"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("lemons", "melons")
+  )
 })
 
 test_that("does not detect anagram subsets", {
   subject <- "good"
   candidates <- c("dog", "goody")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("detects anagram", {
   subject <- "listen"
   candidates <- c("enlists", "google", "inlets", "banana")
-  expect_equal(anagram(subject, candidates),
-               c("inlets"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("inlets")
+  )
 })
 
 test_that("detects three anagrams", {
   subject <- "allergy"
   candidates <-
     c("gallery", "ballerina", "regally", "clergy", "largely", "leading")
-  expect_equal(anagram(subject, candidates),
-               c("gallery", "regally", "largely"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("gallery", "regally", "largely")
+  )
 })
 
 test_that("detects multiple anagrams with different case", {
   subject <- "nose"
   candidates <-
     c("Eons", "ONES")
-  expect_equal(anagram(subject, candidates),
-               c("Eons", "ONES"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("Eons", "ONES")
+  )
 })
 
 test_that("does not detect identical words", {
   subject <- "corn"
   candidates <- c("corn", "dark", "Corn", "rank", "CORN", "cron", "park")
-  expect_equal(anagram(subject, candidates),
-               c("cron"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("cron")
+  )
 })
 
 test_that("does not detect non-anagrams with identical checksum", {
   subject <- "mass"
   candidates <- c("last")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("detects anagrams case-insensitively", {
   subject <- "Orchestra"
   candidates <- c("cashregister", "Carthorse", "radishes")
-  expect_equal(anagram(subject, candidates),
-               c("Carthorse"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("Carthorse")
+  )
 })
 
 test_that("detects anagrams using case-insensitive subject", {
   subject <- "Orchestra"
   candidates <- c("cashregister", "carthorse", "radishes")
-  expect_equal(anagram(subject, candidates),
-               c("carthorse"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("carthorse")
+  )
 })
 
 test_that("detects anagrams using case-insensitve possible matches", {
   subject <- "orchestra"
   candidates <- c("cashregister", "Carthorse", "radishes")
-  expect_equal(anagram(subject, candidates),
-               c("Carthorse"))
+  expect_equal(
+    anagram(subject, candidates),
+    c("Carthorse")
+  )
 })
 
 test_that("does not detect a anagram if the original word is repeated", {
   subject <- "go"
   candidates <- c("go Go GO")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("anagrams must use all letters exactly once", {
   subject <- "tapper"
   candidates <- c("patter")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("eliminates anagrams with the same checksum", {
   subject <- "mass"
   candidates <- c("last")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that("words are not anagrams of themselves", {
   subject <- "BANANA"
   candidates <- c("BANANA")
-  expect_equal(anagram(subject, candidates),
-               c())
+  expect_equal(
+    anagram(subject, candidates),
+    c()
+  )
 })
 
 test_that(
-  "not an anagram even if letter case is partially different", {
-  subject <- "BANANA"
-  candidates <- c("Banana")
-  expect_equal(anagram(subject, candidates),
-               c())
-})
+  "not an anagram even if letter case is partially different",
+  {
+    subject <- "BANANA"
+    candidates <- c("Banana")
+    expect_equal(
+      anagram(subject, candidates),
+      c()
+    )
+  }
+)
 
 test_that(
-  "not an anagram even if letter case is completely different", {
-  subject <- "BANANA"
-  candidates <- c("banana")
-  expect_equal(anagram(subject, candidates),
-               c())
-})
+  "not an anagram even if letter case is completely different",
+  {
+    subject <- "BANANA"
+    candidates <- c("banana")
+    expect_equal(
+      anagram(subject, candidates),
+      c()
+    )
+  }
+)
 
 test_that(
-  "words other than themselves can be anagrams", {
-  subject <- "LISTEN"
-  candidates <- c("LISTEN", "Silent")
-  expect_equal(anagram(subject, candidates),
-               c("Silent"))
-})
-
-message("All tests passed for exercise: anagram")
+  "words other than themselves can be anagrams",
+  {
+    subject <- "LISTEN"
+    candidates <- c("LISTEN", "Silent")
+    expect_equal(
+      anagram(subject, candidates),
+      c("Silent")
+    )
+  }
+)

exercises/practice/armstrong-numbers/test_armstrong-numbers.R

@@ -1,8 +1,6 @@
 source("./armstrong-numbers.R")
 library(testthat)
 
-context("armstrong-numbers")
-
 test_that("Zero is an Armstrong number", {
   expect_equal(is_armstrong_number(0), TRUE)
 })
@@ -38,5 +36,3 @@ test_that("Seven-digit number that is an Armstrong number", {
 test_that("Seven-digit number that is not an Armstrong number", {
   expect_equal(is_armstrong_number(9926314), FALSE)
 })
-
-message("All tests passed for exercise: armstrong-numbers")