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
source("./raindrops.R")
library(testthat)

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")