anchor.diff:  
   (test data-lxml-test
     (is-true (input-stream-p +sis+))
  -  (is (equal
  -       +lxml+ 
  -       '((:|r| :|ns| "http://maven.apache.org/POM/4.0.0")
  -	 ((:|a| :|atr1| "a" :|atr2| "b") "text")
  -	 :|b|
  -	 (:|c| "example" :|f|)
  -	 (:|d|
  -	  ((:|b| :|atr| "b") "text-b")
  -	  ((:|c| :|atr| "c") "text-c"
  -	   :|e|)
  -	  :|d|))))
  +  (is-equal +lxml+ 
  +            '((:|r| :|ns| "http://maven.apache.org/POM/4.0.0")
  +              ((:|a| :|atr1| "a" :|atr2| "b") "text")
  +              :|b|
  +              (:|c| "example" :|f|)
  +              (:|d|
  +               ((:|b| :|atr| "b") "text-b")
  +               ((:|c| :|atr| "c") "text-c"
  +                :|e|)
  +               :|d|)))
     (print +lxml+))
   
   
   (test find-lxml-el-test
  -    (is (equal nil (find-lxml-el +lxml+ :|notexisting|)))
  -    (is (equal nil (find-lxml-el nil :|r|)))
  -
  -    (is (equal (find-lxml-el +lxml+ :|a|)
  -	       '(((:|a| :|atr1| "a" :|atr2| "b") "text"))))
  -    
  -    (is (equal (find-lxml-el +lxml+ :|b|)
  -	       '(((:|b| :|atr| "b") "text-b") :|b|)))
  -    
  -    (is (equal (find-lxml-el +lxml+ :|b| :max-nest 1)
  -	       '(:|b|)))
  -
  -    (is (equal (find-lxml-el +lxml+ :|b| :max-nest 0)
  -	       nil))
  -    
  -    (is (equal (find-lxml-el +lxml+ :|e|)
  -	       '(:|e|)))
  -    
  -    (is (equal (find-lxml-el +lxml+ :|atr|)
  -	       nil)))
  +    (is-equal nil (find-lxml-el +lxml+ :|notexisting|))
  +    (is-equal nil (find-lxml-el nil :|r|))
  +
  +    (is-equal (find-lxml-el +lxml+ :|a|)
  +              '(((:|a| :|atr1| "a" :|atr2| "b") "text")))
  +    
  +    (is-equal (find-lxml-el +lxml+ :|b|)
  +              '(((:|b| :|atr| "b") "text-b") :|b|))
  +    
  +    (is-equal (find-lxml-el +lxml+ :|b| :max-nest 1)
  +              '(:|b|))
  +
  +    (is-equal (find-lxml-el +lxml+ :|b| :max-nest 0)
  +              nil)
  +    
  +    (is-equal (find-lxml-el +lxml+ :|e|)
  +              '(:|e|))
  +    
  +    (is-equal (find-lxml-el +lxml+ :|atr|)
  +              nil))
   
   
   (test find-lxml-el-children
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ :|a|)
  -	     nil))
  -    
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ :|b|)
  -	     nil))
  -
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ :|c|)
  -	     '(:|e| :|f|) ))
  -
  -  (is (equal (mvn-pd::find-lxml-el-children '(:|b| (:|c| :|d|) :|e|) :|b|)
  -	     '((:|c| :|d|) :|e| )))
  -
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ nil)
  -	     nil))
  -
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ :|notExisting|)
  -	     nil))
  -
  -  (is (equal (mvn-pd::find-lxml-el-children +lxml+ :|c| :max-nest 1)
  -	     '(:|f|) )))
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ :|a|)
  +            nil)
  +    
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ :|b|)
  +            nil)
  +
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ :|c|)
  +            '(:|e| :|f|) )
  +
  +  (is-equal (mvn-pd::find-lxml-el-children '(:|b| (:|c| :|d|) :|e|) :|b|)
  +            '((:|c| :|d|) :|e| ))
  +
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ nil)
  +            nil)
  +
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ :|notExisting|)
  +            nil)
  +
  +  (is-equal (mvn-pd::find-lxml-el-children +lxml+ :|c| :max-nest 1)
  +            '(:|f|) ))
   
   
   (test find-nested-el-test
   
  -  (is (equal (find-nested-el nil '(:|b| :|c|))
  -	     nil))
  -
  -  (is (equal (find-nested-el +lxml+ nil)
  -	     nil))
  -
  -  (is (equal (find-nested-el '(:|b| (:|c| :|d|) :|e|) '(:|b| :|c|))
  -	     '((:|c| :|d|)) ))
  -
  -  (is (equal (find-nested-el +lxml+ '(:|d| :|c|))
  -	     '(((:|c| :|atr| "c") "text-c" :|e|)) ))
  +  (is-equal (find-nested-el nil '(:|b| :|c|))
  +            nil)
  +
  +  (is-equal (find-nested-el +lxml+ nil)
  +            nil)
  +
  +  (is-equal (find-nested-el '(:|b| (:|c| :|d|) :|e|) '(:|b| :|c|))
  +            '((:|c| :|d|)) )
  +
  +  (is-equal (find-nested-el +lxml+ '(:|d| :|c|))
  +            '(((:|c| :|atr| "c") "text-c" :|e|)) )
     
  -  (is (equal (find-nested-el +lxml+ '(:|r| :|d| :|c|))
  -	     '(((:|c| :|atr| "c") "text-c" :|e|)) ))
  +  (is-equal (find-nested-el +lxml+ '(:|r| :|d| :|c|))
  +            '(((:|c| :|atr| "c") "text-c" :|e|)) )
     
  -  (is (equal (find-nested-el +lxml+ '(:|r| :|c|))
  -	     '((:|c| "example" :|f|) ((:|c| :|atr| "c") "text-c" :|e|)) )))
  +  (is-equal (find-nested-el +lxml+ '(:|r| :|c|))
  +            '((:|c| "example" :|f|) ((:|c| :|atr| "c") "text-c" :|e|)) ))
   	
   
   (test find-lxml-el-integration-test
  
positive.code: ;; MVN-PD-TEST> (MVN-PD::VALUE '())
  
  (test children-elem-test
    (is (equal nil (mvn-pd::children-elem nil )))
    (is (equal nil (mvn-pd::children-elem :|a| )))
    (is (equal nil (mvn-pd::children-elem '((:|a| :|atr| "a") "text") )))
    (is (equal nil (mvn-pd::children-elem '(:|a| "text") )))
    (is (equal '(:|c|) (mvn-pd::children-elem '((:|a| :|atr| "a") "text" :|c|) )))
    (is (equal '(:|c|) (mvn-pd::children-elem '((:|b| :|atr| "a") :|c|) )))
    (is (equal '((:|c| :|d|) :|e|) (mvn-pd::children-elem '(:|b| (:|c| :|d|) :|e|) ))))
  
  
  ;; setup common data for lxml tests
  
negative.code: 
  (test keyword->str-test
    "keyword->str coerces keyword to string"
    (is-equal nil (mvn-pd::keyword->str "test" ))
    (is-equal "test" (mvn-pd::keyword->str :|test| ))
    (is-equal "Test" (mvn-pd::keyword->str :|Test| ))
    (is-equal "TEST" (mvn-pd::keyword->str :test ))
    (is-equal "TEST" (mvn-pd::keyword->str :Test ))
    (is-equal "TEST" (mvn-pd::keyword->str ':|TEST| )))
  
  (test children-elem?-test
    (is-false (mvn-pd::children-elem? nil ))
  