tracks/perl6/exercises/robot-name/robot-name.t in trackler-2.1.0.33 vs tracks/perl6/exercises/robot-name/robot-name.t in trackler-2.1.0.34

- old
+ new

@@ -24,17 +24,21 @@ srand 1; my $robot = ::($exercise).?new; my Str $name = $robot.?name; like $name, /^^<[A..Z]>**2 <[0..9]>**3$$/, 'Name matches schema'; + srand 2; is $robot.?name, $name, 'Name is persistent'; srand 1; isnt ::($exercise).new.?name, $name, 'New Robot cannot claim previous Robot name'; + srand 1; $robot.?reset-name; $robot.?reset_name; # Allows next test to still pass for older solutions + isnt $robot.?name, $name, "'reset-name' cannot use previous Robot name"; + diag "\nCreating 100 robots..."; push my @names, ::($exercise).new.name for 1..100; is @names, @names.unique, 'All names are unique'; subtest 'Randomness', { plan 2;