[perl #121987] Negated generic comparisons do not chain correctly

[via RT]

# 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-----