OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

am dom rumgeschraubt und sax-defaults geaendert

Browse Source 
vielleicht teilweise verkehrt
This commit is contained in:
dlichteblau
2005-12-04 20:35:13 +00:00
parent f485e89c10
commit 9c92b2ba37
5 changed files with 124 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

173
DOMTEST
View File

@ -557,14 +557,12 @@ TEST FAILED: There is no applicable method for the generic function
when called with arguments when called with arguments
(NIL). (NIL).
525/808 attrgetownerelement02.xml 525/808 attrgetownerelement02.xml
TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE L1:att="" {53109709}>.
526/808 attrgetownerelement03.xml 526/808 attrgetownerelement03.xml
TEST FAILED: Argument Y is not a NUMBER: #\x
527/808 attrgetownerelement04.xml 527/808 attrgetownerelement04.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {539F31B1}> NIL T). (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL T).
528/808 attrgetownerelement05.xml 528/808 attrgetownerelement05.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)> #<STANDARD-GENERIC-FUNCTION DOM:OWNER-ELEMENT (1)>
@ -586,37 +584,37 @@ TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrName|
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {531CC0C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
536/808 createDocument02.xml 536/808 createDocument02.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {538DA9C1}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
537/808 createDocument03.xml 537/808 createDocument03.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53A4E701}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
538/808 createDocument04.xml 538/808 createDocument04.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53BFF001}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
539/808 createDocument05.xml 539/808 createDocument05.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53DC8AE1}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
540/808 createDocument06.xml 540/808 createDocument06.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53EF8E99}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
541/808 createDocument07.xml 541/808 createDocument07.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {540325C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
542/808 createDocument08.xml 542/808 createDocument08.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)> #<STANDARD-GENERIC-FUNCTION DOM:IMPLEMENTATION (1)>
@ -652,7 +650,6 @@ TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|nodeName|
#(116 101 115 116) #(116 101 115 116)
'DOMTEST::%EQUAL) failed. 'DOMTEST::%EQUAL) failed.
553/808 documentcreateattributeNS02.xml 553/808 documentcreateattributeNS02.xml
TEST FAILED: Argument Y is not a NUMBER: #\x
554/808 documentcreateattributeNS03.xml 554/808 documentcreateattributeNS03.xml
555/808 documentcreateattributeNS04.xml 555/808 documentcreateattributeNS04.xml
TEST FAILED: The variable CXML::*CTX* is unbound. TEST FAILED: The variable CXML::*CTX* is unbound.
@ -661,13 +658,13 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53B785C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
557/808 documentcreateattributeNS06.xml 557/808 documentcreateattributeNS06.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53CB6D11}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
558/808 documentcreateattributeNS07.xml 558/808 documentcreateattributeNS07.xml
TEST FAILED: expected exception NAMESPACE_ERR TEST FAILED: expected exception NAMESPACE_ERR
559/808 documentcreateelementNS01.xml 559/808 documentcreateelementNS01.xml
@ -683,13 +680,13 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {526F54C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
563/808 documentgetelementbyid01.xml 563/808 documentgetelementbyid01.xml
564/808 documentgetelementsbytagnameNS01.xml 564/808 documentgetelementsbytagnameNS01.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53794409}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
565/808 documentgetelementsbytagnameNS02.xml 565/808 documentgetelementsbytagnameNS02.xml
TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed. TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
566/808 documentgetelementsbytagnameNS03.xml 566/808 documentgetelementsbytagnameNS03.xml
@ -700,34 +697,34 @@ TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 6) failed.
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {541961B1}> NIL NIL). (#<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL NIL).
571/808 documentimportnode03.xml 571/808 documentimportnode03.xml
572/808 documentimportnode04.xml 572/808 documentimportnode04.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {52E83991}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
573/808 documentimportnode05.xml 573/808 documentimportnode05.xml
TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {538E9D39}>. TEST FAILED: The slot DOM-IMPL::NAMESPACE-URI is unbound in the object #<DOM-IMPL::ATTRIBUTE a_:b0="" {xxxxxxxx}>.
574/808 documentimportnode06.xml 574/808 documentimportnode06.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {53A36719}> (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
#<DOM-IMPL::DOCUMENT {53A36719}> NIL). #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL).
575/808 documentimportnode07.xml 575/808 documentimportnode07.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {53BB2BD9}> (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
#<DOM-IMPL::DOCUMENT-TYPE {53BB3509}> T). #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T).
576/808 documentimportnode08.xml 576/808 documentimportnode08.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {53CEEF99}> (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
#<DOM-IMPL::DOCUMENT-TYPE {53D06431}> T). #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> T).
577/808 documentimportnode09.xml 577/808 documentimportnode09.xml
578/808 documentimportnode10.xml 578/808 documentimportnode10.xml
579/808 documentimportnode11.xml 579/808 documentimportnode11.xml
@ -746,7 +743,7 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53DB25C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
587/808 documentimportnode20.xml 587/808 documentimportnode20.xml
implementationAttribute expandEntityReferences not supported, skipping test implementationAttribute expandEntityReferences not supported, skipping test
588/808 documentimportnode21.xml 588/808 documentimportnode21.xml
@ -756,7 +753,7 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {541F0FA9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
590/808 documenttypeinternalSubset01.xml 590/808 documenttypeinternalSubset01.xml
591/808 documenttypepublicid01.xml 591/808 documenttypepublicid01.xml
592/808 documenttypesystemid01.xml 592/808 documenttypesystemid01.xml
@ -764,22 +761,22 @@ TEST FAILED: When attempting to
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {5395B5E1}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
594/808 domimplementationcreatedocument04.xml 594/808 domimplementationcreatedocument04.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53ABC5F9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
595/808 domimplementationcreatedocument05.xml 595/808 domimplementationcreatedocument05.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53C2C3C1}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
596/808 domimplementationcreatedocument07.xml 596/808 domimplementationcreatedocument07.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {53D6DDA1}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
597/808 domimplementationcreatedocumenttype01.xml 597/808 domimplementationcreatedocumenttype01.xml
598/808 domimplementationcreatedocumenttype02.xml 598/808 domimplementationcreatedocumenttype02.xml
599/808 domimplementationcreatedocumenttype04.xml 599/808 domimplementationcreatedocumenttype04.xml
@ -813,7 +810,7 @@ TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
'DOMTEST::%EQUAL) failed. 'DOMTEST::%EQUAL) failed.
608/808 elementgetelementsbytagnamens02.xml 608/808 elementgetelementsbytagnamens02.xml
609/808 elementgetelementsbytagnamens04.xml 609/808 elementgetelementsbytagnamens04.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: The assertion (EQL (LENGTH DOMTEST::COLLECTION) 1) failed.
610/808 elementgetelementsbytagnamens05.xml 610/808 elementgetelementsbytagnamens05.xml
611/808 elementhasattribute01.xml 611/808 elementhasattribute01.xml
612/808 elementhasattribute02.xml 612/808 elementhasattribute02.xml
@ -829,9 +826,12 @@ TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::ELEMENT elem {54226FC9}> NIL). (#<DOM-IMPL::ELEMENT elem {xxxxxxxx}> NIL).
619/808 elementsetattributenodens01.xml 619/808 elementsetattributenodens01.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
when called with arguments
(NIL).
620/808 elementsetattributenodens02.xml 620/808 elementsetattributenodens02.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)> #<STANDARD-GENERIC-FUNCTION DOM:CLONE-NODE (1)>
@ -841,13 +841,16 @@ TEST FAILED: There is no applicable method for the generic function
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)> #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NODE-NS (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::ELEMENT address {53896FE9}> NIL). (#<DOM-IMPL::ELEMENT address {xxxxxxxx}> NIL).
622/808 elementsetattributenodens04.xml 622/808 elementsetattributenodens04.xml
623/808 elementsetattributenodens05.xml 623/808 elementsetattributenodens05.xml
624/808 elementsetattributenodens06.xml 624/808 elementsetattributenodens06.xml
implementationAttribute expandEntityReferences not supported, skipping test implementationAttribute expandEntityReferences not supported, skipping test
625/808 elementsetattributens01.xml 625/808 elementsetattributens01.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
when called with arguments
(NIL).
626/808 elementsetattributens02.xml 626/808 elementsetattributens02.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)> #<STANDARD-GENERIC-FUNCTION DOM:SET-ATTRIBUTE-NS (1)>
@ -864,11 +867,10 @@ TEST FAILED: There is no applicable method for the generic function
when called with arguments when called with arguments
(NIL). (NIL).
628/808 elementsetattributens04.xml 628/808 elementsetattributens04.xml
TEST FAILED: Argument Y is not a NUMBER: #\x
629/808 elementsetattributens05.xml 629/808 elementsetattributens05.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception NAMESPACE_ERR
630/808 elementsetattributens08.xml 630/808 elementsetattributens08.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception NAMESPACE_ERR
631/808 elementsetattributensurinull.xml 631/808 elementsetattributensurinull.xml
TEST FAILED: expected exception NAMESPACE_ERR TEST FAILED: expected exception NAMESPACE_ERR
632/808 getAttributeNS01.xml 632/808 getAttributeNS01.xml
@ -880,7 +882,7 @@ TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::ELEMENT emp:address {53CAE8C1}> NIL). (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
635/808 getAttributeNS04.xml 635/808 getAttributeNS04.xml
TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue| TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
#(78 101 119 86 97 108 117 101) #(78 101 119 86 97 108 117 101)
@ -969,14 +971,14 @@ not implemented
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {5196FF99}> (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
#<DOM-IMPL::DOCUMENT-TYPE {51999959}> NIL). #<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}> NIL).
693/808 importNode17.xml 693/808 importNode17.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)> #<STANDARD-GENERIC-FUNCTION DOM:IMPORT-NODE (8)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT {51B22F99}> (#<DOM-IMPL::DOCUMENT {xxxxxxxx}>
#<DOM-IMPL::DOCUMENT {51B68F99}> NIL). #<DOM-IMPL::DOCUMENT {xxxxxxxx}> NIL).
694/808 internalSubset01.xml 694/808 internalSubset01.xml
TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed. TEST FAILED: The assertion (NULL DOMTEST-TESTS::|internal|) failed.
695/808 isSupported01.xml 695/808 isSupported01.xml
@ -995,9 +997,6 @@ TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
706/808 isSupported14.xml 706/808 isSupported14.xml
TEST FAILED: The assertion DOMTEST-TESTS::|state| failed. TEST FAILED: The assertion DOMTEST-TESTS::|state| failed.
707/808 localName01.xml 707/808 localName01.xml
TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|localName|
#(100 111 109 101 115 116 105 99)
'DOMTEST::%EQUAL) failed.
708/808 localName02.xml 708/808 localName02.xml
709/808 localName03.xml 709/808 localName03.xml
710/808 localName04.xml 710/808 localName04.xml
@ -1024,12 +1023,11 @@ TEST FAILED: There is no applicable method for the generic function
when called with arguments when called with arguments
(NIL). (NIL).
717/808 namednodemapremovenameditemns01.xml 717/808 namednodemapremovenameditemns01.xml
TEST FAILED: NOT_FOUND_ERR (8):
#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {521C36B9}>
718/808 namednodemapremovenameditemns02.xml 718/808 namednodemapremovenameditemns02.xml
TEST FAILED: NOT_FOUND_ERR (8): TEST FAILED: There is no applicable method for the generic function
#(100 101 102 97 117 108 116 65 116 116 #<STANDARD-GENERIC-FUNCTION DOM:NODE-VALUE (10)>
114) not found in #<ATTRIBUTE-NODE-MAP {52720F49}> when called with arguments
(NIL).
719/808 namednodemapremovenameditemns03.xml 719/808 namednodemapremovenameditemns03.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
@ -1037,7 +1035,7 @@ TEST FAILED: There is no applicable method for the generic function
(NIL). (NIL).
720/808 namednodemapremovenameditemns04.xml 720/808 namednodemapremovenameditemns04.xml
TEST FAILED: NOT_FOUND_ERR (8): TEST FAILED: NOT_FOUND_ERR (8):
#(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {52A22B59}> #(120 109 108 110 115) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
721/808 namednodemapremovenameditemns05.xml 721/808 namednodemapremovenameditemns05.xml
722/808 namednodemapremovenameditemns06.xml 722/808 namednodemapremovenameditemns06.xml
723/808 namednodemapremovenameditemns07.xml 723/808 namednodemapremovenameditemns07.xml
@ -1045,10 +1043,8 @@ TEST FAILED: NOT_FOUND_ERR (8):
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::ELEMENT emp:address {51B0FEC1}> NIL). (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
725/808 namednodemapremovenameditemns09.xml 725/808 namednodemapremovenameditemns09.xml
TEST FAILED: NOT_FOUND_ERR (8):
#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {51E00841}>
726/808 namednodemapsetnameditemns01.xml 726/808 namednodemapsetnameditemns01.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)> #<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
@ -1060,13 +1056,15 @@ TEST FAILED: There is no applicable method for the generic function
when called with arguments when called with arguments
(NIL). (NIL).
728/808 namednodemapsetnameditemns03.xml 728/808 namednodemapsetnameditemns03.xml
TEST FAILED: NOT_FOUND_ERR (8): TEST FAILED: There is no applicable method for the generic function
#(115 116 114 101 101 116) not found in #<ATTRIBUTE-NODE-MAP {52779EC1}> #<STANDARD-GENERIC-FUNCTION DOM:NAMESPACE-URI (2)>
when called with arguments
(NIL).
729/808 namednodemapsetnameditemns04.xml 729/808 namednodemapsetnameditemns04.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to NIL (SETF of SLOT-VALUE), the slot set the slot's value to NIL (SETF of SLOT-VALUE), the slot
DOM-IMPL::NAMESPACE-URI is missing from the object DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {52958B99}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
730/808 namednodemapsetnameditemns05.xml 730/808 namednodemapsetnameditemns05.xml
731/808 namednodemapsetnameditemns06.xml 731/808 namednodemapsetnameditemns06.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
@ -1107,21 +1105,21 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {51C7BA61}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
745/808 nodegetprefix03.xml 745/808 nodegetprefix03.xml
746/808 nodehasattributes01.xml 746/808 nodehasattributes01.xml
747/808 nodehasattributes02.xml 747/808 nodehasattributes02.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)> #<STANDARD-GENERIC-FUNCTION DOM:HAS-ATTRIBUTES (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::DOCUMENT-TYPE {522E1CB1}>). (#<DOM-IMPL::DOCUMENT-TYPE {xxxxxxxx}>).
748/808 nodehasattributes03.xml 748/808 nodehasattributes03.xml
749/808 nodehasattributes04.xml 749/808 nodehasattributes04.xml
TEST FAILED: When attempting to TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {5291D5C9}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
750/808 nodeissupported01.xml 750/808 nodeissupported01.xml
TEST FAILED: The assertion DOMTEST-TESTS::|success| failed. TEST FAILED: The assertion DOMTEST-TESTS::|success| failed.
751/808 nodeissupported02.xml 751/808 nodeissupported02.xml
@ -1134,62 +1132,68 @@ TEST FAILED: When attempting to
set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111 set the slot's value to #(104 116 116 112 58 47 47 119 119 119 46 119 51 46 111
114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE), 114 103 47 68 79 77 47 84 101 115 116) (SETF of SLOT-VALUE),
the slot DOM-IMPL::NAMESPACE-URI is missing from the object the slot DOM-IMPL::NAMESPACE-URI is missing from the object
#<DOM-IMPL::DOCUMENT {527AB001}>. #<DOM-IMPL::DOCUMENT {xxxxxxxx}>.
756/808 nodesetprefix01.xml 756/808 nodesetprefix01.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|elementTagName|
#(100 109 115 116 99 58 97 100 100
114 101 115 115)
'DOMTEST::%EQUAL) failed.
757/808 nodesetprefix02.xml 757/808 nodesetprefix02.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:NODE-NAME (12)>
when called with arguments
(NIL).
758/808 nodesetprefix03.xml 758/808 nodesetprefix03.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
759/808 nodesetprefix04.xml 759/808 nodesetprefix04.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION (SETF DOM:PREFIX) (1)>
when called with arguments
(#(116 101 115 116) NIL).
760/808 nodesetprefix05.xml 760/808 nodesetprefix05.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception NAMESPACE_ERR
761/808 nodesetprefix06.xml 761/808 nodesetprefix06.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception NAMESPACE_ERR
762/808 nodesetprefix07.xml 762/808 nodesetprefix07.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception NAMESPACE_ERR
763/808 nodesetprefix08.xml 763/808 nodesetprefix08.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
764/808 nodesetprefix09.xml 764/808 nodesetprefix09.xml
TEST FAILED: Argument Y is not a NUMBER: #\x TEST FAILED: expected exception INVALID_CHARACTER_ERR
765/808 normalize01.xml 765/808 normalize01.xml
766/808 ownerDocument01.xml 766/808 ownerDocument01.xml
767/808 ownerElement01.xml 767/808 ownerElement01.xml
768/808 ownerElement02.xml 768/808 ownerElement02.xml
TEST FAILED: The slot DOM-IMPL::OWNER-ELEMENT is unbound in the object #<DOM-IMPL::ATTRIBUTE newAttribute="" {52D293F9}>.
769/808 prefix01.xml 769/808 prefix01.xml
770/808 prefix02.xml 770/808 prefix02.xml
771/808 prefix03.xml 771/808 prefix03.xml
772/808 prefix04.xml 772/808 prefix04.xml
773/808 prefix05.xml 773/808 prefix05.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
774/808 prefix06.xml 774/808 prefix06.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception INVALID_CHARACTER_ERR
775/808 prefix07.xml 775/808 prefix07.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
776/808 prefix08.xml 776/808 prefix08.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
777/808 prefix09.xml 777/808 prefix09.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
778/808 prefix10.xml 778/808 prefix10.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
779/808 prefix11.xml 779/808 prefix11.xml
TEST FAILED: The function (SETF DOM:PREFIX) is undefined. TEST FAILED: expected exception NAMESPACE_ERR
780/808 publicId01.xml 780/808 publicId01.xml
781/808 removeAttributeNS01.xml 781/808 removeAttributeNS01.xml
782/808 removeAttributeNS02.xml 782/808 removeAttributeNS02.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)> #<STANDARD-GENERIC-FUNCTION DOM:REMOVE-ATTRIBUTE-NODE (1)>
when called with arguments when called with arguments
(#<DOM-IMPL::ELEMENT emp:address {520D35E1}> NIL). (#<DOM-IMPL::ELEMENT emp:address {xxxxxxxx}> NIL).
783/808 removeNamedItemNS01.xml 783/808 removeNamedItemNS01.xml
TEST FAILED: NOT_FOUND_ERR (8):
#(100 111 109 101 115 116 105 99) not found in #<ATTRIBUTE-NODE-MAP {522F4FF1}>
784/808 removeNamedItemNS02.xml 784/808 removeNamedItemNS02.xml
785/808 removeNamedItemNS03.xml 785/808 removeNamedItemNS03.xml
TEST FAILED: NOT_FOUND_ERR (8): TEST FAILED: NOT_FOUND_ERR (8):
#(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {529C3E21}> #(78 73 76) not found in #<ATTRIBUTE-NODE-MAP {xxxxxxxx}>
786/808 setAttributeNS01.xml 786/808 setAttributeNS01.xml
TEST FAILED: expected exception INVALID_CHARACTER_ERR TEST FAILED: expected exception INVALID_CHARACTER_ERR
787/808 setAttributeNS02.xml 787/808 setAttributeNS02.xml
@ -1218,7 +1222,6 @@ TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|resultAttr|
implementationAttribute expandEntityReferences not supported, skipping test implementationAttribute expandEntityReferences not supported, skipping test
797/808 setAttributeNodeNS03.xml 797/808 setAttributeNodeNS03.xml
798/808 setAttributeNodeNS04.xml 798/808 setAttributeNodeNS04.xml
TEST FAILED: Argument Y is not a NUMBER: #\x
799/808 setAttributeNodeNS05.xml 799/808 setAttributeNodeNS05.xml
800/808 setNamedItemNS01.xml 800/808 setNamedItemNS01.xml
TEST FAILED: There is no applicable method for the generic function TEST FAILED: There is no applicable method for the generic function
@ -1242,4 +1245,4 @@ TEST FAILED: There is no applicable method for the generic function
when called with arguments when called with arguments
(NIL). (NIL).
805/808 systemId01.xml 805/808 systemId01.xml
153/763 tests failed; 45 tests were skipped 143/763 tests failed; 45 tests were skipped

8
dom/dom-builder.lisp
View File

@ -22,6 +22,10 @@
(vector-push-extend new-element vector (max 1 (array-dimension vector 0)))) (vector-push-extend new-element vector (max 1 (array-dimension vector 0))))
(defmethod sax:start-document ((handler dom-builder)) (defmethod sax:start-document ((handler dom-builder))
(when (and sax:*namespace-processing*
(not (and sax:*include-xmlns-attributes*
sax:*use-xmlns-namespace*)))
(error "SAX configuration is incompatible with DOM: *namespace-processing* is activated, but *include-xmlns-attributes* or *use-xmlns-namespace* are not"))
(let ((document (make-instance 'dom-impl::document))) (let ((document (make-instance 'dom-impl::document)))
(setf (slot-value document 'dom-impl::owner) nil (setf (slot-value document 'dom-impl::owner) nil
(slot-value document 'dom-impl::doc-type) nil) (slot-value document 'dom-impl::doc-type) nil)
@ -86,7 +90,9 @@
(anodes '())) (anodes '()))
(dolist (attr attributes) (dolist (attr attributes)
(let ((anode (let ((anode
(dom:create-attribute document (sax:attribute-qname attr))) (dom:create-attribute-ns document
(sax:attribute-namespace-uri attr)
(sax:attribute-qname attr)))
(text (text
(dom:create-text-node document (sax:attribute-value attr)))) (dom:create-text-node document (sax:attribute-value attr))))
(setf (slot-value anode 'dom-impl::specified-p) (setf (slot-value anode 'dom-impl::specified-p)

28
dom/dom-impl.lisp
View File

@ -39,7 +39,7 @@
(defmethod dom:namespace-uri ((node node)) nil) (defmethod dom:namespace-uri ((node node)) nil)
(defclass namespace-mixin () (defclass namespace-mixin ()
((prefix :initarg :prefix :reader dom:prefix) ((prefix :initarg :prefix :accessor dom:prefix)
(local-name :initarg :local-name :reader dom:local-name) (local-name :initarg :local-name :reader dom:local-name)
(namespace-uri :initarg :namespace-uri :reader dom:namespace-uri))) (namespace-uri :initarg :namespace-uri :reader dom:namespace-uri)))
@ -267,11 +267,11 @@
(cxml:well-formedness-violation (c) (cxml:well-formedness-violation (c)
(dom-error :NAMESPACE_ERR "~A" c))) (dom-error :NAMESPACE_ERR "~A" c)))
(when prefix (when prefix
(when (and (rod= prefix "xml") (when (and (rod= prefix #"xml")
(not (rod= uri "http://www.w3.org/XML/1998/namespace"))) (not (rod= uri #"http://www.w3.org/XML/1998/namespace")))
(dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'")) (dom-error :NAMESPACE_ERR "invalid uri for prefix `xml'"))
(when (and (rod= prefix "xmlns") (when (and (rod= prefix #"xmlns")
(not (rod= uri "http://www.w3.org/2000/xmlns/"))) (not (rod= uri #"http://www.w3.org/2000/xmlns/")))
(dom-error :NAMESPACE_ERR "invalid uri for prefix `xmlns'"))) (dom-error :NAMESPACE_ERR "invalid uri for prefix `xmlns'")))
(values prefix local-name))) (values prefix local-name)))
@ -335,6 +335,7 @@
:prefix nil :prefix nil
:namespace-uri nil :namespace-uri nil
:specified-p t :specified-p t
:owner-element nil
:owner document)) :owner document))
(defmethod dom:create-attribute-ns ((document document) uri qname) (defmethod dom:create-attribute-ns ((document document) uri qname)
@ -348,6 +349,7 @@
:local-name local-name :local-name local-name
:prefix prefix :prefix prefix
:specified-p t :specified-p t
:owner-element nil
:owner document))) :owner document)))
(defmethod dom:create-entity-reference ((document document) name) (defmethod dom:create-entity-reference ((document document) name)
@ -361,7 +363,7 @@
(defmethod get-elements-by-tag-name-internal (node tag-name) (defmethod get-elements-by-tag-name-internal (node tag-name)
(setf tag-name (rod tag-name)) (setf tag-name (rod tag-name))
(let ((result (make-node-list)) (let ((result (make-node-list))
(wild-p (rod= tag-name '#.(string-rod "*")))) (wild-p (rod= tag-name #"*")))
(labels ((walk (n) (labels ((walk (n)
(dovector (c (dom:child-nodes n)) (dovector (c (dom:child-nodes n))
(when (dom:element-p c) (when (dom:element-p c)
@ -375,8 +377,8 @@
(setf uri (rod uri)) (setf uri (rod uri))
(setf lname (rod lname)) (setf lname (rod lname))
(let ((result (make-node-list)) (let ((result (make-node-list))
(wild-uri-p (rod= uri '#.(string-rod "*"))) (wild-uri-p (rod= uri #"*"))
(wild-lname-p (rod= lname '#.(string-rod "*")))) (wild-lname-p (rod= lname #"*")))
(labels ((walk (n) (labels ((walk (n)
(dovector (c (dom:child-nodes n)) (dovector (c (dom:child-nodes n))
(when (dom:element-p c) (when (dom:element-p c)
@ -1030,6 +1032,12 @@
(defmethod dom:remove-named-item :after ((self attribute-node-map) name) (defmethod dom:remove-named-item :after ((self attribute-node-map) name)
(maybe-add-default-attribute (slot-value self 'element) name)) (maybe-add-default-attribute (slot-value self 'element) name))
(defmethod dom:remove-named-item-ns
((self attribute-node-map) uri lname)
(let ((k (call-next-method)))
(maybe-add-default-attribute (slot-value self 'element) (dom:node-name k))
k))
(defmethod dom:get-elements-by-tag-name ((element element) name) (defmethod dom:get-elements-by-tag-name ((element element) name)
(assert-writeable element) (assert-writeable element)
(get-elements-by-tag-name-internal element name)) (get-elements-by-tag-name-internal element name))
@ -1042,6 +1050,10 @@
(setf (slot-value arg 'owner-element) (setf (slot-value arg 'owner-element)
(slot-value self 'element))) (slot-value self 'element)))
(defmethod dom:set-named-item-ns :after ((self attribute-node-map) arg)
(setf (slot-value arg 'owner-element)
(slot-value self 'element)))
(defmethod dom:normalize ((node node)) (defmethod dom:normalize ((node node))
(assert-writeable node) (assert-writeable node)
(labels ((walk (n) (labels ((walk (n)

10
test/domtest.lisp
View File

@ -689,9 +689,13 @@
(format t "~&~D/~D tests failed; ~D test~:P were skipped" (format t "~&~D/~D tests failed; ~D test~:P were skipped"
nfailed ntried (- n ntried)))) nfailed ntried (- n ntried))))
(defun run-test (*directory* href) (defun run-test (*directory* level href)
(let* ((test-directory (merge-pathnames "tests/level1/core/" *directory*)) (let* ((test-directory
(lisp (slurp-test (merge-pathnames href test-directory))) (ecase level
(1 (merge-pathnames "tests/level1/core/" *directory*))
(2 (merge-pathnames "tests/level2/core/" *directory*))))
(lisp (slurp-test (merge-pathnames href test-directory)))
(*files-directory* (merge-pathnames "files/" test-directory))
(cxml::*validate* nil)) (cxml::*validate* nil))
(print lisp) (print lisp)
(when lisp (when lisp

4
xml/sax-handler.lisp
View File

@ -94,7 +94,7 @@ of the consequences of modifying this variable, and
related options.") related options.")
;; The http://xml.org/sax/features/namespace-prefixes property. ;; The http://xml.org/sax/features/namespace-prefixes property.
(defvar *include-xmlns-attributes* nil (defvar *include-xmlns-attributes* t
"If non-nil, namespace declarations are reported as normal "If non-nil, namespace declarations are reported as normal
attributes. attributes.
@ -104,7 +104,7 @@ non-nil.
See also `*use-xmlns-namespace*', and `start-element' for a detailed See also `*use-xmlns-namespace*', and `start-element' for a detailed
description of the consequences of setting this variable.") description of the consequences of setting this variable.")
(defvar *use-xmlns-namespace* nil (defvar *use-xmlns-namespace* t
"If this variable is nil (the default), attributes with a name like "If this variable is nil (the default), attributes with a name like
'xmlns:x' are not considered to be in a namespace, following the 'xmlns:x' are not considered to be in a namespace, following the
'Namespaces in XML' specification. 'Namespaces in XML' specification.