begin API rewrite to expose with gearman

[cloudstore.git] / t / API.t

diff --git a/t/API.t b/t/API.t
new file mode 100755 (executable)
index 0000000..a90662d
--- /dev/null
+++ b/t/API.t
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Data::Dump qw(dump);
+
+use lib 'lib';
+
+use_ok 'CloudStore::API';
+
+$ENV{PORT}=6500;
+$ENV{SLICE}='/tmp/';
+
+ok my $o = CloudStore::API->new, 'new';
+
+cmp_ok $o->create_user('md5@example.com','md5sum',0), '==', 2000, 'create_user md5';
+