R example unit testing output for cyberdojo

units.R

install.packages('RUnit')  # only once for the machien
library(RUnit)             # every time R starts


d = function() { asdf(  }
# Output: Error: unexpected '}' in "d = function() { asdf(  }"



checkEquals(d(), 32)
# Output: Error in all.equal(target, current, tolerance = tolerance, ...) : 
# Output: could not find function "d"


d = function() { return(32)  }

checkEquals(d(), 32)
# Output: [1] TRUE

checkEquals(d(), 34)
#Output: Error in checkEquals(d(), 34) : Mean relative difference: 0.0625

checkEquals(d(), 34)
#Output: Error in checkEquals(d(), 34) : Mean relative difference: 0.0625

checkEquals(d(), "asdf")
#Output: Error in checkEquals(d(), "asdf") : Modes: numeric, character
#Output: target is numeric, current is character