issue281.t 822 B

1234567891011121314151617181920212223242526272829303132333435
  1. #! /usr/bin/env perl
  2. # http://code.google.com/p/perl-compiler/issues/detail?id=281
  3. # wrong @- values: issues 90, 220, 281, 295
  4. use strict;
  5. BEGIN {
  6. unshift @INC, 't';
  7. require "test.pl";
  8. }
  9. use Test::More tests => 3;
  10. use B::C ();
  11. use Config;
  12. my $cmt = 'wrong @- values';
  13. # fixed with 1.45_11
  14. # $cmt = "TODO ".$cmt if $] >= 5.010;
  15. # was previously issue90.t test 16
  16. ctestok(1, 'C,-O3', 'ccode281i', <<'EOF', $cmt." #220");
  17. my $content = "ok\n";
  18. while ( $content =~ m{\w}g ) {
  19. $_ .= "$-[0]$+[0]";
  20. }
  21. print "ok" if $_ eq "0112";
  22. EOF
  23. ctestok(2, 'C,-O3', 'ccode281i', <<'EOF', $cmt." #281");
  24. "I like pie" =~ /(I) (like) (pie)/;
  25. "@-" eq "0 0 2 7" and print "ok\n";
  26. #print "\@- = @-\n\@+ = @+\n"
  27. EOF
  28. ctestok(3, 'C,-O3', 'ccode281i', <<'EOF', $cmt. ' #295');
  29. "zzaaabbb" =~ m/(a+)(b+)/;
  30. print "ok\n" if "@-" eq "2 2 5"
  31. EOF