diff options
| author | Zefram <zefram@fysh.org> | 2017-11-16 04:43:17 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-11-16 04:46:10 +0000 |
| commit | c9cfa0d2a6d5f7f466d177acea2ae1cd0a797f2c (patch) | |
| tree | 176047bd1e7d3276537a260ad3568bd74df1e969 | |
| parent | 4af7d876a8f36e9eda38116fb0b3d5e3fde025f8 (diff) | |
| download | perl-c9cfa0d2a6d5f7f466d177acea2ae1cd0a797f2c.tar.gz | |
additional tests for registered warning categories
| -rw-r--r-- | t/lib/warnings/9enabled | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/t/lib/warnings/9enabled b/t/lib/warnings/9enabled index 872e48a1b9..7cf2c5d58d 100644 --- a/t/lib/warnings/9enabled +++ b/t/lib/warnings/9enabled @@ -1309,11 +1309,11 @@ ok3 { use warnings; Quux::quux(); } { use warnings; no warnings "void"; Quux::quux(); } use warnings (); -BEGIN { warnings::register_categories(qw(wibble wobble wabble wubble)); } +BEGIN { warnings::register_categories(qw(wibble wobble wabble wubble webble)); } package Quux { sub quux { warnings::warnif($_, "My $_ is flanged") - foreach qw(wibble wobble wabble wubble); + foreach qw(wibble wobble wabble wubble webble); (); } } @@ -1322,32 +1322,47 @@ package Quux { { no warnings; use warnings "void"; Quux::quux(); } { use warnings; Quux::quux(); } { use warnings; no warnings "void"; Quux::quux(); } -{ no warnings; use warnings qw(wibble wabble); Quux::quux(); } +{ no warnings; use warnings qw(wibble wabble webble); Quux::quux(); } { no warnings; use warnings qw(wobble wubble); Quux::quux(); } -{ use warnings; no warnings qw(wibble wabble); Quux::quux(); } +{ use warnings; no warnings qw(wibble wabble webble); Quux::quux(); } { use warnings; no warnings qw(wobble wubble); Quux::quux(); } +{ use warnings qw(wubble NONFATAL void); Quux::quux(); } +{ use warnings qw(wubble); no warnings "void"; Quux::quux(); } +{ no warnings "webble"; Quux::quux(); } +{ use warnings qw(NONFATAL webble); Quux::quux(); } +print "done\n"; EXPECT My wibble is flanged at - line 4. My wobble is flanged at - line 4. My wabble is flanged at - line 4. My wubble is flanged at - line 4. +My webble is flanged at - line 4. My wibble is flanged at - line 5. My wobble is flanged at - line 5. My wabble is flanged at - line 5. My wubble is flanged at - line 5. +My webble is flanged at - line 5. My wibble is flanged at - line 18. My wobble is flanged at - line 18. My wabble is flanged at - line 18. My wubble is flanged at - line 18. +My webble is flanged at - line 18. My wibble is flanged at - line 19. My wobble is flanged at - line 19. My wabble is flanged at - line 19. My wubble is flanged at - line 19. +My webble is flanged at - line 19. My wibble is flanged at - line 20. My wabble is flanged at - line 20. +My webble is flanged at - line 20. My wobble is flanged at - line 21. My wubble is flanged at - line 21. My wobble is flanged at - line 22. My wubble is flanged at - line 22. My wibble is flanged at - line 23. My wabble is flanged at - line 23. +My webble is flanged at - line 23. +My wubble is flanged at - line 24. +My wubble is flanged at - line 25. +My webble is flanged at - line 27. +done |