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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 TestResource subclass:#JamesClarkCanonicalXMLWriterTestResource

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-Tests'

    10 !

    11 

    12 

    13 !JamesClarkCanonicalXMLWriterTestResource methodsFor:'accessing'!

    14 

    15 canonicalFilesDirectory

    16 

    17     ^self testFilesDirectory construct:'canonical'

    18 

    19     "Created: / 20-05-2006 / 13:03:08 / janfrog"

    20 !

    21 

    22 testFiles

    23 

    24     ^self testFilesDirectory directoryContents 

    25         select:[:filename|filename matches:'*.xml']

    26 

    27     "Created: / 20-05-2006 / 13:05:58 / janfrog"

    28 !

    29 

    30 testFilesDirectory

    31 

    32     ^(Smalltalk packageDirectoryForPackageId:(self class package))

    33         construct:'resources/tests/canonical-form-test-suite'

    34 

    35     "Created: / 20-05-2006 / 13:01:47 / janfrog"

    36 ! !

    37 

    38 !JamesClarkCanonicalXMLWriterTestResource methodsFor:'testing'!

    39 

    40 isAvailable

    41 

    42     ^self testFilesDirectory exists

    43         and:[self canonicalFilesDirectory exists]

    44 

    45     "Created: / 20-05-2006 / 13:03:57 / janfrog"

    46 ! !

    47 

    48 !JamesClarkCanonicalXMLWriterTestResource class methodsFor:'documentation'!

    49 

    50 version

    51     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__JamesClarkCanonicalXMLWriterTestResource.st,v 1.1 2006-05-21 08:16:23 vranyj1 Exp $'

    52 ! !