view release on metacpan or  search on metacpan

t/01_Business-TNT-ExpressConnect.t  view on Meta::CPAN

    done_testing();
    exit(0);
}

subtest 'on-line' => sub {

    #data in file
    my $file = $Bin.'/tdata/single_international.xml';
    my $prices = $tnt->get_prices({file => $file});

    is(scalar keys %$prices, 6, 'file upload') || diag join("\n",@{$tnt->errors});

    #data in hash
    my %params = (
        sender             => {country => 'AT', town => 'Vienna',    postcode => 1020},
        delivery           => {country => 'AT', town => 'Schwechat', postcode => '2320'},
        consignmentDetails => {
            totalWeight         => 1.25,
            totalVolume         => 0.1,
            totalNumberOfPieces => 1
        },