On Sun Apr 24 02:45:35 2016, barto...@gmx.de wrote:
> Alas, the tests in S32-hash/adverbs.t and S32-array/adverbs.t still do
> not pass. Will try to find a new/better golf.
Not as short as I hoped (it needs Test.pm6), but this is what currently fails
in S32-hash/adverbs.t:
$ perl6-m -Ilib -e 'use Test; my %h; is %h<B>:p(False), (B=>Any); throws-like
q[%h<C>:k:v], Exception, "test 2"; throws-like q[say %h<D>:baxter], Exception,
"test 3";'
Use of uninitialized value %h of type Any in string context
Any of .^name, .perl, .gist, or .say can stringify undefined things, if needed.
in block at
/usr/home/christian/perl6/perl6-roast-data/rakudo.moar/lib/Test.pm6 (Test) line
136
Use of uninitialized value of type Any in string context
Any of .^name, .perl, .gist, or .say can stringify undefined things, if needed.
in block at
/usr/home/christian/perl6/perl6-roast-data/rakudo.moar/lib/Test.pm6 (Test) line
136
ok 1 -
1..2
ok 1 - '%h<C>:k:v' died
ok 2 - right exception type (Exception)
ok 2 - test 2
1..2
(Any)
not ok 1 - 'say %h<D>:baxter' died
# Failed test ''say %h<D>:baxter' died'
# at -e line 1
ok 2 - \# SKIP Code did not die, can not check exception
# Looks like you failed 1 test of 2
not ok 3 - test 3
# Failed test 'test 3'
# at -e line 1
If one uses 'is-deeply' instead of 'is', the tests pass. Also with
MVM_SPESH_DISABLE=1 the tests pass:
$ MVM_SPESH_DISABLE=1 perl6-m -Ilib -e 'use Test; my %h; is %h<B>:p(False),
(B=>Any); throws-like q[%h<C>:k:v], Exception, "test 2"; throws-like q[say
%h<D>:baxter], Exception, "test 3";'
Use of uninitialized value %h of type Any in string context
Any of .^name, .perl, .gist, or .say can stringify undefined things, if needed.
in block at
/usr/home/christian/perl6/perl6-roast-data/rakudo.moar/lib/Test.pm6 (Test) line
136
Use of uninitialized value of type Any in string context
Any of .^name, .perl, .gist, or .say can stringify undefined things, if needed.
in block at
/usr/home/christian/perl6/perl6-roast-data/rakudo.moar/lib/Test.pm6 (Test) line
136
ok 1 -
1..2
ok 1 - '%h<C>:k:v' died
ok 2 - right exception type (Exception)
ok 2 - test 2
1..2
ok 1 - 'say %h<D>:baxter' died
ok 2 - right exception type (Exception)
ok 3 - test 3
