Correct [(^)] tests

- [(^)] $a, $b, $c  is not the same as $a (^) $b (^) $c
- follows rakudo/rakudo@0cdd6c25355f2a747a6
- and rakudo/rakudo@c57590fd0c46c3b2da1e5

Author: lizmat

S03-operators/bag.t

@@ -106,7 +106,7 @@ ok bag(my @large_arr = ("a"...*)[^50000]), "... a large array goes into a bar -
     isa-ok ([(^)] $s, $b), Bag, "... and produces a Bag";
     is showkv([(^)] $b, $s), 'blood:1 love:1 rhetoric:1', "... and is actually symmetric";
     isa-ok ([(^)] $b, $s), Bag, "... and still produces a Bag that way too";
-    is showkv([(^)] $s, $ks, $kb), 'blood:1 love:1 rhetoric:1', "Bag symmetric difference reduce works on three bags";
+    is showkv([(^)] $s, $ks, $kb), 'love:1 rhetoric:1', "Bag symmetric difference reduce works on three bags";
     isa-ok ([(^)] $s, $ks, $kb), Bag, "Bag symmetric difference reduce works on three bags";
 }
 

S03-operators/mix.t

@@ -130,7 +130,7 @@ ok mix(my @large_arr = ("a"...*)[^50000]), "... a large array goes into a bar -
     isa-ok ([(^)] $b, $m), Mix, "... and produces a Mix";
     is ([(^)] $m, $b), %(blood => 0.1, love => 0.2, :rhetoric).Mix, "... and is actually symmetric";
     isa-ok ([(^)] $m, $b), Mix, "... and still produces a Mix that way too";
-    is ([(^)] $b, $m, $mh), (blood => 1, love => 1.1, :rhetoric).Mix, "Mix symmetric difference reduce works on three mixes";
+    is ([(^)] $b, $m, $mh), (love => 0.1, :rhetoric).Mix, "Mix symmetric difference reduce works on three mixes";
     isa-ok ([(^)] $b, $m, $mh), Mix, "Mix symmetric difference reduce works on three mixes produces a Mix";
 }