t/MD5sum.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 5;
   6 use Data::Dump qw(dump);
   7
   8 use lib 'lib';
   9
  10 use_ok 'CloudStore::MD5sum';
  11
  12 my $login = $ENV{LOGIN} || 'u2002';
  13
  14 ok my $o = CloudStore::MD5sum->new, 'new';
  15
  16 ok my $db = $o->md5sum($login), 'md5sum';
  17 diag dump $db;
  18
  19 ok my $l = [ $o->md5sum_dump($login) ], 'md5sum_dump';
  20 diag dump $l;
  21
  22 ok $o->md5sum_close($login), 'md5sum_close';
  23