projects
/
cloudstore.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
test symlink md5 retrival
[cloudstore.git]
/
t
/
MD5sum.t
diff --git
a/t/MD5sum.t
b/t/MD5sum.t
index
c0ad6ea
..
121b661
100755
(executable)
--- a/
t/MD5sum.t
+++ b/
t/MD5sum.t
@@
-2,7
+2,7
@@
use strict;
use warnings;
use strict;
use warnings;
-use Test::More tests =>
3
;
+use Test::More tests =>
6
;
use Data::Dump qw(dump);
use File::Slurp;
use Data::Dump qw(dump);
use File::Slurp;
@@
-18,3
+18,8
@@
ok CloudStore::MD5sum->md5_set($file => $md5), 'md5_set';
cmp_ok CloudStore::MD5sum->md5_get($file), 'eq', $md5, 'md5_get';
cmp_ok CloudStore::MD5sum->md5_get($file), 'eq', $md5, 'md5_get';
+ok symlink( $file => $file . '.symlink' ), "symlink $file";
+
+cmp_ok CloudStore::MD5sum->md5_get($file . '.symlink'), 'eq', $md5, 'md5_get from symlink';
+
+ok unlink( $file, $file . '.symlink' ), 'unlink cleanup';