#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
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 Parcelforce.)
),
'royal mail track parcel QE001331410GB' => test_zci(
"QE001331410GB",
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at Parcelforce.)
),
'track PBTM8237263001' => test_zci(
"PBTM8237263001",
heading => 'Parcelforce Tracking',
html =>
qq(Track this parcel at Parcelforce.)
)
);
done_testing;