35 lines
1016 B
Perl
35 lines
1016 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => "brt";
|
|
zci is_cached => 1;
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::BRT )],
|
|
"brt 123456789012" => test_zci(
|
|
"123456789012",
|
|
structured_answer => {
|
|
input => [],
|
|
operation => 'Shipment tracking available at <a href="http://as777.brt.it/vas/sped_det_show.htm?referer=sped_numspe_par.htm&Nspediz=123456789012&RicercaNumeroSpedizione=Ricerca">BRT</a>.',
|
|
result => '123456789012'
|
|
}
|
|
),
|
|
"brt 1234567890123456789" => test_zci(
|
|
"1234567890123456789",
|
|
structured_answer => {
|
|
input => [],
|
|
operation => 'Shipment tracking available at <a href="http://as777.brt.it/vas/sped_det_show.htm?brtCode=1234567890123456789&urltype=a">BRT</a>.',
|
|
result => '1234567890123456789'
|
|
}
|
|
),
|
|
"brt 1234" => undef,
|
|
"brt 12345678901234567890" => undef
|
|
);
|
|
|
|
done_testing;
|