summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorAdam Spiers <stow@adamspiers.org>2011-11-24 00:45:29 +0000
committerAdam Spiers <stow@adamspiers.org>2011-11-26 16:34:54 +0000
commit0db112441f364d5b32a4b7ddab75f5655fbc87fb (patch)
tree7cedee0c1aae5337bcad24555917899c8468bc9d /t
parent6534b21d290c0a83db330c0fd979242c4a75a849 (diff)
downloadstow-0db112441f364d5b32a4b7ddab75f5655fbc87fb.tar.gz
Strip superfluous quotes from $hash{'lookups'}
Diffstat (limited to 't')
-rwxr-xr-xt/chkstow.t2
-rwxr-xr-xt/stow.t8
2 files changed, 5 insertions, 5 deletions
diff --git a/t/chkstow.t b/t/chkstow.t
index 0b8027f..4affd7f 100755
--- a/t/chkstow.t
+++ b/t/chkstow.t
@@ -70,7 +70,7 @@ stderr_like(
"Skip directories containing .stow");
# squelch warn so that check_stow doesn't carp about skipping .stow all the time
-$SIG{'__WARN__'} = sub { };
+$SIG{__WARN__} = sub { };
@ARGV = ('-t', '.', '-l');
stdout_like(
diff --git a/t/stow.t b/t/stow.t
index 902bb50..7057378 100755
--- a/t/stow.t
+++ b/t/stow.t
@@ -58,7 +58,7 @@ local @ARGV = (
'dummy'
);
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
-is_deeply($options->{'defer'}, [ qr(\Aman), qr(\Ainfo) ] => 'defer man and info');
+is_deeply($options->{defer}, [ qr(\Aman), qr(\Ainfo) ] => 'defer man and info');
#
# Check setting override paths
@@ -69,7 +69,7 @@ local @ARGV = (
'dummy'
);
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
-is_deeply($options->{'override'}, [qr(\Aman), qr(\Ainfo)] => 'override man and info');
+is_deeply($options->{override}, [qr(\Aman), qr(\Ainfo)] => 'override man and info');
#
# Check stripping any matched quotes
@@ -80,7 +80,7 @@ local @ARGV = (
'dummy'
);
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
-is_deeply($options->{'override'}, [qr(\Aman), qr(\Ainfo)] => 'strip shell quoting');
+is_deeply($options->{override}, [qr(\Aman), qr(\Ainfo)] => 'strip shell quoting');
#
# Check setting ignored paths
@@ -91,7 +91,7 @@ local @ARGV = (
'dummy'
);
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
-is_deeply($options->{'ignore'}, [ qr(~\z), qr(\.#.*\z) ] => 'ignore temp files');
+is_deeply($options->{ignore}, [ qr(~\z), qr(\.#.*\z) ] => 'ignore temp files');
# vim:ft=perl