projects
/
cloudstore.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7da804f
)
test symlink md5 retrival
author
Dobrica Pavlinusic
<dpavlin@rsync1.maxxo.com>
Fri, 18 May 2012 12:09:20 +0000
(14:09 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rsync1.maxxo.com>
Fri, 18 May 2012 12:09:20 +0000
(14:09 +0200)
t/MD5sum.t
patch
|
blob
|
history
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 Test::More tests =>
3
;
+use Test::More tests =>
6
;
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';
+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';