Squeak-dev June 2019

squeak-dev@lists.squeakfoundation.org

40 participants
97 discussions

The Inbox: CollectionsTests-cmm.314.mcz
by commits＠source.squeak.org 05 Jun '19

05 Jun '19

Chris Muller uploaded a new version of CollectionsTests to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-cmm.314.mcz ==================== Summary ==================== Name: CollectionsTests-cmm.314 Author: cmm Time: 4 June 2019, 9:15:34.016525 pm UUID: a6094c13-6cf5-4b63-84b7-9e0a77df21b9 Ancestors: CollectionsTests-cmm.313 Additional test for #joinSeparatedBy: describes the expected behavior for unordered collections. =============== Diff against CollectionsTests-cmm.313 =============== Item was added: + ----- Method: CollectionTest>>runJoinTestUsing: (in category 'running') ----- + runJoinTestUsing: classSelector + | joinedString joinedParts source | + source := #(#a #b #c #c #b #a #x #x #x #y #z #z #z #z #z '1' '22' '33' '33' '22' '1') perform: classSelector. + joinedString := source joinSeparatedBy: '|'. + + "Verify output length" + joinedParts := joinedString subStrings: '|'. + self assert: (joinedString subStrings: '|') size = source size. + + "Contents check" + joinedParts asBag sortedCounts do: + [ : each | self assert: (source occurrencesOf: each value) = each key ]! Item was changed: ----- Method: CollectionTest>>testJoin (in category 'tests') ----- testJoin + self assert: #(#a #b #c #d #e) join = 'abcde'. + self assert: (#(#a #b #c) joinSeparatedBy: '|') = 'a|b|c'. + #(#asArray #asOrderedCollection #asSet #asBag #asSortedArray #asSortedCollection) do: + [ : each | self runJoinTestUsing: each ]! - | joined source | - self assert: #(a b c d e) join = 'abcde'. - self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'. - "Test with unordered Set." - source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asSet. - joined := source joinSeparatedBy: '|'. - self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]). - self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]). - "Repeat with Bag." - source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asBag. - joined := source joinSeparatedBy: '|'. - self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]). - self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]). - !

1 0

The Inbox: CollectionsTests-cmm.313.mcz
by commits＠source.squeak.org 04 Jun '19

04 Jun '19

Chris Muller uploaded a new version of CollectionsTests to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-cmm.313.mcz ==================== Summary ==================== Name: CollectionsTests-cmm.313 Author: cmm Time: 4 June 2019, 4:54:40.961795 pm UUID: f570a2c4-6e21-4241-8afb-2808173d3696 Ancestors: CollectionsTests-mt.311 Additional test for #joinSeparatedBy: describes the expected behavior for unordered collections. =============== Diff against CollectionsTests-mt.311 =============== Item was added: + ----- Method: CollectionTest>>testJoin (in category 'tests') ----- + testJoin + | joined source | + self assert: #(a b c d e) join = 'abcde'. + self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'. + "Test with unordered Set." + source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asSet. + joined := source joinSeparatedBy: '|'. + self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]). + self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]). + "Repeat with Bag." + source := #(a b c c b a x x x y z z z z z '1' '2' '3' '3' '2' '1') asBag. + joined := source joinSeparatedBy: '|'. + self assert: ((2 to: joined size by: 2) allSatisfy: [ : index | (joined at: index) = $| ]). + self assert: ((1 to: joined size by: 2) allSatisfy: [ : index | source includes: (joined at: index) asString ]). + ! Item was removed: - ----- Method: SequenceableCollectionTest>>testJoin (in category 'tests - converting') ----- - testJoin - - self assert: #(a b c d e) join = 'abcde'. - self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'.!

1 0

OSProcess and CommandShell available on GitHub for Pharo users
by David T. Lewis 03 Jun '19

03 Jun '19

Alistair Grant and I, with the support of Feenk, have made GitHub repositories for OSProcess and CommandShell at: https://github.com/dtlewis290/OSProcess-Tonel https://github.com/dtlewis290/CommandShell-Tonel Alistair did the conversions using Peter Uhn??k's migration tool, and I set up the repositories so that they can now be loading in Pharo as follows: Metacello new repository: 'github://dtlewis290/OSProcess-Tonel/src'; baseline: 'OSProcess'; load. Metacello new repository: 'github://dtlewis290/CommandShell-Tonel/src'; baseline: 'CommandShell'; load. Note, the two respositories are named *-Tonel because I also maintain a GitHub repository for OSProcess on Cuis, and will probably do repositories in Squot format in the future. @Thierry Goubier - If you have an account on GitHub I will add you as a collaborator (but my own development work remains on squeaksource so I prefer contributions there anyway). Enjoy, Dave and Alistair

