001_object.t

use strict;
use warnings;
use Test::Base tests => 2;

use WebService::Yes24::Item;

my $item = WebService::Yes24::Item->new(
    title     => 'Learning Perl (Hardcover, 5, English)',
    cover     => 'http://image.yes24.com/momo/TopCate75/MidCate08/7479928.jpg',
    author    => 'Tom Phoenix, Randal L.  Schwartz, Brian d Foy',
    publisher => 'O\' Reilly ',
    date      => ' 2008 - 07 ',
    price     => ' 41800 ',
    mileage   => ' 2090 ',
    link      => 'http://www.yes24.com/24/goods/2884380',
);

ok $item;
isa_ok $item, 'WebService::Yes24::Item';