Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
Carp.t	10.98 KB	-r--r--r--	2014-12-27 11:48
Carp_overload.t	1.4 KB	-r--r--r--	2014-12-27 11:48
arg_regexp.t	2.69 KB	-r--r--r--	2014-12-27 11:48
arg_string.t	1.43 KB	-r--r--r--	2014-12-27 11:48
baduni.t	232 B	-r--r--r--	2014-12-27 11:48
baduni_warnings.t	269 B	-r--r--r--	2014-12-27 11:48
errno.t	1.23 KB	-r--r--r--	2014-12-27 11:48
heavy.t	294 B	-r--r--r--	2014-12-27 11:48
heavy_mismatch.t	276 B	-r--r--r--	2014-12-27 11:48
stash_deletion.t	2.08 KB	-r--r--r--	2014-12-27 11:48
swash.t	99 B	-r--r--r--	2014-12-27 11:48
vivify_gv.t	873 B	-r--r--r--	2014-12-27 11:48
vivify_stash.t	818 B	-r--r--r--	2014-12-27 11:48
with_warnings.t	168 B	-r--r--r--	2014-12-27 11:48

Rename

use warnings;
use strict;

use Test::More tests => 42;

use Carp ();

sub lmm { Carp::longmess("x") }
sub lm { lmm() }
sub rx { qr/$_[0]/ }

# On Perl 5.6 we accept some incorrect quoting of Unicode characters,
# because upgradedness of regexps isn't preserved by stringification,
# so it's impossible to implement the correct behaviour.
my $xe9_rx = "$]" < 5.008 ? qr/\\x\{c3\}\\x\{a9\}|\\x\{e9\}/ : qr/\\x\{e9\}/;
my $x666_rx = "$]" < 5.008 ? qr/\\x\{d9\}\\x\{a6\}|\\x\{666\}/ : qr/\\x\{666\}/;
my $x2603_rx = "$]" < 5.008 ? qr/\\x\{e2\}\\x\{98\}\\x\{83\}|\\x\{2603\}/ : qr/\\x\{2603\}/;

like lm(qr/3/), qr/main::lm$qr\(3$u?\)/;
like lm(qr/a.b/), qr/main::lm$qr\(a\.b$u?\)/;
like lm(qr/a.b/s), qr/main::lm$qr\(a\.b$u?s\)/;
like lm(qr/a.b$/s), qr/main::lm$qr\(a\.b\$$u?s\)/;
like lm(qr/a.b$/sm), qr/main::lm$qr\(a\.b\$$u?ms\)/;
like lm(qr/foo/), qr/main::lm$qr\(foo$u?\)/;
like lm(qr/a\$b\@c\\d/), qr/main::lm$qr\(a\\\$b\\\@c\\\\d$u?\)/;
like lm(qr/a\nb/), qr/main::lm$qr\(a\\nb$u?\)/;
like lm(rx("a\nb")), qr/main::lm$qr\(a\\x\{a\}b$u?\)/;
like lm(qr/a\x{666}b/), qr/main::lm$qr\(a\\x\{666\}b$u?\)/;
like lm(rx("a\x{666}b")), qr/main::lm$qr\(a${x666_rx}b$u?\)/;
like lm(qr/\x{666}b/), qr/main::lm$qr\(\\x\{666\}b$u?\)/;
like lm(rx("\x{666}b")), qr/main::lm$qr\(${x666_rx}b$u?\)/;
like lm(qr/a\x{666}/), qr/main::lm$qr\(a\\x\{666\}$u?\)/;
like lm(rx("a\x{666}")), qr/main::lm$qr\(a${x666_rx}$u?\)/;
like lm(qr/L\xe9on/), qr/main::lm$qr\(L\\xe9on$u?\)/;
like lm(rx("L\xe9on")), qr/main::lm$qr\(L${xe9_rx}on$u?\)/;
like lm(qr/L\xe9on \x{2603} !/), qr/main::lm$qr\(L\\xe9on \\x\{2603\} !$u?\)/;
like lm(rx("L\xe9on \x{2603} !")), qr/main::lm$qr\(L${xe9_rx}on ${x2603_rx} !$u?\)/;

$Carp::MaxArgLen = 5;
foreach my $arg ("foo bar baz", "foo bar ba", "foo bar b", "foo bar ", "foo bar", "foo ba") {
    like lm(rx($arg)), qr/main::lm$qr\(fo$\.\.\.u?\)/;
}
foreach my $arg ("foo b", "foo ", "foo", "fo", "f", "") {
    like lm(rx($arg)), qr/main::lm$qr\(\Q$arg\E$u?\)/;
}
like lm(qr/foo.bar$/sm), qr/main::lm$qr\(fo$\.\.\.u?ms\)/;
like lm(qr/L\xe9on \x{2603} !/), qr/main::lm$qr\(L\\$\.\.\.u?\)/;
like lm(rx("L\xe9on \x{2603} !")), qr/main::lm$qr\(L\\$\.\.\.u?\)/;
like lm(qr/L\xe9on\x{2603}/), qr/main::lm$qr\(L\\$\.\.\.u?\)/;
like lm(rx("L\xe9on\x{2603}")), qr/main::lm$qr\(L\\$\.\.\.u?\)/;
like lm(qr/foo\x{2603}/), qr/main::lm$qr\(fo$\.\.\.u?\)/;
like lm(rx("foo\x{2603}")), qr/main::lm$qr\(fo$\.\.\.u?\)/;

$Carp::MaxArgLen = 0;
foreach my $arg ("wibble:" x 20, "foo bar baz") {
    like lm(rx($arg)), qr/main::lm$qr\(\Q$arg\E$u?\)/;
}
like lm(qr/L\xe9on\x{2603}/), qr/main::lm$qr\(L\\xe9on\\x\{2603\}$u?\)/;
like lm(rx("L\xe9on\x{2603}")), qr/main::lm$qr\(L${xe9_rx}on${x2603_rx}$u?\)/;