tests/testthat/test-super_karel.R

library(karel)

test_that("Super Karel's actions perform as expected", {
  generar_mundo("mundo001")
  karel_env <- get_pkg_env()
  girar_derecha()
  expect_equal(karel_env$dir_now, 4)
  darse_vuelta()
  expect_equal(karel_env$dir_now, 2)
})

Try the karel package in your browser

Any scripts or data that you put into this service are public.

karel documentation built on March 27, 2022, 1:05 a.m.