Remove legacy laser ship code. (#4452)

master
PJ Hampton 2017-08-21 21:07:59 +01:00 committed by Zaahir Moolla
parent 138cfc5959
commit c932b6a7a5
2 changed files with 0 additions and 44 deletions

View File

@ -1,17 +0,0 @@
package DDG::Goodie::LaserShip;
# ABSTRACT: Track a package through Lasership
use strict;
use DDG::Goodie;
zci is_cached => 1;
zci answer_type => "lasership";
triggers query_nowhitespace_nodash => qr/(^l[a-z]\d{8}$)/i;
handle query_nowhitespace_nodash => sub {
return $1, heading => "Lasership Shipment Tracking", html => qq(Track this shipment at <a href="http://lasership.com/track/$1">Lasership</a>.) if $1;
return;
};
1;

View File

@ -1,27 +0,0 @@
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;
zci answer_type => 'lasership';
zci is_cached => 1;
ddg_goodie_test(
[qw( DDG::Goodie::LaserShip )],
'LL12345678' => test_zci(
"LL12345678",
heading => 'Lasership Shipment Tracking',
html => qq(Track this shipment at <a href="http://lasership.com/track/LL12345678">Lasership</a>.)
),
'LL 12345678' => test_zci(
"LL12345678",
heading => 'Lasership Shipment Tracking',
html => qq(Track this shipment at <a href="http://lasership.com/track/LL12345678">Lasership</a>.)
),
'1LS12345678999999999' => undef
);
done_testing;