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