duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Eric/perl 5.26.0 (#4529) 

* perl-5.26.0: Handle NaN

* perl-5.26.0: regexp escaping

* fix typo

* bump travis to perl-5.26.0

* perl-5.26.0: unicode changed

* revert to perl5.16

* cache perl-5.26/lib
master
Eric Johnson 2017-11-07 13:58:30 -05:00 committed by Zaahir Moolla
parent d6b03c53d5
commit e2981a3cf1
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.travis.yml
View File

@ -7,6 +7,7 @@ cache:
- $HOME/.cpanm - $HOME/.cpanm
- $HOME/.nvm - $HOME/.nvm
- $HOME/perl5/perlbrew/perls/5.16/lib - $HOME/perl5/perlbrew/perls/5.16/lib
- $HOME/perl5/perlbrew/perls/5.26/lib
- /var/tmp - /var/tmp
addons: addons:
apt_packages: apt_packages:
@ -23,7 +24,7 @@ install:
- dzil listdeps | grep -ve '^\W' | cpanm --quiet --notest --mirror http://www.cpan.org --mirror http://duckpan.org --mirror-only - dzil listdeps | grep -ve '^\W' | cpanm --quiet --notest --mirror http://www.cpan.org --mirror http://duckpan.org --mirror-only
language: perl language: perl
perl: perl:
- 5.16 - 5.26
script: script:
- jasmine-node --test-dir spec/ - jasmine-node --test-dir spec/
- prove -lr -j1 t - prove -lr -j1 t

2
lib/DDG/Goodie/Combination.pm
View File

@ -47,7 +47,7 @@ handle query => sub {
} }
#Return no result if overflow #Return no result if overflow
return if $result eq '-nan' or $result eq 'nan'; return if $result eq '-nan' or $result eq 'nan' or $result eq 'NaN';
my $formatted_result = $style->for_display($result); my $formatted_result = $style->for_display($result);

2
lib/DDG/Goodie/RandomDate.pm
View File

@ -48,7 +48,7 @@ my %supports_range = map { $_ => $date_re } (
my @standard_query_forms = keys %standard_queries; my @standard_query_forms = keys %standard_queries;
my @blacklist = ( my @blacklist = (
'\\%{[^}]*}', # Access to any DateTime method. '\\%\\{[^}]*\\}', # Access to any DateTime method.
); );
my $blacklist_re = join '|', map { "($_)" } @blacklist; my $blacklist_re = join '|', map { "($_)" } @blacklist;

4
t/Unicode.t
View File

@ -33,10 +33,10 @@ ddg_goodie_test(
"utf-16 smile" => test_zci("\x{2323} U+2323 SMILE, decimal: 8995, HTML: ⌣, UTF-8: 0xE2 0x8C 0xA3, block: Miscellaneous Technical"), "utf-16 smile" => test_zci("\x{2323} U+2323 SMILE, decimal: 8995, HTML: ⌣, UTF-8: 0xE2 0x8C 0xA3, block: Miscellaneous Technical"),
# Lookup by name, "utf-32 custard" # Lookup by name, "utf-32 custard"
"utf-32 custard" => test_zci("\x{1F36E} U+1F36E CUSTARD, decimal: 127854, HTML: 🍮, UTF-8: 0xF0 0x9F 0x8D 0xAE, block: Miscellaneous Symbols And Pictographs"), "utf-32 custard" => test_zci("\x{1F36E} U+1F36E CUSTARD, decimal: 127854, HTML: 🍮, UTF-8: 0xF0 0x9F 0x8D 0xAE, block: Miscellaneous Symbols and Pictographs"),
# Lookup by name, "emoji rocket" # Lookup by name, "emoji rocket"
"emoji rocket" => test_zci("\x{1F680} U+1F680 ROCKET, decimal: 128640, HTML: 🚀, UTF-8: 0xF0 0x9F 0x9A 0x80, block: Transport And Map Symbols"), "emoji rocket" => test_zci("\x{1F680} U+1F680 ROCKET, decimal: 128640, HTML: 🚀, UTF-8: 0xF0 0x9F 0x9A 0x80, block: Transport and Map Symbols"),
# Lookup by character, "unicode à" # Lookup by character, "unicode à"
"unicode \x{263B}" => test_zci("\x{263B} U+263B BLACK SMILING FACE, decimal: 9787, HTML: ☻, UTF-8: 0xE2 0x98 0xBB, block: Miscellaneous Symbols"), "unicode \x{263B}" => test_zci("\x{263B} U+263B BLACK SMILING FACE, decimal: 9787, HTML: ☻, UTF-8: 0xE2 0x98 0xBB, block: Miscellaneous Symbols"),