;; Normal Plan tests
(plan-path '(10th hemphill) '(ferst-1 atlantic))
(plan-path '(ferst-1 atlantic) '(ferst-2 ferst-3))
(plan-path '(10th atlantic) '(10th tech-parkway))
(plan-path '(10th tech-parkway) '(curran 6th-1))
(plan-path '(ferst-2 ferst-3) '(north-avenue cherry))
(plan-path '(north-avenue cherry) '(williams 3rd))

;; Should return plan in memory
(plan-path '(10th hemphill) '(ferst-1 atlantic))

;; Test partial match, can return memory or search
(plan-path '(10th hemphill) '(techwood 4th))

;; Should return concatenated plan NOT searched plan
(plan-path '(10th hemphill) '(williams 3rd))

;; Basic fail test with some small paths
(add-failure-point '(fowler-1 10th) '(10th atlantic))
(plan-path '(fowler-1 10th) '(10th atlantic))
(plan-path '(tech-parkway 10th) '(10th fowler-1))

;; Complex fail test, only one path will work
;; Needs to correct an existing path in memory
(add-failure-point '(3rd fowler-2) '(4th fowler-2))
(add-failure-point '(3rd brittany) '(4th brittany))
(add-failure-point '(3rd techwood) '(4th techwood))
(add-failure-point '(north-avenue williams) '(3rd williams))
(add-failure-point '(3rd fowler-2) '(cherry 3rd))
(add-failure-point '(ferst-2 ferst-1) '(ferst-2 6th-1))

(plan-path '(10th hemphill) '(williams 3rd))
(execute-plan ")
(plan-succeeded-p ")
(learn-from-failures ")
(plan-path '(10th hemphill) '(williams 3rd))

;; Total Failure test, no path is possible
(add-failure-point '(north-avenue techwood) '(3rd techwood))
(plan-loop '(10th hemphill) '(williams 3rd))