From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 3 Apr 2016 19:49:15 +0000 (+0000)
Subject: this test is so ancient it would be better rewritten from scratch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7a19b9442e6dda1553b4347909f77fa6103abac0;p=scpubgit%2FDX.git

this test is so ancient it would be better rewritten from scratch
---

diff --git a/t/01basics.t b/t/01basics.t
deleted file mode 100644
index cb6958d..0000000
--- a/t/01basics.t
+++ /dev/null
@@ -1,49 +0,0 @@
-use strictures 2;
-use Test::More;
-use Module::Runtime qw(use_module);
-use DX::Utils qw(:builders deparse);
-
-my $ab = use_module('DX::ActionBuilder::UnsetValue')->new(
-  target_path => [ 0, 'X' ]
-);
-
-my $scope = use_module('DX::Scope')->new(
-  predicates => {
-    'eq' => use_module('DX::Predicate::Eq')->new,
-    member_at => use_module('DX::Predicate::MemberAt')->new,
-    is_dict => use_module('DX::Predicate::IsDict')->new,
-  },
-  globals => dict(),
-  locals => [
-    dict(
-      X => use_module('DX::Value::Unset')->new(
-             identity_path => [ 0, 'X' ],
-             action_builder => $ab,
-           ),
-    ),
-  ],
-);
-
-my $hyp = use_module('DX::Hypothesis')->new(
-  scope => $scope,
-  resolved_propositions => use_module('DX::ResolvedPropositionSet')->new_empty,
-  outstanding_propositions => [
-    proposition(is_dict => 'X'),
-    proposition(member_at => 'X', string('a'), string('b')),
-    #proposition(member_at => 'X', string('a'), string('c')),
-    proposition(eq => 'X', dict(a => string('b'), c => string('d'))),
-  ],
-  actions => [],
-  action_policy => use_module('DX::ActionPolicy::Allow')->new
-);
-
-my $ss = use_module('DX::SearchState')->new(
-  current_hypothesis => $hyp,
-  alternatives => [],
-);
-
-#::Dwarn($ss->with_one_step->with_one_step);
-warn deparse(my $f = $ss->with_one_step->with_one_step);
-warn deparse($f->with_one_step);
-
-#::Dwarn($f->current_hypothesis->resolved_propositions->dependency_map);