Sha256: 15a27f4695905cb0a1ab4fb95ed20588a96b77c0c99d700a8d08d77c7e3c06d5
Contents?: true
Size: 1.01 KB
Versions: 38
Compression:
Stored size: 1.01 KB
Contents
source('./isogram.R')
library(testthat)
test_that("empty string", {
word <- ""
expect_equal(is_isogram(word), TRUE)
})
test_that("isogram with only lower case characters", {
word <- "isogram"
expect_equal(is_isogram(word), TRUE)
})
test_that("word with one duplicated character", {
word <- "eleven"
expect_equal(is_isogram(word), FALSE)
})
test_that("longest reported english isogram", {
word <- "subdermatoglyphic"
expect_equal(is_isogram(word), TRUE)
})
test_that("word with duplicated character in mixed case", {
word <- "Alphabet"
expect_equal(is_isogram(word), FALSE)
})
test_that("hypothetical isogrammic word with hyphen", {
word <- "thumbscrew-japingly"
expect_equal(is_isogram(word), TRUE)
})
test_that("isogram with duplicated non letter character", {
word <- "Hjelmqvist-Gryb-Zock-Pfund-Wax"
expect_equal(is_isogram(word), TRUE)
})
test_that("made-up name that is an isogram", {
word <- "Emily Jung Schwartzkopf"
expect_equal(is_isogram(word), TRUE)
})
print("All tests passed!")
Version data entries
38 entries across 38 versions & 1 rubygems