[Pharo-dev] fun with Pharo: literal collections are coming to you :)

[stephane ducasse]

In a Phep005 soon available

testLiteralSet

        | compiler |
        compiler := OpalCompiler new.
        compiler compilationContext parserClass: RBParserLiteralCollection. 
        self assert: (compiler evaluate: 
                '{ :Set 1 . 2 . 1}' )
                
                equals: #(1 2) asSet.
        


testOrderedCollection

        | compiler |
        compiler := OpalCompiler new.
        compiler compilationContext parserClass: RBParserLiteralCollection. 
        self assert: (compiler evaluate: 
                '{ :OrderedCollection 1 . 2 . 1 . 3}' )
                
                equals: #(1  2 1 3) asOrderedCollection.
        

testDictionary

        | compiler dict |
        compiler := OpalCompiler new.
        compiler compilationContext parserClass: RBParserLiteralCollection. 
        dict :=  (compiler evaluate: 
                '{ :Dictionary #a -> 33 . #b -> 44}' ).
        self assert: (dict at: #a)  equals: 33