2 2

The Inbox: NetworkTests-dtl.59.mcz
by commits＠source.squeak.org 02 Jun '19

02 Jun '19

David T. Lewis uploaded a new version of NetworkTests to project The Inbox: http://source.squeak.org/inbox/NetworkTests-dtl.59.mcz ==================== Summary ==================== Name: NetworkTests-dtl.59 Author: dtl Time: 2 June 2019, 11:29:57.148481 am UUID: 59d383bd-87e9-401b-b288-f952a4905b74 Ancestors: NetworkTests-pre.58 RelativeUrlTest provides tests adapted from TestURL and applied to Url classes. These tests document expected behavior that has not yet been implemented in Url. Adding the following initial implementation will cause about half of the tests to pass. Url>>resolveRelativeUrl: pathString ^ self newFromRelativeText: pathString =============== Diff against NetworkTests-pre.58 =============== Item was added: + TestCase subclass: #RelativeUrlTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-Url'! + + !RelativeUrlTest commentStamp: 'dtl 6/2/2019 11:00' prior: 0! + A RelativeUrlTest is adapted from TestURI methods for testing relative path resolution as per URI>>resolveRelativeURI: + + Behavior of Url classes is expected to be similar to or the same as that of the original URI implementation. + + Note that testResolveFileNormal5 specifies behavior that may be Windows specific (first path part being a drive letter). This and similar tests may need to be updated for non-Windows platforms. + + ProjectLauncher>>startUpAfterLogin relies on relative path resolution by URI. A similar implemenation is needed for Url classes in order to permit removal of deprecated URI classes.! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal1 (in category 'tests - resolving') ----- + testResolveAbnormal1 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal10 (in category 'tests - resolving') ----- + testResolveAbnormal10 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := './g/.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal11 (in category 'tests - resolving') ----- + testResolveAbnormal11 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g/./h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal12 (in category 'tests - resolving') ----- + testResolveAbnormal12 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g/../h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal13 (in category 'tests - resolving') ----- + testResolveAbnormal13 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g;x=1/./y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x=1/y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal14 (in category 'tests - resolving') ----- + testResolveAbnormal14 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g;x=1/../y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal15 (in category 'tests - resolving') ----- + testResolveAbnormal15 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g?y/./x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y/./x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal16 (in category 'tests - resolving') ----- + testResolveAbnormal16 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g?y/../x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y/../x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal17 (in category 'tests - resolving') ----- + testResolveAbnormal17 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g#s/./x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s/./x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal18 (in category 'tests - resolving') ----- + testResolveAbnormal18 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g#s/../x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s/../x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal2 (in category 'tests - resolving') ----- + testResolveAbnormal2 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../../../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/../../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal3 (in category 'tests - resolving') ----- + testResolveAbnormal3 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '/./g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/./g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal4 (in category 'tests - resolving') ----- + testResolveAbnormal4 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '/../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal5 (in category 'tests - resolving') ----- + testResolveAbnormal5 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g.']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal6 (in category 'tests - resolving') ----- + testResolveAbnormal6 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '.g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/.g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal7 (in category 'tests - resolving') ----- + testResolveAbnormal7 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g..']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal8 (in category 'tests - resolving') ----- + testResolveAbnormal8 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '..g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/..g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveAbnormal9 (in category 'tests - resolving') ----- + testResolveAbnormal9 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := './../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal1 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal1 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal10 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal10 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := './g/.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal11 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal11 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g/./h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g/h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal12 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal12 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g/../h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal13 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal13 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g;x=1/./y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g;x=1/y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal14 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal14 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g;x=1/../y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal15 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal15 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g?y/./x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g?y/./x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal16 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal16 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g?y/../x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g?y/../x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal17 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal17 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g#s/./x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g#s/./x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal18 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal18 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g#s/../x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g#s/../x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal2 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal2 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../../../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/../../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal3 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal3 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '/./g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/./g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal4 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal4 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '/../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/../g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal5 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal5 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g.']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal6 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal6 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '.g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/.g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal7 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal7 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g..']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal8 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal8 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '..g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/..g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileAbnormal9 (in category 'tests - resolving - file') ----- + testResolveFileAbnormal9 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := './../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal1 (in category 'tests - resolving - file') ----- + testResolveFileNormal1 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g:h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'g:h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal10 (in category 'tests - resolving - file') ----- + testResolveFileNormal10 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g?y#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g?y#s']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal11 (in category 'tests - resolving - file') ----- + testResolveFileNormal11 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := ';x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/;x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal12 (in category 'tests - resolving - file') ----- + testResolveFileNormal12 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g;x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g;x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal13 (in category 'tests - resolving - file') ----- + testResolveFileNormal13 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g;x?y#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g;x?y#s']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal14 (in category 'tests - resolving - file') ----- + testResolveFileNormal14 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal15 (in category 'tests - resolving - file') ----- + testResolveFileNormal15 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := './'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal16 (in category 'tests - resolving - file') ----- + testResolveFileNormal16 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal17 (in category 'tests - resolving - file') ----- + testResolveFileNormal17 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + relURI := '../'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal18 (in category 'tests - resolving - file') ----- + testResolveFileNormal18 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal19 (in category 'tests - resolving - file') ----- + testResolveFileNormal19 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal2 (in category 'tests - resolving - file') ----- + testResolveFileNormal2 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal20 (in category 'tests - resolving - file') ----- + testResolveFileNormal20 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../../'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal21 (in category 'tests - resolving - file') ----- + testResolveFileNormal21 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal3 (in category 'tests - resolving - file') ----- + testResolveFileNormal3 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := './g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal4 (in category 'tests - resolving - file') ----- + testResolveFileNormal4 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g/'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal5 (in category 'tests - resolving - file') ----- + testResolveFileNormal5 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '/g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal6 (in category 'tests - resolving - file') ----- + testResolveFileNormal6 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '//g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal7 (in category 'tests - resolving - file') ----- + testResolveFileNormal7 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := '?y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/?y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal8 (in category 'tests - resolving - file') ----- + testResolveFileNormal8 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g?y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g?y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveFileNormal9 (in category 'tests - resolving - file') ----- + testResolveFileNormal9 + | baseURI relURI resolvedURI | + baseURI := 'file://a/b/c/d;p?q' asUrl. + self assert: FileUrl equals: baseURI class . + relURI := 'g#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'file://a/b/c/g#s']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal1 (in category 'tests - resolving') ----- + testResolveNormal1 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g:h'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'g:h']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal10 (in category 'tests - resolving') ----- + testResolveNormal10 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g?y#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y#s']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal11 (in category 'tests - resolving') ----- + testResolveNormal11 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := ';x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/;x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal12 (in category 'tests - resolving') ----- + testResolveNormal12 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g;x'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal13 (in category 'tests - resolving') ----- + testResolveNormal13 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g;x?y#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x?y#s']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal14 (in category 'tests - resolving') ----- + testResolveNormal14 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '.'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal15 (in category 'tests - resolving') ----- + testResolveNormal15 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := './'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal16 (in category 'tests - resolving') ----- + testResolveNormal16 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal17 (in category 'tests - resolving') ----- + testResolveNormal17 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal18 (in category 'tests - resolving') ----- + testResolveNormal18 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal19 (in category 'tests - resolving') ----- + testResolveNormal19 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../..'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal2 (in category 'tests - resolving') ----- + testResolveNormal2 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal20 (in category 'tests - resolving') ----- + testResolveNormal20 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../../'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal21 (in category 'tests - resolving') ----- + testResolveNormal21 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '../../g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal3 (in category 'tests - resolving') ----- + testResolveNormal3 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := './g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal4 (in category 'tests - resolving') ----- + testResolveNormal4 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g/'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal5 (in category 'tests - resolving') ----- + testResolveNormal5 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '/g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal6 (in category 'tests - resolving') ----- + testResolveNormal6 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '//g'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://g']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal7 (in category 'tests - resolving') ----- + testResolveNormal7 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := '?y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/?y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal8 (in category 'tests - resolving') ----- + testResolveNormal8 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g?y'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y']. + ! Item was added: + ----- Method: RelativeUrlTest>>testResolveNormal9 (in category 'tests - resolving') ----- + testResolveNormal9 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asUrl. + self assert: HttpUrl equals: baseURI class . + relURI := 'g#s'. + resolvedURI := baseURI resolveRelativeUrl: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s']. + !

