#!perl -T
use 5.006;
use strict;
use warnings;
use Test::More;
use Test::Deep;
plan tests => 1;
use WebService::Cryptsy;
use Data::Dumper;
open my $fh, '<', 't/API/authenticated/KEYS'
or BAIL_OUT("Can't get the keys: $!");
chomp( my @keys = <$fh> );
my $cryp = WebService::Cryptsy->new(
public_key => $keys[0],
private_key => $keys[1],
timeout => 10,
);
my $data = $cryp->calculatefees(
'Sell',
'20',
'199',
);
if ( $data ) {
cmp_deeply(
$data,
{
'fee' => re('^[-+.\d]+$'),
'net' => re('^[-+.\d]+$'),
'discount' => re('^[-+.\d]+$'),
},
'->calculatefees returned an expected hashref'
);
}
else {
diag "Got an error getting an API request: $cryp";
ok( length $cryp->error );
}