Allow using 'rand' instead of 'random'

2016-07-05 11:31:33 +01:00 · 2016-07-05 11:31:33 +01:00 · f12586eb5f
parent 02122b6a4f
commit f12586eb5f
2 changed files with 2 additions and 1 deletions
--- a/lib/DDG/Goodie/RgbColor.pm
+++ b/lib/DDG/Goodie/RgbColor.pm
@ -19,7 +19,7 @@ my $scolor = 'colou?r';


 my %query_forms = (
-    "random $scolor" => \&random_color,
+    "rand(om)? $scolor" => \&random_color,
 );
 my @query_forms = keys %query_forms;

--- a/t/RgbColor.t
+++ b/t/RgbColor.t
@ -46,6 +46,7 @@ ddg_goodie_test(
    [qw( DDG::Goodie::RgbColor )],
    # Random colors
    'random color' => build_test(),
+    'rand color'   => build_test(),
    # Using 'colour'
    'random colour' => build_test(),
    # Invalid queries