### ----------------------------------------------------
### -- Automata::Cellular
### -- Licenses: NOASSERTION
### -- Authors: David Brunton, Tommy Brunton
### -- File: t/01-print.rakutest
### ----------------------------------------------------
use Test;

use Automata::Cellular;

plan 4;

my Wolfram $w .= new(:number(30));

ok ~$w.rule ~~ m:s/Rule 30/, "Prints the rule";
ok +$w.rule == 30, "Numeric rule";
ok $w.rule.hash<001> == 1, "Rule hash is correct";
$w.succ;
ok $w.current ~~ m/ XXX /, "Next stage is corect";

# vim: expandtab shiftwidth=4


