From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Fri, 18 May 2012 12:09:20 +0000 (+0200)
Subject: test symlink md5 retrival
X-Git-Url: http://git.rot13.org/?p=cloudstore.git;a=commitdiff_plain;h=dc2334790236b356c8b914296edceb7826bd2dd7

test symlink md5 retrival
---

diff --git a/t/MD5sum.t b/t/MD5sum.t
index c0ad6ea..121b661 100755
--- 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';