factor out set/stream code

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

diff --git a/t/basic_rule.t b/t/basic_rule.t
index c6d6795..173b47b 100644 (file)
--- a/t/basic_rule.t
+++ b/t/basic_rule.t
@@ -1,6 +1,7 @@
 use strictures 1;
 use Test::More;
 use DX::Solver;
+use DX::SetOver;
 
 my @servers = qw(
   kitty.scsys.co.uk
@@ -30,7 +31,14 @@ my %shells = (
 );
 
 my $solver = DX::Solver->new(
-  facts => { servers => \%servers, shells => \%shells }
+  facts => {
+    servers => DX::SetOver->new(
+      over => sub { $_[0]->{name} }, values => \%servers,
+    ),
+    shells => DX::SetOver->new(
+      over => sub { $_[0]->{name} }, values => \%shells,
+    ),
+  }
 );
 
 $solver->add_rule(