__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use strict;
use warnings;
use lib 't/lib';
use Std;
my $xism = qr/x/=~/\(\?\^/ ? "^" : "-xism";
{
my $str = "ferg";
my $re = qr/$str/;
check_test(
sub {
cmp_deeply("fergal", re($re));
},
{
actual_ok => 1,
diag => "",
},
"re eq"
);
check_test(
sub {
cmp_deeply("fergal", regexponly($re));
},
{
actual_ok => 1,
diag => "",
},
"regexponly eq"
);
check_test(
sub {
cmp_deeply("feargal", re($re));
},
{
actual_ok => 0,
diag => <<EOM,
Using Regexp on \$data
got : 'feargal'
expect : $re
EOM
},
"re not eq"
);
check_test(
sub {
cmp_deeply("feargal", regexponly($re));
},
{
actual_ok => 0,
diag => <<EOM,
Using Regexp on \$data
got : 'feargal'
expect : $re
EOM
},
"regexponly not eq"
);
check_test(
sub {
cmp_deeply("fergal", re($str));
},
{
actual_ok => 1,
diag => "",
},
"string re eq"
);
check_test(
sub {
cmp_deeply("feargal", re($str));
},
{
actual_ok => 0,
diag => <<EOM,
Using Regexp on \$data
got : 'feargal'
expect : $re
EOM
},
"string runre not eq"
);
}
{
my $re = qr/([ac])/;
check_test(
sub {
cmp_deeply("abc", re($re, [qw( a )]));
},
{
actual_ok => 1,
diag => "",
},
"matches re eq"
);
check_test(
sub {
cmp_deeply("abc", re($re, [qw( a c )], "g"));
},
{
actual_ok => 1,
diag => "",
},
"matches global re eq"
);
check_test(
sub {
cmp_deeply("abc", re($re, [qw( a b )], "g"));
},
{
actual_ok => 0,
diag => <<EOM,
Compared [\$data =~ (?$xism:([ac]))]->[1]
got : 'c'
expect : 'b'
EOM
},
"matches global not eq"
);
}
{
my $re = qr/(..)/;
check_test(
sub {
cmp_deeply("abababcdcdefef", re($re, set(qw( ab cd ef )), "g"));
},
{
actual_ok => 1,
diag => "",
},
"matches re and set eq"
);
check_test(
sub {
cmp_deeply("cat=2,dog=67,sheep=3,goat=2,dog=5",
re(qr/(\D+)=\d+,?/, set(qw( cat sheep dog )), "g"))
},
{
actual_ok => 0,
diag => <<EOM,
Comparing [\$data =~ (?$xism:(\\D+)=\\d+,?)] as a Set
Extra: 'goat'
EOM
},
"string runre not eq"
);
}
{
require Over;
my $o = Over->new("hi mom");
is("$o", "hi mom", "we make a stringifiable object");
check_test(
sub { cmp_deeply($o, re(qr/mom/)); },
{ actual_ok => 1 },
"re() tests objects via overloading",
);
# Remember, Regexp stringification changes over time. -- rjbs, 2016-09-08
my $re = qr/dad/;
my $re_str = "$re";
check_test(
sub { cmp_deeply($o, re($re)); },
{
actual_ok => 0,
diag => <<EOM,
Using Regexp on \$data
got : 'hi mom' (instance of Over)
expect : $re_str
EOM
},
"re() tests objects via overloading",
);
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| lib | Folder | 0755 |
|
|
| 00-report-prereqs.dd | File | 1.3 KB | 0644 |
|
| 00-report-prereqs.t | File | 5.88 KB | 0644 |
|
| all.t | File | 977 B | 0644 |
|
| any.t | File | 934 B | 0644 |
|
| array.t | File | 1.27 KB | 0644 |
|
| array_each.t | File | 522 B | 0644 |
|
| arraylength.t | File | 1.59 KB | 0644 |
|
| bag.t | File | 4.69 KB | 0644 |
|
| bagrecursion.t | File | 255 B | 0644 |
|
| blessed.t | File | 777 B | 0644 |
|
| boolean.t | File | 1.17 KB | 0644 |
|
| cache.t | File | 740 B | 0644 |
|
| circular.t | File | 2.02 KB | 0644 |
|
| class.t | File | 1.55 KB | 0644 |
|
| code.t | File | 968 B | 0644 |
|
| deep_utils.t | File | 557 B | 0644 |
|
| descend.t | File | 1.85 KB | 0644 |
|
| error.t | File | 323 B | 0644 |
|
| hash.t | File | 1.45 KB | 0644 |
|
| hash_each.t | File | 579 B | 0644 |
|
| hashkeys.t | File | 1.07 KB | 0644 |
|
| ignore.t | File | 220 B | 0644 |
|
| import.t | File | 116 B | 0644 |
|
| isa.t | File | 1.88 KB | 0644 |
|
| leaf-wrapper.t | File | 1.3 KB | 0644 |
|
| listmethods.t | File | 2.23 KB | 0644 |
|
| memory.t | File | 656 B | 0644 |
|
| methods.t | File | 2.43 KB | 0644 |
|
| no-clobber-globals.t | File | 527 B | 0644 |
|
| none.t | File | 1.04 KB | 0644 |
|
| notest.t | File | 200 B | 0644 |
|
| notest_extra.t | File | 220 B | 0644 |
|
| notest_withtest.t | File | 347 B | 0644 |
|
| number.t | File | 1.47 KB | 0644 |
|
| reftype.t | File | 408 B | 0644 |
|
| regexp.t | File | 2.87 KB | 0644 |
|
| regexp.t.orig | File | 793 B | 0644 |
|
| regexpref.t | File | 511 B | 0644 |
|
| rt78288_blessed_object.t | File | 310 B | 0644 |
|
| scalar.t | File | 923 B | 0644 |
|
| scalarref.t | File | 692 B | 0644 |
|
| set.t | File | 4.97 KB | 0644 |
|
| shallow.t | File | 1.27 KB | 0644 |
|
| string.t | File | 830 B | 0644 |
|