Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Skip strange adverb tests to be caught by MMD 
For some yet unknown reason, using a strange adverb that should be
caught by MMD, does not always work.  Worse, if you skip the first
test that failed to die, it will not die on the next test.  So for
now, all such tests are skipped to provide a reliable test result
for the 6.c release
  • Loading branch information
@lizmat
lizmat committed Dec 25, 2015
1 parent c5e65d7 commit 759ca2c
Show file tree
Hide file tree
Showing 2 changed files with 25 additions and 0 deletions.
12 changes: 12 additions & 0 deletions S32-array/adverbs.t
View file
Expand Up @@ -53,6 +53,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[1]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[1]:zorp', Exception; # caught by MMD
throws-like '@a[1]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -80,6 +81,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[@b]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[@b]:zippo', Exception; # caught by MMD
throws-like '@a[@b]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -107,6 +109,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[11]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[11]:kabam', Exception; # caught by MMD
throws-like '@a[11]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -134,6 +137,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[@B]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[@B]:zlonk', Exception; # caught by MMD
throws-like '@a[@B]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -161,6 +165,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[1,2]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[1,2]:dirgo', Exception; # caught by MMD
throws-like '@a[1,2]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -188,6 +193,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[@bc]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[@bc]:fnarg', Exception; # caught by MMD
throws-like '@a[@bc]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -215,6 +221,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[1..2]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[1..2]:fnarg', Exception; # caught by MMD
throws-like '@a[1..2]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -242,6 +249,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[11,12]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[11,12]:zniknop', Exception; # caught by MMD
throws-like '@a[11,12]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -269,6 +277,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[@BC]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[@BC]:lotne', Exception; # caught by MMD
throws-like '@a[@BC]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -297,6 +306,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[11..12]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[11..12]:bolton', Exception; # caught by MMD
throws-like '@a[11..12]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -324,6 +334,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[1,12]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[1,12]:notlob', Exception; # caught by MMD
throws-like '@a[1,12]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -351,6 +362,7 @@ for $@n, Any, $@s, Str -> @a, $T {

throws-like '@a[@bC]:k:v', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '@a[@bC]:cheese', Exception; # caught by MMD
throws-like '@a[@bC]:kv:p:zip:zop', X::Adverb,
:source(@a.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down
13 changes: 13 additions & 0 deletions S32-hash/adverbs.t
View file
Expand Up @@ -55,6 +55,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h<b>:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h<b>:zorp', Exception; # caught by MMD
throws-like '%h<b>:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -82,6 +83,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{@b}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{@b}:rickroll', Exception; # caught by MMD
throws-like '%h{@b}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -109,6 +111,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h<B>:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h<B>:baxter', Exception; # caught by MMD
throws-like '%h<B>:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -136,6 +139,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{@B}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{@B}:jefferson', Exception; # caught by MMD
throws-like '%h{@B}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -163,6 +167,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h<b c>:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h<b c>:egg', Exception; # caught by MMD
throws-like '%h<b c>:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -190,6 +195,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{@bc}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{@bc}:omelet', Exception; # caught by MMD
throws-like '%h{@bc}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -217,6 +223,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{"b".."c"}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{"b".."c"}:rivet', Exception; # caught by MMD
throws-like '%h{"b".."c"}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -244,6 +251,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h<B C>:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h<B C>:echt', Exception; # caught by MMD
throws-like '%h<B C>:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -271,6 +279,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{@BC}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{@BC}:gaston', Exception; # caught by MMD
throws-like '%h{@BC}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -298,6 +307,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{"B".."C"}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{"B".."C"}:noshit', Exception; # caught by MMD
throws-like '%h{"B".."C"}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -325,6 +335,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h<b C>:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h<b C>:fnoppo', Exception; # caught by MMD
throws-like '%h<b C>:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -352,6 +363,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{@bC}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{@bC}:frits', Exception; # caught by MMD
throws-like '%h{@bC}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down Expand Up @@ -379,6 +391,7 @@ for $%a, Any, $%i, Int, $%c, Any, $%j, Int -> %h, $T {

throws-like '%h{*}:k:v', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<k v>);
#?rakudo skip 'does not die reliably, not reproducable alas'
throws-like '%h{*}:sourceever', Exception; # caught by MMD
throws-like '%h{*}:kv:p:zip:zop', X::Adverb,
:source(%h.name), :what<slice>, :nogo(<kv p>), :unexpected({m/"zip"/ && m/"zop"/});
Expand Down

0 comments on commit 759ca2c

Please sign in to comment.