t/dedup.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::dedup';
  11
  12 my $md5 = "51ce99ec40129bfe1fd11d65b346d15e";
  13 my $file = "users/test/blob/foo";
  14
  15 my $r;
  16
  17 ok( $r = CloudStore::dedup::path_md5( $file, "test1-$md5" ), 'path_md5' );
  18 diag dump($r);
  19
  20 ok( $r = CloudStore::dedup::path_remove( $file ), 'path_remove' );
  21 diag dump($r);
  22