[perl5.git] / lib / perl5db / t / rt-66110

#!/usr/bin/perl
#
# This code is used by lib/perl5db.t !!!
#

$all_ok = 1;
*c = sub { };

if ("abcdefghi" =~ m/(abc)(def)(?{ c() })(ghi)/) {
  print "ok 1\n";

  $all_ok = 0, print "not " if $1 ne 'abc';
  print "ok 2\n";

  $all_ok = 0, print "not " if $2 ne 'def';
  print "ok 3\n";

  $all_ok = 0, print "not " if $3 ne 'ghi';
  print "ok 4\n";

  $all_ok = 0, print "not " if $& ne 'abcdefghi';
  print "ok 5\n";
}
else {
  $all_ok = 0;
  print "not ok 1\n";
  print "not ok 2\n";
  print "not ok 3\n";
  print "not ok 4\n";
  print "not ok 5\n";
}

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