1 "{ Package: 'stx:goodies/xmlsuite' }"

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 TestCase subclass:#AbstractDOM3TestCase

     6 	instanceVariableNames:'doc foo qux'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-Tests'

    10 !

    11 

    12 

    13 !AbstractDOM3TestCase class methodsFor:'accessing'!

    14 

    15 document:aSymbol

    16 

    17     ^Parser forDOM3 processDocumentString:(self perform:aSymbol)

    18 

    19     "Created: / 05-08-2005 / 14:18:27 / janfrog"

    20 ! !

    21 

    22 !AbstractDOM3TestCase class methodsFor:'accessing - documents'!

    23 

    24 testDocument

    25     ^

    26 '<?xml version="1.0" ?>

    27 <!!-- This is test document -->

    28 <?xml-stylesheet href="style.css" ?>

    29 <foo 

    30     xmlns="http://www.fractal.cz/ns/xmlsuite/test"

    31     qux="quux">

    32   <bar:baz 

    33     xmlns:bar="http://www.fractal.cz/ns/xmlsuite/test/bar">

    34     quuux

    35   </bar:baz>

    36 </foo>'

    37 

    38     "Created: / 05-08-2005 / 14:16:37 / janfrog"

    39 ! !

    40 

    41 !AbstractDOM3TestCase class methodsFor:'testing'!

    42 

    43 isAbstract

    44 

    45     ^self == AbstractDOM3TestCase

    46 

    47     "Created: / 05-08-2005 / 14:10:42 / janfrog"

    48 ! !

    49 

    50 !AbstractDOM3TestCase class methodsFor:'documentation'!

    51 

    52 version

    53     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__AbstractDOM3TestCase.st,v 1.1.1.1 2005-11-01 22:05:41 vranyj1 Exp $'

    54 ! !