HostSystemMenuTest MNU

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
5 messages Options
Reply | Threaded
Open this post in threaded view
|

HostSystemMenuTest MNU

Adrian Lienhard
Hi Marcus,

In the test below, which has your initials, the following methods are  
not understood.

calculateShouldBeFrom:using: and modifySqueakMenu:

Maybe you know where to get these methods from, how to implement them,  
or if we should rather delete the test?

Cheers,
Adrian

HostSystemMenuTest>>testCharacterChanging
        | testString item shouldBe resultingString where |
        #(';' '^' '!' '<' '/' '(' )
                do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
                        ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
                        ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
                        '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
                        '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
                        '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
                                                 )
                                do: [:template |
                                        testString := template copyReplaceAll: '*' with: c.
                                        testString
                                                permutationsDo: [:mixedUp |
                                                        item := mixedUp copy.
                                                        shouldBe := self calculateShouldBeFrom: item using: c.
                                                        resultingString := self modifySqueakMenu: item copy.
                                                        self should: [shouldBe = resultingString].
                                                        (where := resultingString indexOf: $/) > 0
                                                                ifTrue: [self should: [(mixedUp at: where) = $(].
                                                                                self should: [(mixedUp at: where+2) = $)].
                                                                                self should: [(mixedUp at: where+1) asUppercase =
(resultingString at: where+1)]]]]]


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: HostSystemMenuTest MNU

Stéphane Ducasse
I recognize john method


On Jul 21, 2009, at 7:23 PM, Adrian Lienhard wrote:

> Hi Marcus,
>
> In the test below, which has your initials, the following methods are
> not understood.
>
> calculateShouldBeFrom:using: and modifySqueakMenu:
>
> Maybe you know where to get these methods from, how to implement them,
> or if we should rather delete the test?
>
> Cheers,
> Adrian
>
> HostSystemMenuTest>>testCharacterChanging
> | testString item shouldBe resultingString where |
> #(';' '^' '!' '<' '/' '(' )
> do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
> ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
> ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
> '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
> '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
> '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
> )
> do: [:template |
> testString := template copyReplaceAll: '*' with: c.
> testString
> permutationsDo: [:mixedUp |
> item := mixedUp copy.
> shouldBe := self calculateShouldBeFrom: item using: c.
> resultingString := self modifySqueakMenu: item copy.
> self should: [shouldBe = resultingString].
> (where := resultingString indexOf: $/) > 0
> ifTrue: [self should: [(mixedUp at: where) = $(].
> self should: [(mixedUp at: where+2) = $)].
> self should: [(mixedUp at: where+1) asUppercase =
> (resultingString at: where+1)]]]]]
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: HostSystemMenuTest MNU

Mariano Martinez Peck
Yes, and here are some comments: http://n2.nabble.com/Pharo-platform-dependency-%28or-Seaside-one-click%29-td3055086.html#a3055086

On Tue, Jul 21, 2009 at 5:36 PM, Stéphane Ducasse <[hidden email]> wrote:
I recognize john method


On Jul 21, 2009, at 7:23 PM, Adrian Lienhard wrote:

> Hi Marcus,
>
> In the test below, which has your initials, the following methods are
> not understood.
>
> calculateShouldBeFrom:using: and modifySqueakMenu:
>
> Maybe you know where to get these methods from, how to implement them,
> or if we should rather delete the test?
>
> Cheers,
> Adrian
>
> HostSystemMenuTest>>testCharacterChanging
>       | testString item shouldBe resultingString where |
>       #(';' '^' '!' '<' '/' '(' )
>               do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
>                       ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
>                       ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
>                       '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
>                       '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
>                       '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
>                                                )
>                               do: [:template |
>                                       testString := template copyReplaceAll: '*' with: c.
>                                       testString
>                                               permutationsDo: [:mixedUp |
>                                                       item := mixedUp copy.
>                                                       shouldBe := self calculateShouldBeFrom: item using: c.
>                                                       resultingString := self modifySqueakMenu: item copy.
>                                                       self should: [shouldBe = resultingString].
>                                                       (where := resultingString indexOf: $/) > 0
>                                                               ifTrue: [self should: [(mixedUp at: where) = $(].
>                                                                               self should: [(mixedUp at: where+2) = $)].
>                                                                               self should: [(mixedUp at: where+1) asUppercase =
> (resultingString at: where+1)]]]]]
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: HostSystemMenuTest MNU

