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

     2 

     3 MCTestCase subclass:#MCScannerTest

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Monticello-Tests'

     8 !

     9 

    10 

    11 !MCScannerTest methodsFor:'asserting'!

    12 

    13 assertScans: anArray

    14         self assert: (MCScanner scan: anArray storeString readStream) = anArray

    15 

    16     "Modified: / 11-09-2010 / 22:08:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    17 ! !

    18 

    19 !MCScannerTest methodsFor:'tests'!

    20 

    21 test1

    22 	self assertScans: #(a '23' (x))

    23 !

    24 

    25 test2

    26 	self assertScans: 'it''s alive'

    27 !

    28 

    29 test3

    30 	self assert: (MCScanner scan: '(a #b c)' readStream) = #(a #b c)

    31 !

    32 

    33 test4

    34 	self assertScans: #(a '23' (x () ')''q' y12)).

    35 !

    36 

    37 test5

    38 	self assertScans: #((a) b)

    39 !

    40 

    41 test6

    42 	self should: [MCScanner scan: '(a b' readStream] raise: Error

    43 ! !

    44 

    45 !MCScannerTest class methodsFor:'documentation'!

    46 

    47 version

    48     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScannerTest.st,v 1.1 2011-08-20 12:34:32 cg Exp $'

    49 !

    50 

    51 version_CVS

    52     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScannerTest.st,v 1.1 2011-08-20 12:34:32 cg Exp $'

    53 !

    54 

    55 version_SVN

    56     ^ '§Id: MCScannerTest.st 7 2010-09-12 07:18:55Z vranyj1 §'

    57 ! !