Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Carp/t/arg_string.t: be liberal in f/p formats
[perl #129954] dist/Carp/t/arg_string.t: Test fails

This test script checks that args are displayed sensibly in longmess()
output, but floating-point numbers can be displayed in various formats
depending on platform, so make the regex more forgiving.

Also add a comment to the top of the script explaining its purpose.
  • Loading branch information
iabyn committed Oct 27, 2016
1 parent e5d8cfc commit 13596ab
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion dist/Carp/t/arg_string.t
@@ -1,6 +1,8 @@
use warnings;
use strict;

# confirm that stack args are displayed correctly by longmess()

use Test::More tests => 32;

use Carp ();
Expand All @@ -22,7 +24,11 @@ like lm(3), qr/main::lm\(3\)/;
like lm(substr("3\x{2603}", 0, 1)), qr/main::lm\(3\)/;
like lm(-3), qr/main::lm\(-3\)/;
like lm(-3.5), qr/main::lm\(-3\.5\)/;
like lm(-3.5e30), qr/main::lm\(-3\.5[eE]\+?30\)/;
like lm(-3.5e30),
qr/main::lm\(
-3500000000000000000000000000000
| -3\.5[eE]\+?0?30\)
/x;
like lm(""), qr/main::lm\(""\)/;
like lm("foo"), qr/main::lm\("foo"\)/;
like lm("a\$b\@c\\d\"e"), qr/main::lm\("a\\\$b\\\@c\\\\d\\\"e"\)/;
Expand Down

0 comments on commit 13596ab

Please sign in to comment.