Test that adverbs are illegal when augmenting a class and only :auth/…

…:ver are legal when declaring one.

Bug #124017.

S12-class/basic.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 40;
+plan 43;
 
 =begin pod
 
@@ -153,4 +153,17 @@ eval-lives-ok 'class Test1 { class A {};}; class Test2 {class A {};};',
 
 is class :: { method foo { 42 }}.foo, 42, "Can call method on class definition without parens";
 
+
+# RT #124017
+throws-like 'class RT124017_A:D {}', X::Syntax::Type::Adverb,
+             "RT124017 - can't declare Foo:D";
+
+
+throws-like 'class RT124017_B:no_such_adverb {}', X::Syntax::Type::Adverb,
+             "RT124017 - can't declare Foo:no-such-adverb";
+
+{
+    eval-lives-ok 'class Adverbed:auth<random_auth>:ver<0.0.1> { }', 'can declare class with :auth and :ver adverbs';
+}
+
 # vim: ft=perl6

S12-class/open.t

@@ -2,7 +2,7 @@ use v6;
 use MONKEY-TYPING;
 
 use Test;
-plan 8;
+plan 10;
 
 # L<S12/Open vs Closed Classes>
 
@@ -67,4 +67,7 @@ is $x.in_Something, 'ab', 'basic OO sanity';
     is @a.last-and-first, '01', 'can extend class Array';
 }
 
+throws-like 'use MONKEY-TYPING; class RT124017_A {}; augment class RT124017_A:D {}', X::Syntax::Augment::Adverb, "can't pass :D when augmenting class";
+throws-like 'use MONKEY-TYPING; class RT124017_B {}; augment class RT124017_B:auth<random_auth> {}', X::Syntax::Augment::Adverb, "can't pass :auth when augmenting class";
+
 # vim: ft=perl6