view release on metacpan or  search on metacpan

t/01-wallet.t  view on Meta::CPAN

#!perl
use 5.006;
use strict;
use warnings;
use Test::More;
use Try::Tiny;
use JSON;
use Carp;
use Circle::Wallet;

# 1. create wallet using anonymous user.
try {
    my $result = create_wallet();
    carp encode_json($result);
    my $status = $result->{status};
    is( $status, 20000, 'create wallet not login' );

    $result = list_wallet();
    carp encode_json($result);
    $status = $result->{status};
    is( $status, 20000, 'list wallet not login' );

    $result = balance_of_address("ssssss");
    carp encode_json($result);
    $status = $result->{status};
    is( $status, 20000, 'balance of address not login' );

    $result = balance_of_wallet();
    carp encode_json($result);
    $status = $result->{status};
    is( $status, 20000, 'balance of wallet not login' );

    $result = assets_of_address( 'ssssss', 1 );
    carp encode_json($result);
    $status = $result->{status};
    is( $status, 20000, 'assets of address not login' );

    $result = assets_of_wallet();
    carp encode_json($result);
    $status = $result->{status};
    is( $status, 20000, 'assets of wallet not login' );

    $result = send_to(
        {
            from         => 'sssss',
            address      => 'rrrrr',
            email        => 'test@gmail.com',
            transContent => {
                type     => 1,
                valueHex => 'e45095ee5edd11efb6994bdea9d4f576'
            }
        }
    );
    $status = $result->{status};
    carp encode_json($result);
    is( $status, 20000, 'send to api not login' );

    $result = pay(
        {
            from       => 'ssss',
            to         => "rrrrr",
            value      => 1000,
            payPayword => '<secret payPassword>'
        }
    );
    carp encode_json($result);