1 0

Attempting to use git Browser to view https://github.com/LabWare/MQTT-broker
by tim Rowledge 01 Jun '19

01 Jun '19

I wanted to take a look at the code John McI recently announced that built on my MQTT client. It's on a github server, in that not-very-comprehendable format. I had noticed the 'Git Browser' entry in the Tools menu so I thought that might help with viewing the code. Well... it took around ten minutes to install, added around 2Mb to my change log, added what looks like 50+ categories to the browser category list and has no readily findable doc. Oh and a trivial point/bug, the progress bar kept leaping around from screen centre to centred on the mouse pointer - a small but very visually irritating point. Once loaded and a Git Browser opened I was all at sea. As mentioned, no readily apparent doc, and the vast list of added categories didn't exactly help in trying to find a relevant seeming class to look at any class comments. Some googling found the 2018 HPI paper on the system which at least has some small explanation of the UI, but nothing to help me start using it. I eventually found the 'clone project' menu entry and recalled from my *extremely* tiny familiarity that this might well be important. I pasted the URL from the github page 'Clone or download' widget in and thing whirred and clanked a bit. My problem now is that I still see nothing that appears to have any connection to actual visible code. This is what I see - Where might I find useful information on what to do next? Is this even supposed to work? It may well be broken since the related 'Metacello' Tools menu entry fails in Installer class>ensureRecentMetacello since there is a logic bug that leaves the temp 'metacello' nil if Metacello is already installed. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: PHP: Put Hackers into Privileged mode

