GildedRose-Refactoring-Kata/R/runit_gilded_rose.R

8 lines
170 B
R

source('gilded_rose.R')
test.foo <- function() {
items <- list( item('foo', 0, 0) )
items <- update_quality(items)
checkEquals('fixme', items[[1]]$name);
}