Test List of Pairs/Hash .Set coercer

- Ensure the .values of Pairs get interpreted as weights

S02-types/set.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 215;
+plan 217;
 
 sub showset($s) { $s.keys.sort.join(' ') }
 
@@ -70,6 +70,14 @@ sub showset($s) { $s.keys.sort.join(' ') }
 
     isa-ok {a => 2, b => 4, c => 0}.Set, Set, '{a => 2, b => 4, c => 0}.Set makes a Set';
     is showset({a => 2, b => 4, c => 0}.Set), 'a b', '{a => 2, b => 4, c => 0}.Set makes the set a b';
+
+    is-deeply (:a, :!b, :3c, :0d, :e<meow>, :f(''), 'g').Set,
+        set('a', 'c', 'e', 'g'),
+    '.Set on List of Pairs treats Pair.value as weight';
+
+    is-deeply {:a, :!b, :3c, :0d, :e<meow>, :f('')}.Set,
+        set('a', 'c', 'e'),
+    '.Set on Hash of Pairs treats Pair.value as weight';
 }
 
 {