Removed legacy HKDK. (#4448)
parent
037aceb53c
commit
27e75cf8df
|
@ -1,25 +0,0 @@
|
|||
package DDG::Goodie::HKDK;
|
||||
# ABSTRACT: Track a package through HKDK.
|
||||
|
||||
use strict;
|
||||
use DDG::Goodie;
|
||||
|
||||
zci is_cached => 1;
|
||||
zci answer_type => "hkdk";
|
||||
|
||||
triggers query_nowhitespace_nodash => qr/([a-z]{2}\d{9}(?:hk|dk))/i;
|
||||
|
||||
handle query_nowhitespace_nodash => sub {
|
||||
my $package_number = $1;
|
||||
|
||||
if ( $package_number =~ /hk$/i ) {
|
||||
return $package_number, heading => 'Hongkong Post Shipment Tracking', html => qq(Track this shipment at <a href="http://app3.hongkongpost.com/CGI/mt/genresult.jsp?tracknbr=$package_number">Hongkong Post</a>.);
|
||||
}
|
||||
elsif ( $package_number =~ /dk$/i ) {
|
||||
return $package_number, heading => 'Post Norden Shipment Tracking', html => qq(Track this shipment at <a href="http://www.postdanmark.dk/tracktrace/TrackTrace.do?i_stregkode=$package_number">Post Norden</a>.);
|
||||
}
|
||||
|
||||
return;
|
||||
};
|
||||
|
||||
1;
|
26
t/HKDK.t
26
t/HKDK.t
|
@ -1,26 +0,0 @@
|
|||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Test::More;
|
||||
use Test::Deep;
|
||||
use DDG::Test::Goodie;
|
||||
|
||||
zci answer_type => 'hkdk';
|
||||
zci is_cached => 1;
|
||||
|
||||
ddg_goodie_test(
|
||||
[qw( DDG::Goodie::HKDK )],
|
||||
'CU123456789DK' => test_zci(
|
||||
"CU123456789DK",
|
||||
heading => 'Post Norden Shipment Tracking',
|
||||
html => qq(Track this shipment at <a href="http://www.postdanmark.dk/tracktrace/TrackTrace.do?i_stregkode=CU123456789DK">Post Norden</a>.)
|
||||
),
|
||||
'EE123456789HK' => test_zci(
|
||||
"EE123456789HK",
|
||||
heading => 'Hongkong Post Shipment Tracking',
|
||||
html => qq(Track this shipment at <a href="http://app3.hongkongpost.com/CGI/mt/genresult.jsp?tracknbr=EE123456789HK">Hongkong Post</a>.)
|
||||
),
|
||||
);
|
||||
|
||||
done_testing;
|
Loading…
Reference in New Issue