KeyMangler example app

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

diff --git a/t/findall.t b/t/findall.t
index 47fee23..deb95d7 100644 (file)
--- a/t/findall.t
+++ b/t/findall.t
@@ -35,10 +35,10 @@ $solver->add_rule(has_shell => [ 'Srv', 'Shell' ],
 );
 
 my @r = $solver->query(
-  [ findall => X => S =>
+  [ findall => X => S => [
     [ member_of => 'S', \'server' ],
     [ has_shell => 'S', \'bash' ],
-  ]
+  ] ]
 )->results;
 
 is_deeply(