use Test::More;
use DX::Solver;
use DX::SetOver;
+use Test::Exception;
{
package My::PathStatus;
) },
);
-my @rules = (
+$solver->add_rule(@$_) for (
[ path_status => [ qw(PS) ],
[ member_of => 'PS', [ value => 'path_status' ] ] ],
[ path => [ qw(PS P) ],
sub { $_[0]->info and $_[0]->info->is_file } ] ],
);
-$solver->add_rule(@$_) for @rules;
-
%path_status = %protos;
sub paths_for {
- join ' ', map $_->{PS}{path}, $solver->query(
- [ qw(PS) ], [ path_status => 'PS'], @_
+ join ' ', map $_->{PS}->path, $solver->query(
+ [ qw(PS) ], [ path_status => 'PS' ], @_
)->results;
}
is(paths_for([ is_file => 'PS' ]), '.ssh/authorized_keys');
is(paths_for([ mode => 'PS', [ value => '0755' ] ]), '.ssh');
+
+$solver->add_rule(
+ path_status_at => [ 'PS', 'P' ],
+ [ path_status => 'PS' ],
+ [ path => qw(PS P) ],
+);
+$solver->add_rule(
+ path_status_at => [ 'PS', 'P' ],
+ [ constrain => [] => sub { die "ARGH" } ]
+);
+
+throws_ok {
+ $solver->query(
+ [ qw(PS) ],
+ [ path_status_at => 'PS', [ value => '.ssh' ] ]
+ )->results
+} qr/ARGH/;
+
+delete $solver->rule_set->rules->{'path_status_at/2'};
+
+$solver->add_rule(
+ path_status_at => [ 'PS', 'P' ],
+ [ path_status => 'PS' ],
+ [ path => qw(PS P) ],
+ [ 'cut' ],
+);
+$solver->add_rule(
+ path_status_at => [ 'PS', 'P' ],
+ [ constrain => [] => sub { die "ARGH" } ]
+);
+
+my @res;
+
+lives_ok {
+ @res = $solver->query(
+ [ qw(PS) ],
+ [ path_status_at => 'PS', [ value => '.ssh' ] ]
+ )->results
+};
+
+is(join(' ', map $_->{PS}->path, @res), '.ssh');
+
+#::Dwarn($solver->query([ qw(PS) ], [ path_status_at => 'PS', [ value => '.ssh' ] ])->results);
+
+done_testing;