[perl #121987] Negated generic comparisons do not chain correctly
Closing this ticket in favor of this one:
https://github.com/rakudo/rakudo/issues/1304
On 2017-12-01 11:03:43, alex.jakime...@gmail.com wrote:
> Still failing (2017.11, HEAD(5929887))
>
> On 2014-07-31 13:05:19, david.warring wrote:
> > I've added some fudged tests to S03-operators/relational.t. A couple
> > taken from the above test cases, also:
> >
> > is 3 !> 3 !> 1, 3 !> 3 && 3 !> 1, 'chained !>';
> > is 3 !< 3 !< 2, 3 !< 3 && 3 !< 2, 'chained !<';
> >
> > Both failing
> >
> > On Thu May 29 23:26:36 2014, thoughtstream wrote:
> > > As the following test program illustrates, !before and !after do not
> > > always chain correctly under Rakudo perl6 version 2014.04 built
> > > on MoarVM version 2014.04.
> > >
> > > Damian
> > >
> > > -cut--cut--cut--cut--
> > > cut--
> > > cut--cut-
> > >
> > > #! /usr/bin/env perl6
> > > use v6;
> > >
> > > use Test;
> > >
> > > for 1..3 X 1..3 X 1..3 -> $x, $y, $z {
> > >
> > > is $x before $y before $z,
> > > $x before $y && $y before $z, "$x before $y before $z";
> > >
> > > is $x !before $y !before $z,
> > > $x !before $y && $y !before $z, "$x !before $y !before $z";
> > >
> > > is $x after $y after $z,
> > > $x after $y && $y after $z, "$x after $y after $z";
> > >
> > > is $x !after $y !after $z,
> > > $x !after $y && $y !after $z, "$x !after $y !after $z";
> > > }
> > >
> > > done;
> > >
> > >
> > > -end--end--end--end--
> > > end--
> > > end--end-
[perl #121987] Negated generic comparisons do not chain correctly
Still failing (2017.11, HEAD(5929887))
On 2014-07-31 13:05:19, david.warring wrote:
> I've added some fudged tests to S03-operators/relational.t. A couple
> taken from the above test cases, also:
>
> is 3 !> 3 !> 1, 3 !> 3 && 3 !> 1, 'chained !>';
> is 3 !< 3 !< 2, 3 !< 3 && 3 !< 2, 'chained !<';
>
> Both failing
>
> On Thu May 29 23:26:36 2014, thoughtstream wrote:
> > As the following test program illustrates, !before and !after do not
> > always chain correctly under Rakudo perl6 version 2014.04 built
> > on MoarVM version 2014.04.
> >
> > Damian
> >
> > -cut--cut--cut--cut--
> > cut--
> > cut--cut-
> >
> > #! /usr/bin/env perl6
> > use v6;
> >
> > use Test;
> >
> > for 1..3 X 1..3 X 1..3 -> $x, $y, $z {
> >
> > is $x before $y before $z,
> > $x before $y && $y before $z, "$x before $y before $z";
> >
> > is $x !before $y !before $z,
> > $x !before $y && $y !before $z, "$x !before $y !before $z";
> >
> > is $x after $y after $z,
> > $x after $y && $y after $z, "$x after $y after $z";
> >
> > is $x !after $y !after $z,
> > $x !after $y && $y !after $z, "$x !after $y !after $z";
> > }
> >
> > done;
> >
> >
> > -end--end--end--end--
> > end--
> > end--end-
[perl #121987] Negated generic comparisons do not chain correctly
# New Ticket Created by Damian Conway
# Please include the string: [perl #121987]
# in the subject line of all future correspondence about this issue.
# URL: https://rt.perl.org/Ticket/Display.html?id=121987
As the following test program illustrates, !before and !after do not
always chain correctly under Rakudo perl6 version 2014.04 built
on MoarVM version 2014.04.
Damian
-cut--cut--cut--cut--cut--cut--cut-
#! /usr/bin/env perl6
use v6;
use Test;
for 1..3 X 1..3 X 1..3 - $x, $y, $z {
is $x before $y before $z,
$x before $y $y before $z,$x before $y before $z;
is $x !before $y !before $z,
$x !before $y $y !before $z, $x !before $y !before $z;
is $x after $y after $z,
$x after $y $y after $z, $x after $y after $z;
is $x !after $y !after $z,
$x !after $y $y !after $z,$x !after $y !after $z;
}
done;
-end--end--end--end--end--end--end-
