xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/rt-66110 (revision b39c515898423c8d899e35282f4b395f7cad3298)
1*b39c5158Smillert#!/usr/bin/perl
2*b39c5158Smillert#
3*b39c5158Smillert# This code is used by lib/perl5db.t !!!
4*b39c5158Smillert#
5*b39c5158Smillert
6*b39c5158Smillert$all_ok = 1;
7*b39c5158Smillert*c = sub { };
8*b39c5158Smillert
9*b39c5158Smillertif ("abcdefghi" =~ m/(abc)(def)(?{ c() })(ghi)/) {
10*b39c5158Smillert  print "ok 1\n";
11*b39c5158Smillert
12*b39c5158Smillert  $all_ok = 0, print "not " if $1 ne 'abc';
13*b39c5158Smillert  print "ok 2\n";
14*b39c5158Smillert
15*b39c5158Smillert  $all_ok = 0, print "not " if $2 ne 'def';
16*b39c5158Smillert  print "ok 3\n";
17*b39c5158Smillert
18*b39c5158Smillert  $all_ok = 0, print "not " if $3 ne 'ghi';
19*b39c5158Smillert  print "ok 4\n";
20*b39c5158Smillert
21*b39c5158Smillert  $all_ok = 0, print "not " if $& ne 'abcdefghi';
22*b39c5158Smillert  print "ok 5\n";
23*b39c5158Smillert}
24*b39c5158Smillertelse {
25*b39c5158Smillert  $all_ok = 0;
26*b39c5158Smillert  print "not ok 1\n";
27*b39c5158Smillert  print "not ok 2\n";
28*b39c5158Smillert  print "not ok 3\n";
29*b39c5158Smillert  print "not ok 4\n";
30*b39c5158Smillert  print "not ok 5\n";
31*b39c5158Smillert}
32*b39c5158Smillert
33*b39c5158Smillertif ($all_ok) {
34*b39c5158Smillert  print "All tests successful.";
35*b39c5158Smillert}
36*b39c5158Smillert
37