Check this method.

[mabdi]

This method from zinc project:

testMultiValues
    | dictionary values keys |
    dictionary := ZnMultiValueDictionary new.
    dictionary at: 'foo' add: 1; at: 'foo' add: 2.
    self assert: (dictionary at: 'foo') = #(1 2).
    self assert: dictionary keys asArray = #('foo').
    values := OrderedCollection new.
    keys := OrderedCollection new.
    dictionary keysAndValuesDo: [ :key :value | keys add: key. values add: value ].
    self assert: values = (OrderedCollection with: 1 with: 2).
    self assert: keys = (OrderedCollection with: 'foo' with: 'foo')

is converted to it:

testMultiValues_amp_L20
    <madeBySmallAmp>
    | dictionary values keys |
    dictionary := ZnMultiValueDictionary new.
    dictionary := dictionary
        at: 'foo' add: 1;
        at: 'foo' add: 1.
    values := OrderedCollection new.
    keys := OrderedCollection new.
     dictionary
                keysAndValuesDo: [ :key :value | 
                    keys add: key.
                    values add: value ] 

Line 5 of Which does not look correct. Why the dictionary variable is set to the result of Dictionary>>#at:add: ?

[mabdi]

And:

testMergedFields
    | request form mergedFields |
    request := ZnRequest post: 'http://host.com/foo?x=1&y=2&x=3'.
    form := ZnApplicationFormUrlEncodedEntity new.
    form
        at: #z put: '100';
        at: #z add: '200';
        at: #y put: '0'.
    request entity: form.
    mergedFields := request mergedFields.
    self assert: mergedFields keys sorted equals: #(x y z).
    self assert: (mergedFields at: #x) sorted equals: #('1' '3').
    self assert: (mergedFields at: #y) sorted equals: #('0' '2').
    self assert: (mergedFields at: #z) sorted equals: #('100' '200')

I get:

request := ZnRequest post: 'http:/D/host.com/foo?x=1&y=2&x=3'.
    form := ZnApplicationFormUrlEncodedEntity new.
    form := form
        at: #z put: '100';
        at: #z add: '200';
        at: #y put: '0'.

[mabdi]

testFailValidateInterfaceTypeExtension
    | valid |
    schema := self parseSchema: '
                        schema { 
                            query: Query
                        }
                        type GQLFilm implements RelevantData { 
                            name: String
                        }
                        interface RelevantData{
                            name : String
                        }
                        extend interface OtherInterface{
                            id: String
                        }'.
    self should: [ schema validate ] raise: GQLValidationException.

    schema := self parseSchema: '
                        schema { 
                            query: Query
                        }
                        type GQLFilm implements RelevantData { 
                            name: String
                        }
                        interface RelevantData{
                            name : String
                        }
                        extend interface RelevantData{
                            name: String
                            id: String
                        }'.
    self should: [ schema validate ] raise: GQLValidationException.

    schema := self parseSchema: '
                        schema { 
                            query: GQLTestFilm
                        }
                        interface NamedEntity{
                            name: String
                        }
                        extend interface NamedEntity{
                            id: String
                        }
                        type GQLTestFilm implements NamedEntity{
                            name: String
                        }'.
    self should: [ schema validate ] raise: GQLValidationException.

    schema := self parseSchema: '
                        schema { 
                            query: GQLTestFilm
                        }
                        interface NamedEntity{
                            name: String
                        }
                        extend interface NamedEntity{
                            id: String
                        }
                        type GQLTestFilm{
                            filmName: String
                        }
                        extend type GQLTestFilm implements NamedEntity{
                            id: String
                        }'.
    valid := schema validate.
    self should: [ schema validate ] raise: GQLValidationException.

I get:

testFailValidateInterfaceTypeExtension_amp
    "I test correctness of: 

- `^ query` in method: `GQLSSchemaNode >> #query` when {#query->nil}

"

    <madeBySmallAmp>
    | valid |
    schema := self
        parseSchema:
            '
                        schema { 
                            query: Query
                        }
                        type GQLFilm implements RelevantData { 
                            name: String
                        }
                        interface RelevantData{
                            name : String
                        }
                        extend interface OtherInterface{
                            id: String
                        }';
        assert: schema query isNil;
        parseSchema:
            '
                        schema { 
                            query: Query
                        }
                        type GQLFilm implements RelevantData { 
                            name: String
                        }
                        interface RelevantData{
                            name : String
                        }
                        extend interface RelevantData{
                            name: String
                            id: String
                        }';
        parseSchema:
            '
                        schema { 
                            query: GQLTestFilm
                        }
                        interface NamedEntity{
                            name: String
                        }
                        extend interface NamedEntity{
                            id: String
                        }
                        type GQLTestFilm implements NamedEntity{
                            name: String
                        }'.
    valid := (self
        parseSchema:
            '
                        schema { 
                            query: GQLTestFilm
                        }
                        interface NamedEntity{
                            name: String
                        }
                        extend interface NamedEntity{
                            id: String
                        }
                        type GQLTestFilm{
                            filmName: String
                        }
                        extend type GQLTestFilm implements NamedEntity{
                            id: String
                        }') validate

(Line with assert) It should first set schema then assert the value. Using cascade in this example is not correct.