#FEATURE by cg
class: MCRepositoryGroup
changed: #initializeRepositoriesFromUserSettings
"{ Package: 'stx:goodies/monticello' }"
MCTestCase subclass:#MCScannerTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Monticello-Tests'
!
!MCScannerTest methodsFor:'asserting'!
assertScans: anArray
self assert: (MCScanner scan: anArray storeString readStream) = anArray
"Modified: / 11-09-2010 / 22:08:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!MCScannerTest methodsFor:'tests'!
test1
self assertScans: #(a '23' (x))
!
test2
self assertScans: 'it''s alive'
!
test3
self assert: (MCScanner scan: '(a #b c)' readStream) = #(a #b c)
!
test4
self assertScans: #(a '23' (x () ')''q' y12)).
!
test5
self assertScans: #((a) b)
!
test6
self should: [MCScanner scan: '(a b' readStream] raise: Error
! !
!MCScannerTest class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/goodies/monticello/MCScannerTest.st,v 1.1 2011-08-20 12:34:32 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCScannerTest.st,v 1.1 2011-08-20 12:34:32 cg Exp $'
!
version_SVN
^ '§Id: MCScannerTest.st 7 2010-09-12 07:18:55Z vranyj1 §'
! !