use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 6;
use Data::Dump qw(dump);
use File::Slurp;
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';