Re: Test not working so well

On 12/9/23 19:42, William Michels via perl6-users wrote:
> 
>> On 12/9/23 17:44, Tom Browder wrote:
>> > Try: say so $=....
>> >
>>
>> Would you give me a quick example?
> 
> Hi Todd!
> 
> In the Raku REPL (MoarVM 2023.05):
> 
> [0] > my $x="abc2def"; say  $x ~~ / ^ <alnum> ** 7 $ /;
> ｢abc2def｣
>   alnum => ｢a｣
>   alnum => ｢b｣
>   alnum => ｢c｣
>   alnum => ｢2｣
>   alnum => ｢d｣
>   alnum => ｢e｣
>   alnum => ｢f｣
> [0] > my $x="abc2def"; .so.put if  $x ~~ / ^ <alnum> ** 7 $ /;
> False
> [0] > my $x="abc2def";   $x ~~ / ^ <alnum> ** 7 $ /.so;
> True
> [1] > my $x="abc2def";   ($x ~~ / ^ <alnum> ** 7 $ /).so;
> True
> [2] > my $x="abc2def";   Bool($x ~~ / ^ <alnum> ** 7 $ /);
> True
> [3] > my $x="abc2def";   Bool($x ~~ / ^ <alnum> ** 8 $ /);
> False
> [4] > my $x="abc2def";   Bool($x ~~ / ^ <alnum> ** 7 $ /).say;
> True
> [4] > my $x="abc2def";   Bool($x ~~ / ^ <alnum> ** 8 $ /).say;
> False
> [4] > my $x="abc2def";   Bool($x ~~ / ^ <[0..9] + [a..z]> ** 7 $ /).say;
> True
> [4] > my $x="abc2def";   Bool($x ~~ / ^ <[0..9] + [a..z]> ** 8 $ /).say;
> False
> [4] > my $x="abc2def";   Bool($x ~~ / ^ <+[0..9] + [a..z]> ** 8 $ /).say;
> False
> [4] > my $x="abc2def";   say so $x.match: / ^ <+[0..9] + [a..z]> ** 8 $ /;
> False
> [4] > my $x="abc2def";   say so $x.match: / ^ <+[0..9] + [a..z]> ** 7 $ /;
> True
> [4] >
> 
> 
> HTH, Bill.

Awesome!  Thank you!
:-) :-) :-)


-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Computers are like air conditioners.
They malfunction when you open windows
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~