Marcus Denker-3
In reply to this post by Stéphane Ducasse

On 21.07.2009, at 14:36, Stéphane Ducasse wrote:

> I recognize john method
>
yes... don't remember what I edited... I filed those in when adding  
John's code fro HostMenu.

        Marcus

>
> On Jul 21, 2009, at 7:23 PM, Adrian Lienhard wrote:
>
>> Hi Marcus,
>>
>> In the test below, which has your initials, the following methods are
>> not understood.
>>
>> calculateShouldBeFrom:using: and modifySqueakMenu:
>>
>> Maybe you know where to get these methods from, how to implement  
>> them,
>> or if we should rather delete the test?
>>
>> Cheers,
>> Adrian
>>
>> HostSystemMenuTest>>testCharacterChanging
>> | testString item shouldBe resultingString where |
>> #(';' '^' '!' '<' '/' '(' )
>> do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
>> ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
>> ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
>> '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
>> '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
>> '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
>> )
>> do: [:template |
>> testString := template copyReplaceAll: '*' with: c.
>> testString
>> permutationsDo: [:mixedUp |
>> item := mixedUp copy.
>> shouldBe := self calculateShouldBeFrom: item using: c.
>> resultingString := self modifySqueakMenu: item copy.
>> self should: [shouldBe = resultingString].
>> (where := resultingString indexOf: $/) > 0
>> ifTrue: [self should: [(mixedUp at: where) = $(].
>> self should: [(mixedUp at: where+2) = $)].
>> self should: [(mixedUp at: where+1) asUppercase =
>> (resultingString at: where+1)]]]]]
>>
>>
>> _______________________________________________
>> Pharo-project mailing list
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: HostSystemMenuTest MNU

Mariano Martinez Peck
In reply to this post by Mariano Martinez Peck


On Tue, Jul 21, 2009 at 5:38 PM, Mariano Martinez Peck <[hidden email]> wrote:
Yes, and here are some comments: http://n2.nabble.com/Pharo-platform-dependency-%28or-Seaside-one-click%29-td3055086.html#a3055086


This is Mac specific, isn't it?  As the subject says, it is platform specific. How are these can of tests managed? separate package?  Because they obviously fail in windows.

best,

Mariano

 

On Tue, Jul 21, 2009 at 5:36 PM, Stéphane Ducasse <[hidden email]> wrote:
I recognize john method


On Jul 21, 2009, at 7:23 PM, Adrian Lienhard wrote:

> Hi Marcus,
>
> In the test below, which has your initials, the following methods are
> not understood.
>
> calculateShouldBeFrom:using: and modifySqueakMenu:
>
> Maybe you know where to get these methods from, how to implement them,
> or if we should rather delete the test?
>
> Cheers,
> Adrian
>
> HostSystemMenuTest>>testCharacterChanging
>       | testString item shouldBe resultingString where |
>       #(';' '^' '!' '<' '/' '(' )
>               do: [:c | #('*' '* ' '*  ' '**' '** ' '**  '
>                       ')' '*)' '* )' '*  )' '**)' '** )' '**  )'
>                       ')' '*)' '*X)' '*XX)' '**)' '**X)' '**XX)'
>                       '))' '*))' '*X))' '*XX))' '**))' '**X))' '**XX))'
>                       '(' '*(' '*X(' '*XX(' '**)' '**X(' '**XX('
>                       '((' '*((' '*X((' '*XX((' '**((' '**X((' '**XX(('
>                                                )
>                               do: [:template |
>                                       testString := template copyReplaceAll: '*' with: c.
>                                       testString
>                                               permutationsDo: [:mixedUp |
>                                                       item := mixedUp copy.
>                                                       shouldBe := self calculateShouldBeFrom: item using: c.
>                                                       resultingString := self modifySqueakMenu: item copy.
>                                                       self should: [shouldBe = resultingString].
>                                                       (where := resultingString indexOf: $/) > 0
>                                                               ifTrue: [self should: [(mixedUp at: where) = $(].
>                                                                               self should: [(mixedUp at: where+2) = $)].
>                                                                               self should: [(mixedUp at: where+1) asUppercase =
> (resultingString at: where+1)]]]]]
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project



_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project