}
$ra = new Regexp_Assemble();
$ra->insert($path[$x1])->insert($path[$x2])->insert($path[$x3])->insert($path[$x4])->insert($path[$x5]);
is_deeply($ra->__path, $target, 'join: /' . join('/ /', array(join('', $path[$x1]), join('', $path[$x2]), join('', $path[$x3]), join('', $path[$x4]), join('', $path[$x5]))) . '/\\n' . $ra->dump() . ' versus ' . $ra->_dump($target) . "\n");
}
}
}
}
}
}
permute(['a', ['' => 0, 'b' => ['b', ['' => 0, 'c' => ['c', ['' => 0, 'd' => ['d', ['' => 0, 'e' => ['e']]]]]]]]], [['a'], ['a', 'b'], ['a', 'b', 'c'], ['a', 'b', 'c', 'd'], ['a', 'b', 'c', 'd', 'e']]);
permute([['' => 0, 'a' => ['a', ['' => 0, 'b' => ['b', ['' => 0, 'c' => ['c', ['' => 0, 'd' => ['d']]]]]]]]], [[''], ['a'], ['a', 'b'], ['a', 'b', 'c'], ['a', 'b', 'c', 'd']]);
permute(['d', 'o', ['n' => ['n', 'a', 't', ['e' => ['e'], 'i' => ['i', 'o', 'n']]], 't' => ['t', ['a' => ['a', 't', 'e'], 'i' => ['i', 'n', 'g']]], '' => 0]], [['d', 'o'], ['d', 'o', 'n', 'a', 't', 'e'], ['d', 'o', 'n', 'a', 't', 'i', 'o', 'n'], ['d', 'o', 't', 'a', 't', 'e'], ['d', 'o', 't', 'i', 'n', 'g']]);
permute(['o', ['' => 0, 'n' => ['n', ['' => 0, 'l' => ['l', 'y'], 'e' => ['e', ['' => 0, 'r' => ['r']]]]]]], [['o'], ['o', 'n'], ['o', 'n', 'e'], ['o', 'n', 'l', 'y'], ['o', 'n', 'e', 'r']]);
permute(['a', 'm', ['a' => ['a', ['s' => ['s', 's'], 'z' => ['z', 'e']]], 'u' => ['u', ['c' => ['c', 'k'], 's' => ['s', 'e']]], 'b' => ['b', 'l', 'e']]], [['a', 'm', 'a', 's', 's'], ['a', 'm', 'a', 'z', 'e'], ['a', 'm', 'b', 'l', 'e'], ['a', 'm', 'u', 'c', 'k'], ['a', 'm', 'u', 's', 'e']]);
$r = new Regexp_Assemble();
$r->Default_Lexer('\\([^(]*(?:\\([^)]*\\))?[^)]*\\)|.');
$r->reset()->add('ab(cd)ef');
is_deeply($r->__path, ['a', 'b', '(cd)', 'e', 'f'], 'ab(cd)ef (with Default parenthetical lexer)');
$r->reset()->add('ab((ef)gh)ij');
is_deeply($r->__path, ['a', 'b', '((ef)gh)', 'i', 'j'], 'ab((ef)gh)ij (with Default parenthetical lexer)');
$r->reset()->add('ab(ef(gh))ij');
is_deeply($r->__path, ['a', 'b', '(ef(gh))', 'i', 'j'], 'ab(ef(gh))ij (with Default parenthetical lexer)');
// eval { $r->filter('choke') };
// ok( $@, 'die on non-CODE filter' );
// eval { $r->pre_filter('choke') };
// ok( $@, 'die on non-CODE pre_filter' );
/*
is( $_, $fixed, '$_ has not been altered' );
*/
echo "===OK===\n";
