?????????? ????????? - ??????????????? - /home/.cpan/build/Test-Deep-1.204-0/t/regexp.t
???????
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", ); }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????