Attempt to fix plan tree tests.

shop-planner · Oct 26, 2023 · 52c2852 · 52c2852
1 parent 065ad01
commit 52c2852
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/shop3/shop3.asd b/shop3/shop3.asd
@@ -264,7 +264,7 @@ shop3."
                  (search-tests . :search-tests) ; 9
                  (plan-num-limit-tests . :plan-num-limit-tests) ; 25
                  )
-    :num-checks 1086
+    :num-checks 1071 ; 1086
     :depends-on ((:version "shop3" (:read-file-form "shop-version.lisp-expr"))
                  "shop3/openstacks"
                  "shop3/pddl-helpers"

diff --git a/shop3/tests/plan-tree-tests.lisp b/shop3/tests/plan-tree-tests.lisp
@@ -1213,14 +1213,12 @@
 
 
 (test plan-tree                         ; 27 checks
-  (multiple-value-bind (plans ignore trees)
-      (find-plans 'log-ran-15-1 :plan-tree t :verbose 0)
+  (let ((trees
+          (nth-value 2 (find-plans 'log-ran-15-1 :plan-tree t :verbose 0))))
     ;; a good test would involve grabbing the *subtask-parents* and the
     ;; *operator-tasks* tables. Need to think about how to get those
     ;; saved. [2023/05/26:rpg]
-    (declare (ignore ignore))
-    (let* ((tree (canonically-order (first trees)))
-           (root (first tree)))
+    (let ((tree (canonically-order (first trees))))
       (is-true (every #'complex-node-p tree))
       ;; expected-plan-tree is really a forest,
       ;; as is TREE.