Commit | Line | Data |
---|---|---|
ac1ad7f0 | 1 | #!./perl -w |
760ac839 LW |
2 | # |
3 | # Contributed by Graham Barr <Graham.Barr@tiuk.ti.com> | |
4 | ||
5 | BEGIN { | |
760ac839 LW |
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 |