#!perl -T
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

plan tests => 4;

use WebService::Cryptsy;


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,
);

$cryp->createorder(
    68,
    'Sell',
    '1',
    '199',
);

ok(
    "$cryp" =~ /Insufficient CSC in account to complete this order|Network/,
    '->createorder produces an expected error',
);

is($cryp->error, "$cryp", 'object interpolation overload returns ->error');

is($cryp->timeout, 10, '->timeout returns expected value');
$cryp->timeout(20);
is($cryp->timeout, 20, '->timeout returns expected value, '
    . 'after setting a new value');

