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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 TestResource subclass:#W3XMLTestSuiteResource

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-Tests W3C'

    10 !

    11 

    12 

    13 !W3XMLTestSuiteResource class methodsFor:'acessing'!

    14 

    15 fileNamed:aString

    16 

    17     self current ifNil:

    18         [self error:'Resource is not initialized'].

    19 

    20     ^self current fileNamed:aString

    21 

    22     "Created: / 25-10-2005 / 15:58:17 / janfrog"

    23 ! !

    24 

    25 !W3XMLTestSuiteResource methodsFor:'accessing'!

    26 

    27 fileNamed:aString

    28 

    29     ^(self filesDirectory construct:aString)

    30 

    31     "Created: / 25-10-2005 / 15:57:36 / janfrog"

    32 !

    33 

    34 filesDirectory

    35 

    36     ^((Smalltalk getPackageDirectoryForPackage:self class package)   

    37         construct: '/resources/tests/xmltestsuite') asFilename

    38 

    39     "Created: / 25-10-2005 / 12:52:23 / janfrog"

    40     "Modified: / 25-10-2005 / 13:56:41 / janfrog"

    41 ! !

    42 

    43 !W3XMLTestSuiteResource methodsFor:'testing'!

    44 

    45 isAvailable

    46 

    47     ^self filesDirectory exists

    48 

    49     "Created: / 25-10-2005 / 12:39:01 / janfrog"

    50 ! !

    51 

    52 !W3XMLTestSuiteResource class methodsFor:'documentation'!

    53 

    54 version

    55     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__W3XMLTestSuiteResource.st,v 1.1.1.1 2005-11-01 22:07:10 vranyj1 Exp $'

    56 ! !