Lines Matching defs:SKIP
38 SKIP:
213 SKIP:
1108 SKIP: {
1224 { # Test the (*SKIP) pattern
1226 'aaab' =~ /a+b?(*SKIP)(?{$count++})(*FAIL)/;
1227 is($count, 1, "Expect 1 with (*SKIP)");
1230 1 while /.(*SKIP)(?{$count++})(*FAIL)/g;
1231 is($count, 4, "/.(*SKIP)/");
1235 1 while /(a+b?)(*SKIP)(?{$count++; push @res,$1})(*FAIL)/g;
1236 is($count, 2, "Expect 2 with (*SKIP)");
1237 is("@res", "aaab aaab", "Adjacent (*SKIP) works as expected");
1240 my $got = m{ ( ([^/]+) (?: / (*SKIP)(*FAIL) | \z ) ) }x ? $1 : undef;
1241 is($got, "file.mp3", "(*SKIP) and find_byclass() work together");
1244 { # Test the (*SKIP) pattern
1246 'aaab' =~ /a+b?(*MARK:foo)(*SKIP)(?{$count++})(*FAIL)/;
1247 is($count, 1, "Expect 1 with (*SKIP)");
1250 1 while /.(*MARK:foo)(*SKIP)(?{$count++})(*FAIL)/g;
1251 is($count, 4, "/.(*SKIP)/");
1255 1 while /(a+b?)(*MARK:foo)(*SKIP)(?{$count++; push @res,$1})(*FAIL)/g;
1256 is($count, 2, "Expect 2 with (*SKIP)");
1257 is("@res", "aaab aaab", "Adjacent (*SKIP) works as expected");
1260 { # Test the (*SKIP) pattern
1262 'aaab' =~ /a*(*MARK:a)b?(*MARK:b)(*SKIP:a)(?{$count++})(*FAIL)/;
1263 is($count, 3, "Expect 3 with *MARK:a)b?(*MARK:b)(*SKIP:a)");
1268 /(a*(*MARK:a)b?)(*MARK:x)(*SKIP:a)(?{$count++; push @res,$1})(*FAIL)/g;
1269 is($count, 5, "Expect 5 with (*MARK:a)b?)(*MARK:x)(*SKIP:a)");
1271 "Adjacent (*MARK:a)b?)(*MARK:x)(*SKIP:a) works as expected");
1297 ($name ? "(*MARK$name)" : "") . "(*SKIP$name)",
1316 ($name ? "(*MARK$name)" : "") . "(*SKIP$name)",
1812 SKIP: {
1947 qr/a+(?{$count_a++;})b?(*SKIP)(*FAIL)/,
1948 qr/a+(?{$count_b++;})b?(*SKIP)z/,
1954 qr/a+(?{$count_a++;})b?(*SKIP)\s*(*FAIL)/,
1955 qr/a+(?{$count_b++;})b?(*SKIP)\s*z/,
1961 qr/a+(?{$count_a++;})(?:b|)(*SKIP)(*FAIL)/,
1962 qr/a+(?{$count_b++;})(?:b|)(*SKIP)z/,
1968 qr/a+(?{$count_a++;})b{0,6}(*SKIP)(*FAIL)/,
1969 qr/a+(?{$count_b++;})b{0,6}(*SKIP)z/,
1975 qr/a+(?{$count_a++;})(bc){0,6}(*SKIP)(*FAIL)/,
1976 qr/a+(?{$count_b++;})(bc){0,6}(*SKIP)z/,
1982 qr/a+(?{$count_a++;})(bc*){0,6}(*SKIP)(*FAIL)/,
1983 qr/a+(?{$count_b++;})(bc*){0,6}(*SKIP)z/,
1991 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? b? (*SKIP:T1) (*FAIL) \s* c \1 /x,
1992 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? b? (*SKIP:T1) z \s* c \1 /x,
1998 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? b? (*SKIP:T1) \s* (*FAIL) \s* c \1 /x,
1999 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? b? (*SKIP:T1) \s* z \s* c \1 /x,
2005 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? (?:b|) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2006 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? (?:b|) (*SKIP:T1) z \s* c \1 /x,
2012 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? b{0,6} (*SKIP:T1) (*FAIL) \s* c \1 /x,
2013 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? b{0,6} (*SKIP:T1) z \s* c \1 /x,
2019 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? (bc){0,6} (*SKIP:T1) (*FAIL) \s* c \1 /x,
2020 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? (bc){0,6} (*SKIP:T1) z \s* c \1 /x,
2026 qr/a (?{$count_a++;}) (*MARK:T1) (a*) .*? (bc*){0,6} (*SKIP:T1) (*FAIL) \s* c \1 /x,
2027 qr/a (?{$count_b++;}) (*MARK:T1) (a*) .*? (bc*){0,6} (*SKIP:T1) z \s* c \1 /x,
2035 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? b? (*MARK:T1) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2036 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? b? (*MARK:T1) (*SKIP:T1) z \s* c \1 /x,
2042 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? b? (*MARK:T1) (*SKIP:T1) \s* (*FAIL) \s* c \1 /x,
2043 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? b? (*MARK:T1) (*SKIP:T1) \s* z \s* c \1 /x,
2049 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? (?:b|) (*MARK:T1) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2050 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? (?:b|) (*MARK:T1) (*SKIP:T1) z \s* c \1 /x,
2056 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? b{0,6} (*MARK:T1) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2057 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? b{0,6} (*MARK:T1) (*SKIP:T1) z \s* c \1 /x,
2063 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? (bc){0,6} (*MARK:T1) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2064 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? (bc){0,6} (*MARK:T1) (*SKIP:T1) z \s* c \1 /x,
2070 qr/a (?{$count_a++;}) (a?) (*MARK:T1) (a*) .*? (bc*){0,6} (*MARK:T1) (*SKIP:T1) (*FAIL) \s* c \1 /x,
2071 qr/a (?{$count_b++;}) (a?) (*MARK:T1) (a*) .*? (bc*){0,6} (*MARK:T1) (*SKIP:T1) z \s* c \1 /x,
2487 SKIP: