is($rt->_node_eq([0, 1, 2], [0, 1, 2]), 1, 'eq [0,1,2]');
is($rt->_node_eq([0, 1, 2], [0, 1, 3]), 0, 'ne [0,1,2]');
is($rt->_node_eq([1, 2], [0, 1, 2]), 0, 'ne [1,2]');
is($rt->_node_eq(['a' => ['a', 'b']], ['a' => ['a', 'b']]), 1, 'eq {a}');
is($rt->_node_eq(['a' => ['a', 'b']], ['a' => ['a', 'b'], '' => 0]), 0, 'ne {a}');
is($rt->_node_eq(['a' => ['a', 'b'], 'b' => ['b', 'c']], ['a' => ['a', 'b'], 'b' => ['b', 'c']]), 1, 'eq {a,b}');
is($rt->_node_eq(['a' => ['a', 'b'], 'b' => ['b', 'c']], ['a' => ['a', 'b'], 'b' => ['b', 'd']]), 0, 'ne {a,b}');
is($rt->_node_eq([['a' => ['a', 'b'], 'b' => ['b', 'c']], ['z' => ['z', 'y'], 'm' => ['m', 'n']]], [['a' => ['a', 'b'], 'b' => ['b', 'c']], ['z' => ['z', 'y'], 'm' => ['m', 'n']]]), 1, 'eq {a,b},{z,m}');
is($rt->_node_eq([['a' => ['a', 'b'], 'b' => ['b', 'c']], ['z' => ['z', 'y'], 'm' => ['m', 'n']]], [['a' => ['a', 'b'], 'b' => ['b', 'c']], ['z' => ['z', 'y'], 'm' => ['m', 'n', 'o']]]), 0, 'ne {a,b},{z,m}');
is($rt->_node_eq(['' => 0, 'a' => ['a', 'b']], ['' => 0, 'a' => ['a', 'b']]), 1, '{eq {* a}');
is($rt->_node_eq(['' => 0, 'a' => ['a', 'b']], ['' => 0, 'a' => ['a', 'b', 'c']]), 0, '{ne {* a}');
is($rt->_node_eq(['z', '\\d+', ['a' => ['a', 'b']]], ['z', '\\d+', ['a' => ['a', 'b']]]), 1, 'eq [z \\d+ {a}]');
is($rt->_node_eq(['z', '\\d+', ['a' => ['a', 'b'], 'z' => ['z', 'y', 'x']]], ['z', '\\d+', ['a' => ['a', 'b'], 'z' => ['z', 'y', 'x']]]), 1, 'eq [z \\d+ {a,z}]');
//my $stub = $r;
$stub = new Regexp_Assemble();
is($stub->_make_class(['a', 'b', 'c']), '[abc]', '_make_class a b c');
is($stub->_make_class(['a', 'a', 'c']), '[ac]', '_make_class a a c');
is($stub->_make_class(['0', '1', '2']), '[012]', '_make_class 0 1 2');
is($stub->_make_class(['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']), '\\d', '_make_class 0 1 ... 9');
is($stub->_make_class('\\d', '\\D'), '.', '_make_class \\d \\D');
is($stub->_make_class('\\s', '\\S'), '.', '_make_class \\s \\S');
is($stub->_make_class('\\w', '\\W'), '.', '_make_class \\w \\W');
is($stub->_make_class('\\w', '\\d'), '\\w', '_make_class \\w \\d');
is($stub->_make_class('\\W', '\\D'), '\\W', '_make_class \\W \\D');
is($stub->_make_class('\\W', '\\d'), '[\\W\\d]', '_make_class \\W \\d');
is($stub->_make_class('\\d', ['5', 'a']), '[\\da]', '_make_class \\d 5 a');
is($stub->_make_class(['a', 'z', '-']), '[-az]', '_make_class a z -');
is($stub->_make_class(['a', 'z', '^']), '[az^]', '_make_class a z ^');
is($stub->_make_class(['a', 'z', '^', '-']), '[-az^]', '_make_class a z ^ -');
is($stub->_make_class('\\.', '\\+'), '[+.]', '_make_class \\. \\+');
//$stub->fold_meta_pairs(0);
