t/MD5sum.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 6;
   6 use Data::Dump qw(dump);
   7 use File::Slurp;
   8
   9 use lib 'lib';
  10
  11 use_ok 'CloudStore::MD5sum';
  12
  13 my $file = '/var/tmp/test.attr'; # /tmp is devshm which doesn't support user_xattr
  14 write_file $file => "test\n";
  15 my $md5 = rand(1234567890);
  16
  17 ok CloudStore::MD5sum->md5_set($file => $md5), 'md5_set';
  18
  19 cmp_ok CloudStore::MD5sum->md5_get($file), 'eq', $md5, 'md5_get';
  20
  21 ok symlink( $file => $file . '.symlink' ), "symlink $file";
  22
  23 cmp_ok CloudStore::MD5sum->md5_get($file . '.symlink'), 'eq', $md5, 'md5_get from symlink';
  24
  25 ok unlink( $file, $file . '.symlink' ), 'unlink cleanup';