# These tests are auto-generated with test data from: # https://github.com/exercism/problem-specifications/tree/main/exercises/diamond/canonical-data.json # File last updated on 2026-03-19 source("./diamond.R") library(testthat) test_that("Degenerate case with a single 'A' row", { input <- "A" expected <- c('A') expect_equal( diamond(input), paste(collapse = "\n", expected) ) }) test_that("Degenerate case with no row containing 3 distinct groups of spaces", { input <- "B" expected <- c(' A ', 'B B', ' A ') expect_equal( diamond(input), paste(collapse = "\n", expected) ) }) test_that("Smallest non-degenerate case with odd diamond side length", { input <- "C" expected <- c(' A ', ' B B ', 'C C', ' B B ', ' A ') expect_equal( diamond(input), paste(collapse = "\n", expected) ) }) test_that("Smallest non-degenerate case with even diamond side length", { input <- "D" expected <- c( ' A ', ' B B ', ' C C ', 'D D', ' C C ', ' B B ', ' A ' ) expect_equal( diamond(input), paste(collapse = "\n", expected) ) }) test_that("Largest possible diamond", { input <- "Z" expected <- c( ' A ', ' B B ', ' C C ', ' D D ', ' E E ', ' F F ', ' G G ', ' H H ', ' I I ', ' J J ', ' K K ', ' L L ', ' M M ', ' N N ', ' O O ', ' P P ', ' Q Q ', ' R R ', ' S S ', ' T T ', ' U U ', ' V V ', ' W W ', ' X X ', ' Y Y ', 'Z Z', ' Y Y ', ' X X ', ' W W ', ' V V ', ' U U ', ' T T ', ' S S ', ' R R ', ' Q Q ', ' P P ', ' O O ', ' N N ', ' M M ', ' L L ', ' K K ', ' J J ', ' I I ', ' H H ', ' G G ', ' F F ', ' E E ', ' D D ', ' C C ', ' B B ', ' A ' ) expect_equal( diamond(input), paste(collapse = "\n", expected) ) })