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()
});
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.