mostly fix "not" stuff

[scpubgit/DKit.git] / t / dot_ssh.t

diff --git a/t/dot_ssh.t b/t/dot_ssh.t
index b8cb7ec..6557838 100644 (file)
--- a/t/dot_ssh.t
+++ b/t/dot_ssh.t
@@ -194,7 +194,7 @@ lives_ok { paths_for([ path_status_at => 'PS', \'.ssh' ]) }
 $path_status{'.ssh/authorized_keys'} = $protos{'.ssh/authorized_keys'};
 
 is(
-  paths_for([ path_status => 'PS' ], [ not => [ is_directory => 'PS' ] ]),
+  paths_for([ path_status => 'PS' ], [ not => [ [ is_directory => 'PS' ] ] ]),
   '.ssh/authorized_keys',
   'Negation'
 );
@@ -229,7 +229,7 @@ is_deeply(
 
 $solver->add_rule(@$_) for (
   [ is_directory => [ qw(PS) ],
-    [ not => [ exists_path => 'PS' ] ],
+    [ not => [ [ exists_path => 'PS' ] ] ],
     [ act => [ 'PS' ],
         sub {
           my ($value) = @_;
@@ -288,7 +288,7 @@ $solver->add_rule(@$_) for (
     [ catfile => qw(DirPath FileName FilePath) ],
     [ file_at => qw(FileStatus FilePath) ] ],
   [ is_file => [ qw(PS) ],
-    [ not => [ exists_path => 'PS' ] ],
+    [ not => [ [ exists_path => 'PS' ] ] ],
     [ act => [ 'PS' ],
         sub {
           my ($value) = @_;