# Raindrops in R

#### Convert a number to a string, the contents of which depend on the number's factors.

1 | ```
exercism fetch r raindrops
``` |

#### test_raindrops.R

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | source("./raindrops.R") library(testthat) context("raindrops") test_that("the sound for 1 is 1", { number <- 1 expect_equal(raindrops(number), "1") }) test_that("the sound for 3 is Pling", { number <- 3 expect_equal(raindrops(number), "Pling") }) test_that("the sound for 5 is Plang", { number <- 5 expect_equal(raindrops(number), "Plang") }) test_that("the sound for 7 is Plong", { number <- 7 expect_equal(raindrops(number), "Plong") }) test_that("the sound for 6 is Pling as it has a factor 3", { number <- 6 expect_equal(raindrops(number), "Pling") }) test_that("2 to the power 3 does not make a raindrop sound as 3 is the exponent not the base", { number <- 8 expect_equal(raindrops(number), "8") }) test_that("the sound for 9 is Pling as it has a factor 3", { number <- 9 expect_equal(raindrops(number), "Pling") }) test_that("the sound for 10 is Plang as it has a factor 5", { number <- 10 expect_equal(raindrops(number), "Plang") }) test_that("the sound for 14 is Plong as it has a factor of 7", { number <- 14 expect_equal(raindrops(number), "Plong") }) test_that("the sound for 15 is PlingPlang as it has factors 3 and 5", { number <- 15 expect_equal(raindrops(number), "PlingPlang") }) test_that("the sound for 21 is PlingPlong as it has factors 3 and 7", { number <- 21 expect_equal(raindrops(number), "PlingPlong") }) test_that("the sound for 25 is Plang as it has a factor 5", { number <- 25 expect_equal(raindrops(number), "Plang") }) test_that("the sound for 27 is Pling as it has a factor 3", { number <- 27 expect_equal(raindrops(number), "Pling") }) test_that("the sound for 35 is PlangPlong as it has factors 5 and 7", { number <- 35 expect_equal(raindrops(number), "PlangPlong") }) test_that("the sound for 49 is Plong as it has a factor 7", { number <- 49 expect_equal(raindrops(number), "Plong") }) test_that("the sound for 52 is 52", { number <- 52 expect_equal(raindrops(number), "52") }) test_that("the sound for 105 is PlingPlangPlong as it has factors 3, 5 and 7", { number <- 105 expect_equal(raindrops(number), "PlingPlangPlong") }) test_that("the sound for 3125 is Plang as it has a factor 5", { number <- 3125 expect_equal(raindrops(number), "Plang") }) message("All tests passed for exercise: raindrops") |