view release on metacpan or  search on metacpan

t/_parse_xml.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More tests => 1;

use Akado::Account;

# subs
sub read_xml_from_data_section {
    my $data;

    while (<DATA>) {
        $data .= $_;
    }

    return $data;
}

# main
sub main {

    my $xml = read_xml_from_data_section();
    my $parsed = Akado::Account::_parse_xml(undef, $xml);

    is_deeply(
        $parsed,
        {
            balance => 1452,
            next_month_payment => 484,
        },
        "_parse_xml()",
    );