5 8

The Inbox: CollectionsTests-ct.312.mcz
by commits＠source.squeak.org 01 Jun '19

01 Jun '19

A new version of CollectionsTests was added to project The Inbox: http://source.squeak.org/inbox/CollectionsTests-ct.312.mcz ==================== Summary ==================== Name: CollectionsTests-ct.312 Author: ct Time: 1 June 2019, 11:45:41.221879 am UUID: 6b015370-ef46-aa46-a181-6ee1476a6a79 Ancestors: CollectionsTests-mt.311 Move test for #join and #joinSeparatedBy: from SequenceableCollectionTest into CollectionTest Cf. ct.828 =============== Diff against CollectionsTests-mt.311 =============== Item was added: + ----- Method: CollectionTest>>testJoin (in category 'tests') ----- + testJoin + + self assert: #(a b c d e) join = 'abcde'. + self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'.! Item was removed: - ----- Method: SequenceableCollectionTest>>testJoin (in category 'tests - converting') ----- - testJoin - - self assert: #(a b c d e) join = 'abcde'. - self assert: (#(a b c) joinSeparatedBy: '|') = 'a|b|c'.!

1 0

The Inbox: Collections-ct.828.mcz
by commits＠source.squeak.org 01 Jun '19

01 Jun '19

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.828.mcz ==================== Summary ==================== Name: Collections-ct.828 Author: ct Time: 1 June 2019, 11:44:28.179879 am UUID: 6aa0cef4-9502-0e4d-8d58-5552f7e07379 Ancestors: Collections-cmm.826 Move #join and #joinSeparatedBy: from SequenceableCollection to Collection =============== Diff against Collections-cmm.826 =============== Item was added: + ----- Method: Collection>>join (in category 'converting') ----- + join + "Example: #(H e l l o W o r l d) join = 'HelloWorld'. " + + ^ self joinSeparatedBy: ''! Item was added: + ----- Method: Collection>>joinSeparatedBy: (in category 'converting') ----- + joinSeparatedBy: aSeparator + "Returns a string, which is a concatenation of each element's string representation separated by another string." + + ^ String streamContents: [:stream | + self + do: [:ea | stream nextPutAll: ea asString] + separatedBy: [stream nextPutAll: aSeparator asString]]! Item was removed: - ----- Method: SequenceableCollection>>join (in category 'converting') ----- - join - "Example: #(H e l l o W o r l d) join = 'HelloWorld'. " - - ^ self joinSeparatedBy: ''! Item was removed: - ----- Method: SequenceableCollection>>joinSeparatedBy: (in category 'converting') ----- - joinSeparatedBy: aSeparator - "Returns a string, which is a concatenation of each element's string representation separated by another string." - - ^ String streamContents: [:stream | - self - do: [:ea | stream nextPutAll: ea asString] - separatedBy: [stream nextPutAll: aSeparator asString]]!

1 0