Cool!
Noury
On Sep 18 2023, at 5:20 pm, stephane ducasse <stephane.duca...@inria.fr> wrote:
> 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
>
