# $Id: watchlist.t,v 1.3 2006/03/22 01:14:04 Daddy Exp $

use ExtUtils::testlib;

use Test::More no_plan;

BEGIN { use_ok('WWW::Ebay::Session') };

use strict;

SKIP:
  {
  # See if ebay userid is in environment variable:
  my $sUserID = $ENV{EBAY_USERID} || '';
  my $sPassword = $ENV{EBAY_PASSWORD} || '';
  if (($sUserID eq '') || ($sPassword eq ''))
    {
    diag("In order to fully test this module, set environment variables EBAY_USERID and EBAY_PASSWORD.");
    } # if
  skip "eBay userid/password not supplied", 11 if (($sUserID   eq '') ||
                                                   ($sPassword eq ''));
  diag("Trying to sign in as $sUserID, with password from env.var EBAY_PASSWORD...");
  my $oSession = new WWW::Ebay::Session($sUserID, $sPassword);
  ok(ref($oSession));
  my $s = $oSession->signin;
  isnt($s, 'FAILED', 'sign-in');
  diag("Fetching $sUserID\'s watchlist...");
  my @aoListings = $oSession->watchlist_auctions('Pages/watchlist.html');
  my $iAnyError = $oSession->any_error;
  diag($oSession->error);
 SKIP:
    {
    skip sprintf("because %s has no auctions in watchlist", $oSession->{_user}), 1 if (@aoListings == 0);
    ok(! $iAnyError);
    diag(sprintf(q{The following auctions were found on %s's ebay watchlist:}, $oSession->{_user}));
 LISTING:
    foreach my $oListing (@aoListings)
      {
      diag($oListing->title);
      # like($oListing->question_count, qr{\A\d+\Z}, 'question_count is an integer');
      # like($oListing->watcher_count, qr{\A\d+\Z}, 'watcher_count is an integer');
      like($oListing->bid_count, qr{\A\d+\Z}, 'bid_count is an integer');
      isnt($oListing->end_date, '', 'end_date is not empty');
      # like($oListing->bid_amount, qr{\A\d+\Z}, 'bid_amount is an integer');
      isnt($oListing->seller, '', 'seller is not empty');
      if ($oListing->bid_count)
        {
        isnt($oListing->bidder, '', 'bidder is not empty');
        } # if
      } # foreach LISTING
    } # end of SKIP block
  } # end of SKIP block

exit 0;

__END__