diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-12-26 21:50:28 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-12-26 22:21:54 -0700 |
| commit | f2cccb4cefe1541dfd66bc2d96a910470a478ebb (patch) | |
| tree | 2526ec2ca922b5e55a5eca27bf6be0a74d750239 /lib/diagnostics.t | |
| parent | 3ab64bae9b914de9eb939a6995f6ef94385e1221 (diff) | |
| download | perl-f2cccb4cefe1541dfd66bc2d96a910470a478ebb.tar.gz | |
lib/diagnostics.t: Use different test data
This is testing that things work for two adjacent =item lines in
perldiag.pod that share the same description. However a future commit
will change perldiag.pod so that one of the specific adjacent lines
previously used here will be removed. Therefore, choose a different set
of adjacent lines that aren't scheduled to be changed.
This adds a comment in perldiag that the newly chosen adjacent lines are
thus used in diagnostics.t
Diffstat (limited to 'lib/diagnostics.t')
| -rw-r--r-- | lib/diagnostics.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/diagnostics.t b/lib/diagnostics.t index 0328522d80..d6b6c82854 100644 --- a/lib/diagnostics.t +++ b/lib/diagnostics.t @@ -48,8 +48,8 @@ like $warning, qr/lex_stuff_pvn or similar/, 'L<foo|bar/baz>'; # Multiple messages with the same description seek STDERR, 0,0; $warning = ''; -warn 'Code point 0xBEE5 is not Unicode, may not be portable'; -like $warning, qr/S utf8/, +warn 'Deep recursion on anonymous subroutine'; +like $warning, qr/W recursion/, 'Message sharing its description with the following message'; # Periods at end of entries in perldiag.pod get matched correctly |