Sha256: b0224c50641edfb93209b30b7f25986639c42e111a4e2c48acc307b7af648e79
Contents?: true
Size: 1007 Bytes
Versions: 53
Compression:
Stored size: 1007 Bytes
Contents
source("./prime-factors.R")
suppressPackageStartupMessages({
library(testthat)
})
context("prime factors")
test_that("no factors", {
number <- 1
expect_equal(prime_factors(number),
c())
})
test_that("prime number", {
number <- 2
expect_equal(prime_factors(number),
c(2))
})
test_that("square of a prime", {
number <- 9
expect_equal(prime_factors(number),
c(3, 3))
})
test_that("cube of a prime", {
number <- 8
expect_equal(prime_factors(number),
c(2, 2, 2))
})
test_that("product of primes and non-primes", {
number <- 12
expect_equal(prime_factors(number),
c(2, 2, 3))
})
test_that("product of primes", {
number <- 901255
expect_equal(prime_factors(number),
c(5, 17, 23, 461))
})
test_that("factors include a large prime", {
number <- 93819012551
expect_equal(prime_factors(number),
c(11, 9539, 894119))
})
message("All tests passed for exercise: prime-factors")
Version data entries
53 entries across 53 versions & 1 rubygems