Skip to content

Commit

Permalink
Skip-fudge bogus(?) tests
Browse files Browse the repository at this point in the history
The tests were added[^1] in Dec 2017 and aren't part of 6.c language.
These currently exercise RT#132711 / RT#131099 when RT#132713 is fixed
and based on comments on RT#131099 these should likely complain about
meaningless associativity rather than work.

P.S.: fudger refused to fudge these right, so I fudged manually

[1] 8cbbf89
  • Loading branch information
zoffixznet committed Jan 12, 2018
1 parent 01ce740 commit d93d062
Showing 1 changed file with 22 additions and 22 deletions.
44 changes: 22 additions & 22 deletions S06-operator-overloading/prefix.t
Expand Up @@ -53,26 +53,26 @@ plan 10;
# RT #123216
subtest 'coverage for crashes in certain operator setups' => {
plan 2;
is-deeply do {
sub postfix:<_post_l_>($a) is assoc<left> is equiv(&prefix:<+>) {
"<$a>"
}
sub prefix:<_pre_l_> ($a) is assoc<left> is equiv(&prefix:<+>) {
"($a)"
}
(_pre_l_ 'a')_post_l_
}, '<(a)>', '(1)';
is-deeply do {
sub infix:«MYPLUS»(*@a) is assoc('list') {
[+] @a;
}
sub prefix:«MYMINUS»($a) is looser(&infix:<MYPLUS>) {
-$a;
}
(MYMINUS 1 MYPLUS 2 MYPLUS 3)
}, -6, '(2)';
skip 'RT#132711', 2;
# is-deeply do {
# sub postfix:<_post_l_>($a) is assoc<left> is equiv(&prefix:<+>) {
# "<$a>"
# }
# sub prefix:<_pre_l_> ($a) is assoc<left> is equiv(&prefix:<+>) {
# "($a)"
# }
# (_pre_l_ 'a')_post_l_
# }, '<(a)>', '(1)';
#
# is-deeply do {
# sub infix:«MYPLUS»(*@a) is assoc('list') {
# [+] @a;
# }
#
# sub prefix:«MYMINUS»($a) is looser(&infix:<MYPLUS>) {
# -$a;
# }
#
# (MYMINUS 1 MYPLUS 2 MYPLUS 3)
# }, -6, '(2)';
}

0 comments on commit d93d062

Please sign in to comment.