[v6.d REVIEW] Relocate/expand tests

- These are smileys, not coercers
- Add tests for :D smileys too

Orig: e7fb85a

Author: zoffixznet

S06-parameters/smiley.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 35;
+plan 39;
 
 is { sub a(Int $a)   { $a }; a Int }(), Int, 'can Int   take an Int:U';
 is { sub a(Int $a)   { $a }; a 42  }(),  42, 'can Int   take an Int:D';
@@ -87,4 +87,10 @@ throws-like 'use parameters :foo',
   name => 'foo',
   'does use parameters :foo fail';
 
+# RT #127841
+is Int:U        .gist, '(Int:U)',   '.gist on :U smileys';
+is Proc::Async:U.gist, '(Async:U)', '.gist on :U smileys uses shortname';
+is Int:D        .gist, '(Int:D)',   '.gist on :D smileys';
+is Proc::Async:D.gist, '(Async:D)', '.gist on :D smileys uses shortname';
+
 # vim: ft=perl6

S12-coercion/coercion-types.t

@@ -1,6 +1,6 @@
 use v6;
 use Test;
-plan 22;
+plan 20;
 
 # coercion types in parameter lists
 {
@@ -96,10 +96,6 @@ class NastyChild is Parent { };
     isa-ok Co.invocant, SubCo, 'Can coerce invocant to subclass';
 }
 
-# RT #127841
-is Int:U.gist, '(Int:U)', '.gist on coercion types';
-is Proc::Async:U.gist, '(Async:U)', '.gist on coercion types uses shortname';
-
 is Str(Any).gist, '(Str(Any))', 'Can gist a coercion type';
 
 # RT #131611