tests/testthat/test-algo_1101.R

In daviddoret/haricot: Algorithm Composition, Manipulation And Analysis

library(testthat);

context("algo_1101 R6 class");

test_that('algo_1101: exhaustive output test', {

  #browser();

  a1 <- algo_1101$new();

  #print(nt);
  #plot_nandtree(nt);

  expect_equal(a1$exec("00"), "1");
  expect_equal(a1$exec("10"), "1");
  expect_equal(a1$exec("01"), "0");
  expect_equal(a1$exec("11"), "1");

});