anchor.diff:              "examplePom")
   
     (is-equal (mvn-pd::dependencies *module-lxml*)
  -            '((:|dependency|
  -               (:|groupId| "junit")
  +            '(((:|groupId| "junit")
                  (:|artifactId| "junit")
                  (:|version| "4.8")
                  (:|scope| "test"))
  -              (:|dependency|
  -               (:|groupId| "mockito")
  +              ((:|groupId| "mockito")
                  (:|artifactId| "mockito")
                  (:|version| "1.9.2")
                  (:|scope| "test"))) )
   
     (is-equal (mvn-pd::module-dependency-list *module-lxml*)
               '("examplePom"
  -              (:|dependency|
  -               (:|groupId| "junit")
  +              ((:|groupId| "junit")
                  (:|artifactId| "junit")
                  (:|version| "4.8")
                  (:|scope| "test"))
  -              (:|dependency|
  -               (:|groupId| "mockito")
  +              ((:|groupId| "mockito")
                  (:|artifactId| "mockito")
                  (:|version| "1.9.2")
  -               (:|scope| "test"))) )
  +               (:|scope| "test"))))
   
     (is-equal (mvn-pd::modules *parent-lxml*)
               '("ModuleA" "ModuleB" "ModuleC"))
  
positive.code:   (is-equal (mvn-pd::project-module-list *parent-lxml*)
              '("parent-artifact" "ModuleA" "ModuleB" "ModuleC"))
  	     
    (is-equal (mvn-pd::project-module-dependencies *parent-lxml*)
              '(("parent-artifact")
                ("../ModuleA" . (((:|groupId| "junit")
                                  (:|artifactId| "junit")
                                  (:|version| "4.8")
                                  (:|scope| "test"))
                                 ((:|groupId| "com.example")
                                  (:|artifactId| "ModuleB")
                                  (:|version| "1.0"))))
                ("../ModuleB" . (((:|groupId| "com.example")
                                  (:|artifactId| "ModuleC")
                                  (:|version| "1.0"))))
                ("../ModuleC" . '() )))
  
  
  )
  
negative.code:      </project>"
      )))
  
  ;; TODO lxml modules:  ModuleA ModuleB ModuleC
  
  (defparameter *module-lxml*
    (s-xml:parse-xml
     (make-string-input-stream
  