is_deeply($r->reset()->add($str)->__path, ['X', 'k+', 'l{2,4}', 'm', 'Y'], "add {$str}"); $str = 'p\\Q\\L\\Eq'; is_deeply($r->reset()->add($str)->__path, ['p', 'q'], "add {$str}"); $str = 'q\\U\\Qh{7,9}\\Ew'; is_deeply($r->reset()->add($str)->__path, ['q', 'H', '\\{', '7', ',', '9', '\\}', 'w'], "add {$str}"); $str = 'a\\Ubc\\ldef\\Eg'; is_deeply($r->reset()->add($str)->__path, ['a', 'B', 'C', 'd', 'E', 'F', 'g'], "add {$str}"); $str = 'a\\LBL+\\uxy\\QZ+'; is_deeply($r->reset()->add($str)->__path, ['a', 'b', 'l+', 'X', 'y', 'z', '\\+'], "add {$str}"); $str = '\\Q^a[b['; is_deeply($r->reset()->add($str)->__path, ['\\^', 'a', '\\[', 'b', '\\['], "add {$str}"); //} //{ // my $path; $path = []; is_deeply($path, $rt->_path_copy($path), '_path_copy([])'); $path = ['0', 'ab cd ef']; is_deeply($path, $rt->_path_copy($path), '_path_copy(0 ab cd ef)'); //PHPなので判別できない // $path = {}; // is_deeply( $path, $rt->_node_copy($path), // '_node_copy({})' ); $path = ['a' => ['a bb ccc'], 'b' => ['b cc ddd']]; is_deeply($path, $rt->_node_copy($path), '_node_copy({a,b})'); $path = [['c' => ['c', 'd'], 'e' => ['e', 'f']], 't', ['d' => ['d', 'f'], 'b' => ['b', 0]], ['' => 0, 'a' => ['a']]]; is_deeply($path, $rt->_path_copy($path), '_path_copy({c,e} t {d,b} {* a}'); $path = [[0, 1, 2], ['a', 'b', 'c'], ['d', ['e' => ['e', 'f'], 'g' => ['g', 'h']]]]; is_deeply($path, $rt->_path_copy($path), '_path_copy(ab cd ef {* a})'); //} is_deeply($rt->__path, [], 'path is empty'); $context = ['debug' => 0, 'depth' => 0];