15 my $have_alarm = $Config{d_alarm};
23 # used to be a test for $*
72 # used to be a test for $*
73 ok("ab\ncd\n" =~ /^cd/m);
76 # Even with the alarm() OS/390 and BS2000 can't manage these tests
77 # (Perl just goes into a busy loop, luckily an interruptable one)
78 todo_skip('busy loop - compiler bug?', 2)
79 if $^O eq 'os390' or $^O eq 'posix-bc';
81 # [ID ] tests 25..26 may loop
85 ok(!/G.F$/, 'bug 20010618.006');
86 ok(!/[F]F$/, 'bug 20010618.006');
90 my $a = 'QaaQaabQaabbQ';
92 my @a = split /aab*/, $a;
93 is("@a", 'Q Q Q Q', 'split with studied string passed to the regep engine');
99 is(s/AB+/1/ge, 2, 'studied scalar passed to pp_substconst');
107 'studied scalar passed to pp_substconst with RX_MATCH_COPIED() true');
117 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
118 is("@got", 'ydyd ydyd', '#92696 control');
124 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
125 is("@got", 'ydyd ydyd', '#92696 study $a');
131 push @got, $_ foreach $a =~ /[^x]d(?{})[^x]d/g;
132 is("@got", 'ydyd ydyd', '#92696 study $b');
137 push @got, $_ foreach $a =~ /[^x]d(?{study $b})[^x]d/g;
138 is("@got", 'ydyd ydyd', '#92696 study $b inside (?{}), nothing studied');
145 push @got, $_ foreach $a =~ /[^x]d(?{study $b})[^x]d/g;
146 is("@got", 'ydyd ydyd', '#92696 study $b inside (?{}), $c studied');
152 push @got, $_ foreach $a =~ /[^x]d(?{study $b})[^x]d/g;
153 is("@got", 'ydyd ydyd', '#92696 study $b inside (?{}), $a studied');
159 push @got, $_ foreach $a =~ /[^x]d(?{$a .= ''})[^x]d/g;
160 is("@got", 'ydyd ydyd', '#92696 $a .= \'\' inside (?{}), $a studied');