Fix tests for CCL.

rpgoldman · Nov 16, 2023 · af84902 · af84902
1 parent c4dea5d
commit af84902
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/hddl-utils/tests/hddl-data.lisp b/hddl-utils/tests/hddl-data.lisp
@@ -57,7 +57,10 @@
   (17 (GET-TO TRUCK-0 CITY-LOC-2)
    M-DRIVE-TO 6))))
 
-#|
+(cl:defparameter hddl-utils-tests::*expected-task*
+  '(drive truck-0 city-loc-2 city-loc-1))
+
+  #|
 (cl:defparameter pddl-utils-tests::*pddl-keywords*
   '(:adl :strips
     :typing

diff --git a/hddl-utils/tests/tests.lisp b/hddl-utils/tests/tests.lisp
@@ -235,7 +235,7 @@
 
 (test check-comma-separated-task
   (let ((string "drive truck-0, city-loc-2, city-loc-1"))
-    (is (equalp HDDL::'(drive truck-0 city-loc-2 city-loc-1)
+    (is (equalp *expected-task*
                 (hddl-pprinter::comma-separated-task->sexp string)))))
 
 (test check-reading-plan-comma-separated