#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
BEGIN { push(@INC, "lib", "t"); }
use TestHelper;

my $mturk = TestHelper->new;

plan tests => 3;
ok($mturk, "Created client");

$mturk->addRetry(
    operations => qr/./i,
    errorCodes => qr/ServiceUnavailable/i,
    maxTries   => 5,
    delay      => 10
);

ok($mturk, "Added Retry");

my $result = $mturk->GetAccountBalance();
my $balance = $result->getFirst("AvailableBalance.Amount");
ok($balance =~ /^\d+\.\d+$/, "GetAccountBalance (with Retry)");