diff options
author | Adam Spiers <stow@adamspiers.org> | 2011-11-24 00:45:29 +0000 |
---|---|---|
committer | Adam Spiers <stow@adamspiers.org> | 2011-11-26 16:34:54 +0000 |
commit | 0db112441f364d5b32a4b7ddab75f5655fbc87fb (patch) | |
tree | 7cedee0c1aae5337bcad24555917899c8468bc9d /t | |
parent | 6534b21d290c0a83db330c0fd979242c4a75a849 (diff) | |
download | stow-0db112441f364d5b32a4b7ddab75f5655fbc87fb.tar.gz |
Strip superfluous quotes from $hash{'lookups'}
Diffstat (limited to 't')
-rwxr-xr-x | t/chkstow.t | 2 | ||||
-rwxr-xr-x | t/stow.t | 8 |
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( @@ -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 |