Skip to content
Permalink
master
Go to file
 
 
Cannot retrieve contributors at this time
33 lines (24 sloc) 1005 Bytes
use v6;
use Test;
# L<S03/Nonchaining binary precedence/Sort comparisons>
plan 6;
my %ball = map {; $_ => 1 }, 1..12;
is(
(%ball{12}) <=> (%ball{11}),
Order::Same,
'parens with spaceship parse incorrectly',
);
my $result_1 = ([+] %ball{10..12}) <=> ([+] %ball{1..3});
is($result_1, Order::Same, 'When spaceship terms are non-trivial members it parses incorrectly');
my $result_2 = ([+] %ball{11,12}) <=> ([+] %ball{1,2});
is($result_2, Order::Same, 'When spaceship terms are non-trivial members it parses incorrectly');
{
my $result_3 = ([0] <=> [0,1]);
is($result_3, Order::Less, 'When spaceship terms are non-trivial members it parses incorrectly');
}
%ball{12} = 0.5;
is(%ball{12} <=> %ball{11}, Order::Less, 'When spaceship terms are non-integral numbers it parses incorrectly');
# https://github.com/Raku/old-issue-tracker/issues/4717
throws-like say ’a‘ <=> ’b‘, X::Str::Numeric,
'<=> with non-numerics throws correct exception';
# vim: expandtab shiftwidth=4
You can’t perform that action at this time.