From dc2334790236b356c8b914296edceb7826bd2dd7 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 18 May 2012 14:09:20 +0200 Subject: [PATCH] test symlink md5 retrival --- t/MD5sum.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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'; -- 2.20.1