function match_list($tag, $patt, $test) { $re = new Regexp_Assemble(); $re->add($patt); $rela = new Regexp_Assemble(); $rela->lookahead(1)->add($patt); foreach ($test as $str) { like($str, '/^' . $re . '$/', "re {$tag}: {$str}"); like($str, '/^' . $rela . '$/', "rela {$tag}: {$str}"); } }