Commit | Line | Data |
ac1ad7f0 |
1 | #!./perl -w |
760ac839 |
2 | # |
3 | # Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> |
4 | |
5 | BEGIN { |
760ac839 |
6 | $warn = ""; |
7 | $SIG{__WARN__} = sub { $warn .= join("",@_) } |
8 | } |
9 | |
10 | sub ok ($$) { |
11 | print $_[1] ? "ok " : "not ok ", $_[0], "\n"; |
12 | } |
13 | |
14 | print "1..18\n"; |
15 | |
16 | sub sub0 { 1 } |
17 | sub sub0 { 2 } |
18 | |
19 | ok 1, $warn =~ s/Subroutine sub0 redefined[^\n]+\n//s; |
20 | |
21 | sub sub1 { 1 } |
22 | sub sub1 () { 2 } |
23 | |
24 | ok 2, $warn =~ s/Prototype mismatch: \Q(none) vs ()\E[^\n]+\n//s; |
25 | ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s; |
26 | |
27 | sub sub2 { 1 } |
28 | sub sub2 ($) { 2 } |
29 | |
30 | ok 4, $warn =~ s/Prototype mismatch: \Q(none) vs ($)\E[^\n]+\n//s; |
31 | ok 5, $warn =~ s/Subroutine sub2 redefined[^\n]+\n//s; |
32 | |
33 | sub sub3 () { 1 } |
34 | sub sub3 { 2 } |
35 | |
36 | ok 6, $warn =~ s/Prototype mismatch: \Q() vs (none)\E[^\n]+\n//s; |
37 | ok 7, $warn =~ s/Constant subroutine sub3 redefined[^\n]+\n//s; |
38 | |
39 | sub sub4 () { 1 } |
40 | sub sub4 () { 2 } |
41 | |
42 | ok 8, $warn =~ s/Constant subroutine sub4 redefined[^\n]+\n//s; |
43 | |
44 | sub sub5 () { 1 } |
45 | sub sub5 ($) { 2 } |
46 | |
47 | ok 9, $warn =~ s/Prototype mismatch: \Q() vs ($)\E[^\n]+\n//s; |
48 | ok 10, $warn =~ s/Constant subroutine sub5 redefined[^\n]+\n//s; |
49 | |
50 | sub sub6 ($) { 1 } |
51 | sub sub6 { 2 } |
52 | |
53 | ok 11, $warn =~ s/Prototype mismatch: \Q($) vs (none)\E[^\n]+\n//s; |
54 | ok 12, $warn =~ s/Subroutine sub6 redefined[^\n]+\n//s; |
55 | |
56 | sub sub7 ($) { 1 } |
57 | sub sub7 () { 2 } |
58 | |
59 | ok 13, $warn =~ s/Prototype mismatch: \Q($) vs ()\E[^\n]+\n//s; |
60 | ok 14, $warn =~ s/Subroutine sub7 redefined[^\n]+\n//s; |
61 | |
62 | sub sub8 ($) { 1 } |
63 | sub sub8 ($) { 2 } |
64 | |
65 | ok 15, $warn =~ s/Subroutine sub8 redefined[^\n]+\n//s; |
66 | |
67 | sub sub9 ($@) { 1 } |
68 | sub sub9 ($) { 2 } |
69 | |
70 | ok 16, $warn =~ s/Prototype mismatch: \(\$\Q@) vs ($)\E[^\n]+\n//s; |
71 | ok 17, $warn =~ s/Subroutine sub9 redefined[^\n]+\n//s; |
72 | |
73 | ok 18, $_ eq ''; |
74 | |
75 | # If we got any errors that we were not expecting, then print them |
76 | print $_ if length $_; |
77 | |
78 | |