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