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

     2 

     3 "{ NameSpace: XMLv2 }"

     4 

     5 Object subclass:#DOMErrorMonitor

     6 	instanceVariableNames:'errors'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'XML Suite-Tests W3C'

    10 !

    11 

    12 

    13 !DOMErrorMonitor class methodsFor:'instance creation'!

    14 

    15 new

    16     ^ self basicNew initialize.

    17 

    18     "Created: / 15-11-2005 / 13:54:07 / janfrog"

    19 ! !

    20 

    21 !DOMErrorMonitor methodsFor:'DOM3 interface'!

    22 

    23 assertLowerSeverityFor: aTestCase message: aString severity: anInteger

    24 

    25     errors do:[:error|

    26         (error severity >= anInteger) ifFalse:[

    27             aTestCase 

    28                 assert:false

    29                 description:(aString , ' ' , error message)                

    30         ]

    31     ]

    32 

    33     "Created: / 15-11-2005 / 14:00:10 / janfrog"

    34 !

    35 

    36 errors

    37 

    38     ^errors

    39 

    40     "Created: / 15-11-2005 / 13:56:20 / janfrog"

    41 !

    42 

    43 handleError: aDOMError

    44 

    45     errors add: aDOMError.

    46 

    47     ^true

    48 

    49     "Created: / 15-11-2005 / 13:55:56 / janfrog"

    50 ! !

    51 

    52 !DOMErrorMonitor methodsFor:'initialization'!

    53 

    54 initialize

    55 

    56     errors := OrderedCollection new

    57 

    58     "Modified: / 15-11-2005 / 13:54:28 / janfrog"

    59 ! !

    60 

    61 !DOMErrorMonitor class methodsFor:'documentation'!

    62 

    63 version

    64     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__DOMErrorMonitor.st,v 1.2 2005-11-15 16:14:41 vranyj1 Exp $'

    65 ! !