# New Ticket Created by Itsuki Toyota
# Please include the string: [perl #127795]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=127795 >
See the following results.
$ perl6 -e 'use Test; my Set (%a, %b); %a{"abc"} = %a{"abc"} (|) set(0,1,2);
%a{"ab"} = %a{"ab"} (|) set(0); %b{"abc"}
= %b{"abc"} (|) set(1,0,2); %b{"ab"} = %b{"ab"} (|) set(0); is %a, %b;'
not ok 1 -
# Failed test at -e line 1
# expected: 'ab 0
# abc 1 0 2'
# got: 'ab 0
# abc 0 1 2'
If "is-deeply" subroutine is used, it should return "not ok".
But in this case, "is" subroutine is used. So it should return "ok".
