#!/usr/bin/env perl use strict; use warnings; use Test::More; use DDG::Test::Goodie; zci answer_type => 'usps'; zci is_cached => 1; ddg_goodie_test( [qw( DDG::Goodie::USPS )], 'EA 000 000 000 US' => test_zci( "EA000000000US", heading => 'USPS Shipment Tracking', html => qq(Track this shipment at USPS.) ), 'usps 7000 0000 0000 0000 0000' => test_zci( "70000000000000000000", heading => 'USPS Shipment Tracking', html => qq(Track this shipment at USPS.) ), ); done_testing;