projects
/
cloudstore.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
a90662d969cf80f25bdcc28863e57695ec2fdfaa
[cloudstore.git]
/
t
/
API.t
1
#!/usr/bin/perl
2
use strict;
3
use warnings;
4
5
use Test::More tests => 3;
6
use Data::Dump qw(dump);
7
8
use lib 'lib';
9
10
use_ok 'CloudStore::API';
11
12
$ENV{PORT}=6500;
13
$ENV{SLICE}='/tmp/';
14
15
ok my $o = CloudStore::API->new, 'new';
16
17
cmp_ok $o->create_user('md5@example.com','md5sum',0), '==', 2000, 'create_user md5';
18