tests/testthat/test-algo_nand.R

In daviddoret/haricot: Algorithm Composition, Manipulation And Analysis

library(testthat);

context("algo_nand R6 class");

test_that('algo_nand: test 01', {

  #browser();

  a <- algo_nand$new();

  #print(a);
  #plot_nandtree(a);

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

  a$plot()

});