@timotimo suggested better way for username generation

tony-o · Oct 6, 2014 · e329974 · e329974
1 parent bbdc565
commit e329974
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 6 deletions.
diff --git a/mysql_test.pl6 b/mysql_test.pl6
@@ -19,7 +19,7 @@ $orm.connect(
 
 my $username = '';
 
-$username ~= chr((65 .. 90).pick) for 0 .. 10;
+$username = [~] ("a".."z").roll(10);
 
 $username.say;
 my $newrow = $orm.create('nickl');

diff --git a/pgsql_test.pl6 b/pgsql_test.pl6
@@ -19,7 +19,7 @@ $orm.connect(
 
 my $username = '';
 
-$username ~= chr((65 .. 90).pick) for 0 .. 10;
+$username = [~] ("a".."z").roll(10);
 
 $username.say;
 my $newrow = $orm.create('nickl');

diff --git a/sqlite.test.pl6 b/sqlite.test.pl6
@@ -15,7 +15,7 @@ $orm.connect(
 
 my $username = '';
 
-$username ~= chr((65 .. 90).pick) for 0 .. 10;
+$username = [~] ("a".."z").roll(10);
 
 $username.say;
 my $newrow = $orm.create('nickl');

diff --git a/t/01_sqlite.t b/t/01_sqlite.t
@@ -17,7 +17,7 @@ $orm.connect(
 
 my $username = '';
 
-$username ~= chr((65 .. 90).pick) for 0 .. 10;
+$username = [~] ("a".."z").roll(10);
 
 my $newrow = $orm.create('nickl');
 
@@ -60,8 +60,7 @@ ok @($orm.search('nickl', { '-and' => [ 'username' => $username, joined => ('-gt
 
 my @names;
 for 0 .. 10 {
-  $username = '';
-  $username ~= chr((65 .. 90).pick) for 0 .. 10;
+  $username = [~] ("a".."z").roll(10);
   @names.push($username);
   my $row = $orm.create('nickl');
   $row.set({username => $username});