Permalink
Browse files

Merge pull request #107 from GlitchMr/case-insensitive-duckduckgo

Make "DuckDuckGo" in "DuckDuckGo or something" query case insensitive.
  • Loading branch information...
2 parents f425fd0 + 60a51e5 commit 90f161716ae994885215992c5af49c22788907e9 @majuscule majuscule committed Jul 6, 2012
Showing with 2 additions and 1 deletion.
  1. +1 −1 lib/DDG/Goodie/ABC.pm
  2. +1 −0 t/ABC.t
View
@@ -25,7 +25,7 @@ handle query_parts => sub {
return if scalar(@choices) <= 1;
my $choice = int(rand(@choices));
- if (my @duck = grep { $_ eq 'duckduckgo' || $_ eq 'duck' || $_ eq 'ddg' } @choices) {
+ if (my @duck = grep { / \A (?: duck (?: duckgo )? | ddg ) \z /ix } @choices) {
return $duck[0]." (not random)", answer_type => 'egg';
}
View
@@ -15,6 +15,7 @@ ddg_goodie_test(
'yes or no' => test_zci(qr/(yes|no) \(random\)/),
"this or that or none" => test_zci(qr/(this|that|none) \(random\)/),
"duckduckgo or google or bing or something" => test_zci("duckduckgo (not random)", answer_type => 'egg'),
+ "DuckDuckGo OR Google OR Bing or SOMETHING" => test_zci("DuckDuckGo (not random)", answer_type => 'egg'),
);
done_testing;

0 comments on commit 90f1617

Please sign in to comment.