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

Remove Parcelforce Goodie. Migrate to Spice (#4071)

master
Zaahir Moolla 2017-04-04 16:07:55 -04:00 committed by PJ Hampton
parent 3d6a370f3a
commit 691062a3b0
2 changed files with 0 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lib/DDG/Goodie/Parcelforce.pm
View File

@ -1,37 +0,0 @@
package DDG::Goodie::Parcelforce;
# ABSTRACT: track a package through Parcelforce.
use strict;
use DDG::Goodie;
zci is_cached => 1;
zci answer_type => "parcelforce";
# Regex for parcelforce / royal mail
my $rm_qr = qr/royalmail|parcelforce/io;
my $tracking_qr = qr/package|parcel|track(?:ing|)|num(?:ber|)|\#/i;
# note: parcelforce format listed at http://www.parcelforce.com/help-information/frequently-asked-questions/track-parcel#2
my $parcel
= qr/[A-Z]{2}[0-9]{7}|[A-Z]{4}[0-9]{10}|[A-Z]{2}[0-9]{9}GB|[0-9]{12}/i;
triggers query_nowhitespace_nodash => qr/
^$rm_qr.*?(?<parcel_number>$parcel)$|
^(?<parcel_number>$parcel).*?$rm_qr$|
^(?:$tracking_qr|$rm_qr|)*(?<parcel_number>$parcel)(?:$tracking_qr|$rm_qr|)*$
/xo;
handle query_nowhitespace_nodash => sub {
my $parcel_number = $+{parcel_number};
if ($parcel_number && $parcel_number !~ /^(isbn|luhn|kb)/i) {
return $parcel_number,
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at <a href="http://www.parcelforce.com/track-trace?trackNumber=$parcel_number">Parcelforce</a>.);
};
return;
};
1;

37
t/Parcelforce.t
View File

@ -1,37 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;
zci answer_type => 'parcelforce';
zci is_cached => 1;
ddg_goodie_test(
[qw( DDG::Goodie::Parcelforce )],
'parcelforce track PBTM8041434001' => test_zci(
"PBTM8041434001",
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at <a href="http://www.parcelforce.com/track-trace?trackNumber=PBTM8041434001">Parcelforce</a>.)
),
'royal mail track parcel QE001331410GB' => test_zci(
"QE001331410GB",
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at <a href="http://www.parcelforce.com/track-trace?trackNumber=QE001331410GB">Parcelforce</a>.)
),
'track PBTM8237263001' => test_zci(
"PBTM8237263001",
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at <a href="http://www.parcelforce.com/track-trace?trackNumber=PBTM8237263001">Parcelforce</a>.)
),
'luhn 1234554651' => undef,
'cc737873589FR' => undef,
'KB2553549' => undef
);
done_testing;