Squeak-dev June 2022

squeak-dev@lists.squeakfoundation.org

30 participants
310 discussions

The Inbox: Compiler-mt.477.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-mt.477.mcz ==================== Summary ==================== Name: Compiler-mt.477 Author: mt Time: 8 June 2022, 2:04:54.227335 pm UUID: 814c7797-c5f1-4844-bb20-83e85b5656ca Ancestors: Compiler-mt.476 Fixes decompilation of 1 caseOf: { [ 1 ] -> [ | x | [ true ] whileTrue: [ x := 42 ] ] }. See https://github.com/squeak-smalltalk/squeak-object-memory/issues/36 =============== Diff against Compiler-mt.476 =============== Item was changed: ----- Method: Decompiler>>startAndLimitFor:from:into: (in category 'private') ----- startAndLimitFor: incrVar from: aStack into: binaryBlock "If incrVar matches the increment of a whileLoop at the end of statements evaluate binaryBlock with the init statement for incrVar and the init statement for the block's limit, if any, and answer true. Otherwise answer false. Used to help convert whileTrue: loops into to:[by:]do: loops." | guard initExpr limitInit size | ((size := aStack size) >= 1 + and: [(initExpr := aStack at: size) ~~ CaseFlag] + and: [initExpr isAssignmentNode]) ifFalse: - and: [(initExpr := aStack at: size) isAssignmentNode]) ifFalse: [^false]. initExpr variable == incrVar ifTrue: [binaryBlock value: initExpr value: nil. ^true]. limitInit := initExpr. (size >= 2 and: [(initExpr := aStack at: size - 1) isAssignmentNode and: [initExpr variable == incrVar and: [(guard := statements last receiver) isBlockNode and: [guard statements size = 1 and: [(guard := guard statements first) isMessageNode and: [guard receiver == incrVar and: [guard arguments first == limitInit variable]]]]]]]) ifTrue: [binaryBlock value: initExpr value: limitInit. ^true]. ^false!

1 0

The Trunk: NetworkTests-pre.63.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Patrick Rein uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-pre.63.mcz ==================== Summary ==================== Name: NetworkTests-pre.63 Author: pre Time: 8 June 2022, 11:24:47.974975 am UUID: f3b9135b-3bc7-964f-a587-737361164a14 Ancestors: NetworkTests-pre.62 Renames TestURI to URITest because it is a ClassTestCase and should correspons to its naming scheme. Removes #classToBeTested from URITest as it is now covered by the naming convention. =============== Diff against NetworkTests-pre.62 =============== Item was removed: - ClassTestCase subclass: #TestURI - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'NetworkTests-URI'! - - !TestURI commentStamp: 'pre 4/22/2022 21:05' prior: 0! - Some parsers allow the scheme name to be present in a relative URI if - it is the same as the base URI scheme. This is considered to be a - loophole in prior specifications of partial URI [RFC1630]. Its use - should be avoided. - - http:g = http:g ; for validating parsers - | http://a/b/c/g ; for backwards compatibility - ! Item was removed: - ----- Method: TestURI class>>generateAbnormalResolverTests (in category 'test generation') ----- - generateAbnormalResolverTests - "TestURI generateAbnormalResolverTests" - - | relURIString result method testPairs pair | - - testPairs := #( - #('../../../g' 'http://a/../g' ) - #('../../../../g' 'http://a/../../g' ) - #('/./g' 'http://a/./g' ) - #('/../g' 'http://a/../g' ) - #('g.' 'http://a/b/c/g.' ) - #('.g' 'http://a/b/c/.g' ) - #('g..' 'http://a/b/c/g..' ) - #('..g' 'http://a/b/c/..g' ) - #('./../g' 'http://a/b/g' ) - #('./g/.' 'http://a/b/c/g/' ) - #('g/./h' 'http://a/b/c/g/h' ) - #('g/../h' 'http://a/b/c/h' ) - #('g;x=1/./y' 'http://a/b/c/g;x=1/y' ) - #('g;x=1/../y' 'http://a/b/c/y' ) - #('g?y/./x' 'http://a/b/c/g?y/./x' ) - #('g?y/../x' 'http://a/b/c/g?y/../x' ) - #('g#s/./x' 'http://a/b/c/g#s/./x' ) - #('g#s/../x' 'http://a/b/c/g#s/../x' ) - ). - 1 to: testPairs size do: [:index | - pair := testPairs at: index. - relURIString := pair first. - result := pair last. - method := String streamContents: [:stream | - stream nextPutAll: 'testResolveAbnormal' , index printString; cr. - stream - nextPutAll: ' | baseURI relURI resolvedURI |' ; cr; - nextPutAll: ' baseURI := ''http://a/b/c/d;p?q'' asURI.' ; cr; - nextPutAll: ' relURI := '; nextPut: $'; nextPutAll: relURIString; nextPutAll: '''.' ; cr; - nextPutAll: ' resolvedURI := baseURI resolveRelativeURI: relURI.' ; cr; - nextPutAll: ' self should: [resolvedURI asString = '''; nextPutAll: result; nextPutAll: '''].' ; cr]. - self compile: method classified: 'running resolving']. - ! Item was removed: - ----- Method: TestURI class>>generateNormalResolverTests (in category 'test generation') ----- - generateNormalResolverTests - "TestURI generateNormalResolverTests" - - | relURIString result method testPairs pair | - - testPairs := #( - #('g:h' 'g:h' ) - #('g' 'http://a/b/c/g' ) - #('./g' 'http://a/b/c/g' ) - #('g/' 'http://a/b/c/g/' ) - #('/g' 'http://a/g' ) - #('//g' 'http://g' ) - #('?y' 'http://a/b/c/?y' ) - #('g?y' 'http://a/b/c/g?y' ) - #('g#s' 'http://a/b/c/g#s' ) - #('g?y#s' 'http://a/b/c/g?y#s' ) - #(';x' 'http://a/b/c/;x' ) - #('g;x' 'http://a/b/c/g;x' ) - #('g;x?y#s' 'http://a/b/c/g;x?y#s' ) - #('.' 'http://a/b/c/' ) - #('./' 'http://a/b/c/' ) - #('..' 'http://a/b/' ) - #('../' 'http://a/b/' ) - #('../g' 'http://a/b/g' ) - #('../..' 'http://a/' ) - #('../../' 'http://a/' ) - #('../../g' 'http://a/g' ) - ). - 1 to: testPairs size do: [:index | - pair := testPairs at: index. - relURIString := pair first. - result := pair last. - method := String streamContents: [:stream | - stream nextPutAll: 'testResolveNormal' , index printString; cr. - stream - nextPutAll: ' | baseURI relURI resolvedURI |' ; cr; - nextPutAll: ' baseURI := ''http://a/b/c/d;p?q'' asURI.' ; cr; - nextPutAll: ' relURI := '; nextPut: $'; nextPutAll: relURIString; nextPutAll: '''.' ; cr; - nextPutAll: ' resolvedURI := baseURI resolveRelativeURI: relURI.' ; cr; - nextPutAll: ' self should: [resolvedURI asString = '''; nextPutAll: result; nextPutAll: '''].' ; cr]. - self compile: method classified: 'running resolving']. - ! Item was removed: - ----- Method: TestURI>>classToBeTested (in category 'coverage') ----- - classToBeTested - - ^ URI! Item was removed: - ----- Method: TestURI>>testDefaultDirRoundtrip (in category 'tests - file') ----- - testDefaultDirRoundtrip - | defaultDir defaultURI uriDir | - defaultDir := FileDirectory default. - defaultURI := defaultDir uri. - uriDir := FileDirectory uri: defaultURI. - self should: [defaultDir fullName = uriDir fullName]! Item was removed: - ----- Method: TestURI>>testDirWithHash (in category 'tests - file') ----- - testDirWithHash - "Tests proper escaping of directories with hash mark" - - | uriDir origPath origDir dirURI | - origPath := FileDirectory default pathName, '#123'. - origDir := FileDirectory on: origPath. - self assert: origDir pathName = origPath. - - dirURI := origDir uri. - uriDir := FileDirectory uri: dirURI. - self assert: origDir fullName = uriDir fullName.! Item was removed: - ----- Method: TestURI>>testDirectoryRoot (in category 'tests - file') ----- - testDirectoryRoot - - | rootDir uriRoot uriDir | - rootDir := FileDirectory root. - uriRoot := 'file:///' asURI. - uriDir := FileDirectory uri: uriRoot. - self should: [rootDir fullName = uriDir fullName]! Item was removed: - ----- Method: TestURI>>testEquals (in category 'tests - comparing') ----- - testEquals - - | uri uriString | - uri := [:string | URI fromString: string]. - - uriString := 'http://squeak.org/'. - self assert: (uri value: uriString) = (uri value: uriString). - uriString := 'http://squeak.org/index.html'. - self assert: (uri value: uriString) = (uri value: uriString). - uriString := 'mailto:somebody@somewhere.nowhere#fragment'. - self assert: (uri value: uriString) = (uri value: uriString). - - self deny: (uri value: 'http://squeak.org') = (uri value: 'http://website.com').! Item was removed: - ----- Method: TestURI>>testResolveAbnormal1 (in category 'tests - resolving') ----- - testResolveAbnormal1 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../../../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/../g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal10 (in category 'tests - resolving') ----- - testResolveAbnormal10 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := './g/.'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g/']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal11 (in category 'tests - resolving') ----- - testResolveAbnormal11 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g/./h'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g/h']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal12 (in category 'tests - resolving') ----- - testResolveAbnormal12 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g/../h'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/h']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal13 (in category 'tests - resolving') ----- - testResolveAbnormal13 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g;x=1/./y'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g;x=1/y']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal14 (in category 'tests - resolving') ----- - testResolveAbnormal14 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g;x=1/../y'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/y']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal15 (in category 'tests - resolving') ----- - testResolveAbnormal15 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g?y/./x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g?y/./x']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal16 (in category 'tests - resolving') ----- - testResolveAbnormal16 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g?y/../x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g?y/../x']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal17 (in category 'tests - resolving') ----- - testResolveAbnormal17 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g#s/./x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g#s/./x']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal18 (in category 'tests - resolving') ----- - testResolveAbnormal18 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g#s/../x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g#s/../x']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal2 (in category 'tests - resolving') ----- - testResolveAbnormal2 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../../../../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/../../g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal3 (in category 'tests - resolving') ----- - testResolveAbnormal3 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '/./g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/./g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal4 (in category 'tests - resolving') ----- - testResolveAbnormal4 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '/../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/../g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal5 (in category 'tests - resolving') ----- - testResolveAbnormal5 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g.'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g.']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal6 (in category 'tests - resolving') ----- - testResolveAbnormal6 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '.g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/.g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal7 (in category 'tests - resolving') ----- - testResolveAbnormal7 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g..'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g..']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal8 (in category 'tests - resolving') ----- - testResolveAbnormal8 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '..g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/..g']. - ! Item was removed: - ----- Method: TestURI>>testResolveAbnormal9 (in category 'tests - resolving') ----- - testResolveAbnormal9 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := './../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal1 (in category 'tests - resolving') ----- - testResolveNormal1 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g:h'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'g:h']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal10 (in category 'tests - resolving') ----- - testResolveNormal10 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g?y#s'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g?y#s']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal11 (in category 'tests - resolving') ----- - testResolveNormal11 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := ';x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/;x']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal12 (in category 'tests - resolving') ----- - testResolveNormal12 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g;x'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g;x']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal13 (in category 'tests - resolving') ----- - testResolveNormal13 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g;x?y#s'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g;x?y#s']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal14 (in category 'tests - resolving') ----- - testResolveNormal14 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '.'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal15 (in category 'tests - resolving') ----- - testResolveNormal15 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := './'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal16 (in category 'tests - resolving') ----- - testResolveNormal16 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '..'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal17 (in category 'tests - resolving') ----- - testResolveNormal17 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal18 (in category 'tests - resolving') ----- - testResolveNormal18 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal19 (in category 'tests - resolving') ----- - testResolveNormal19 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../..'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal2 (in category 'tests - resolving') ----- - testResolveNormal2 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal20 (in category 'tests - resolving') ----- - testResolveNormal20 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../../'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal21 (in category 'tests - resolving') ----- - testResolveNormal21 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '../../g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal3 (in category 'tests - resolving') ----- - testResolveNormal3 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := './g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal4 (in category 'tests - resolving') ----- - testResolveNormal4 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g/'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g/']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal5 (in category 'tests - resolving') ----- - testResolveNormal5 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '/g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal6 (in category 'tests - resolving') ----- - testResolveNormal6 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '//g'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://g']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal7 (in category 'tests - resolving') ----- - testResolveNormal7 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := '?y'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/?y']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal8 (in category 'tests - resolving') ----- - testResolveNormal8 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g?y'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g?y']. - ! Item was removed: - ----- Method: TestURI>>testResolveNormal9 (in category 'tests - resolving') ----- - testResolveNormal9 - | baseURI relURI resolvedURI | - baseURI := 'http://a/b/c/d;p?q' asURI. - relURI := 'g#s'. - resolvedURI := baseURI resolveRelativeURI: relURI. - self should: [resolvedURI asString = 'http://a/b/c/g#s']. - ! Item was removed: - ----- Method: TestURI>>testSchemeAbsoluteFail1 (in category 'tests - parsing') ----- - testSchemeAbsoluteFail1 - self should: [URI fromString: 'http:'] raise: IllegalURIException! Item was removed: - ----- Method: TestURI>>testSchemeAbsolutePass1 (in category 'tests - parsing') ----- - testSchemeAbsolutePass1 - | uri | - uri := URI fromString: 'http://www.squeakland.org'. - self should: [uri scheme = 'http']. - self should: [uri isAbsolute]. - self shouldnt: [uri isOpaque]. - self shouldnt: [uri isRelative]! Item was removed: - ----- Method: TestURI>>testSchemeAbsolutePass2 (in category 'tests - parsing') ----- - testSchemeAbsolutePass2 - | uri | - uri := URI fromString: 'mailto:somebody@somewhere.nowhere'. - self should: [uri scheme = 'mailto']. - self should: [uri isAbsolute]. - self should: [uri isOpaque]. - self shouldnt: [uri isRelative]! Item was removed: - ----- Method: TestURI>>testSchemeAbsolutePass3 (in category 'tests - parsing') ----- - testSchemeAbsolutePass3 - | uri | - uri := URI fromString: 'ftp://ftp@squeak.org'. - self should: [uri scheme = 'ftp']. - self should: [uri isAbsolute]. - self shouldnt: [uri isOpaque]. - self shouldnt: [uri isRelative]. - self should: [uri userInfo = 'ftp']. - self should: [uri host = 'squeak.org']. - self should: [uri port isNil]. - ! Item was removed: - ----- Method: TestURI>>testSchemeAbsolutePass4 (in category 'tests - parsing') ----- - testSchemeAbsolutePass4 - | uri | - uri := URI fromString: 'mailto:somebody@somewhere.nowhere#fragment'. - self should: [uri scheme = 'mailto']. - self should: [uri isAbsolute]. - self should: [uri isOpaque]. - self shouldnt: [uri isRelative]. - self should: [uri fragment = 'fragment']. - ! Item was removed: - ----- Method: TestURI>>testSchemeAbsolutePass5 (in category 'tests - parsing') ----- - testSchemeAbsolutePass5 - | uri | - uri := URI fromString: 'http://www.squeakland.org#fragment'. - self should: [uri scheme = 'http']. - self should: [uri isAbsolute]. - self shouldnt: [uri isOpaque]. - self shouldnt: [uri isRelative]. - self should: [uri fragment = 'fragment']. - ! Item was added: + ClassTestCase subclass: #URITest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'NetworkTests-URI'! + + !URITest commentStamp: 'pre 4/22/2022 21:05' prior: 0! + Some parsers allow the scheme name to be present in a relative URI if + it is the same as the base URI scheme. This is considered to be a + loophole in prior specifications of partial URI [RFC1630]. Its use + should be avoided. + + http:g = http:g ; for validating parsers + | http://a/b/c/g ; for backwards compatibility + ! Item was added: + ----- Method: URITest class>>generateAbnormalResolverTests (in category 'test generation') ----- + generateAbnormalResolverTests + "TestURI generateAbnormalResolverTests" + + | relURIString result method testPairs pair | + + testPairs := #( + #('../../../g' 'http://a/../g' ) + #('../../../../g' 'http://a/../../g' ) + #('/./g' 'http://a/./g' ) + #('/../g' 'http://a/../g' ) + #('g.' 'http://a/b/c/g.' ) + #('.g' 'http://a/b/c/.g' ) + #('g..' 'http://a/b/c/g..' ) + #('..g' 'http://a/b/c/..g' ) + #('./../g' 'http://a/b/g' ) + #('./g/.' 'http://a/b/c/g/' ) + #('g/./h' 'http://a/b/c/g/h' ) + #('g/../h' 'http://a/b/c/h' ) + #('g;x=1/./y' 'http://a/b/c/g;x=1/y' ) + #('g;x=1/../y' 'http://a/b/c/y' ) + #('g?y/./x' 'http://a/b/c/g?y/./x' ) + #('g?y/../x' 'http://a/b/c/g?y/../x' ) + #('g#s/./x' 'http://a/b/c/g#s/./x' ) + #('g#s/../x' 'http://a/b/c/g#s/../x' ) + ). + 1 to: testPairs size do: [:index | + pair := testPairs at: index. + relURIString := pair first. + result := pair last. + method := String streamContents: [:stream | + stream nextPutAll: 'testResolveAbnormal' , index printString; cr. + stream + nextPutAll: ' | baseURI relURI resolvedURI |' ; cr; + nextPutAll: ' baseURI := ''http://a/b/c/d;p?q'' asURI.' ; cr; + nextPutAll: ' relURI := '; nextPut: $'; nextPutAll: relURIString; nextPutAll: '''.' ; cr; + nextPutAll: ' resolvedURI := baseURI resolveRelativeURI: relURI.' ; cr; + nextPutAll: ' self should: [resolvedURI asString = '''; nextPutAll: result; nextPutAll: '''].' ; cr]. + self compile: method classified: 'running resolving']. + ! Item was added: + ----- Method: URITest class>>generateNormalResolverTests (in category 'test generation') ----- + generateNormalResolverTests + "TestURI generateNormalResolverTests" + + | relURIString result method testPairs pair | + + testPairs := #( + #('g:h' 'g:h' ) + #('g' 'http://a/b/c/g' ) + #('./g' 'http://a/b/c/g' ) + #('g/' 'http://a/b/c/g/' ) + #('/g' 'http://a/g' ) + #('//g' 'http://g' ) + #('?y' 'http://a/b/c/?y' ) + #('g?y' 'http://a/b/c/g?y' ) + #('g#s' 'http://a/b/c/g#s' ) + #('g?y#s' 'http://a/b/c/g?y#s' ) + #(';x' 'http://a/b/c/;x' ) + #('g;x' 'http://a/b/c/g;x' ) + #('g;x?y#s' 'http://a/b/c/g;x?y#s' ) + #('.' 'http://a/b/c/' ) + #('./' 'http://a/b/c/' ) + #('..' 'http://a/b/' ) + #('../' 'http://a/b/' ) + #('../g' 'http://a/b/g' ) + #('../..' 'http://a/' ) + #('../../' 'http://a/' ) + #('../../g' 'http://a/g' ) + ). + 1 to: testPairs size do: [:index | + pair := testPairs at: index. + relURIString := pair first. + result := pair last. + method := String streamContents: [:stream | + stream nextPutAll: 'testResolveNormal' , index printString; cr. + stream + nextPutAll: ' | baseURI relURI resolvedURI |' ; cr; + nextPutAll: ' baseURI := ''http://a/b/c/d;p?q'' asURI.' ; cr; + nextPutAll: ' relURI := '; nextPut: $'; nextPutAll: relURIString; nextPutAll: '''.' ; cr; + nextPutAll: ' resolvedURI := baseURI resolveRelativeURI: relURI.' ; cr; + nextPutAll: ' self should: [resolvedURI asString = '''; nextPutAll: result; nextPutAll: '''].' ; cr]. + self compile: method classified: 'running resolving']. + ! Item was added: + ----- Method: URITest>>testDefaultDirRoundtrip (in category 'tests - file') ----- + testDefaultDirRoundtrip + | defaultDir defaultURI uriDir | + defaultDir := FileDirectory default. + defaultURI := defaultDir uri. + uriDir := FileDirectory uri: defaultURI. + self should: [defaultDir fullName = uriDir fullName]! Item was added: + ----- Method: URITest>>testDirWithHash (in category 'tests - file') ----- + testDirWithHash + "Tests proper escaping of directories with hash mark" + + | uriDir origPath origDir dirURI | + origPath := FileDirectory default pathName, '#123'. + origDir := FileDirectory on: origPath. + self assert: origDir pathName = origPath. + + dirURI := origDir uri. + uriDir := FileDirectory uri: dirURI. + self assert: origDir fullName = uriDir fullName.! Item was added: + ----- Method: URITest>>testDirectoryRoot (in category 'tests - file') ----- + testDirectoryRoot + + | rootDir uriRoot uriDir | + rootDir := FileDirectory root. + uriRoot := 'file:///' asURI. + uriDir := FileDirectory uri: uriRoot. + self should: [rootDir fullName = uriDir fullName]! Item was added: + ----- Method: URITest>>testEquals (in category 'tests - comparing') ----- + testEquals + + | uri uriString | + uri := [:string | URI fromString: string]. + + uriString := 'http://squeak.org/'. + self assert: (uri value: uriString) = (uri value: uriString). + uriString := 'http://squeak.org/index.html'. + self assert: (uri value: uriString) = (uri value: uriString). + uriString := 'mailto:somebody@somewhere.nowhere#fragment'. + self assert: (uri value: uriString) = (uri value: uriString). + + self deny: (uri value: 'http://squeak.org') = (uri value: 'http://website.com').! Item was added: + ----- Method: URITest>>testResolveAbnormal1 (in category 'tests - resolving') ----- + testResolveAbnormal1 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../../../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/../g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal10 (in category 'tests - resolving') ----- + testResolveAbnormal10 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := './g/.'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal11 (in category 'tests - resolving') ----- + testResolveAbnormal11 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g/./h'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/h']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal12 (in category 'tests - resolving') ----- + testResolveAbnormal12 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g/../h'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/h']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal13 (in category 'tests - resolving') ----- + testResolveAbnormal13 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g;x=1/./y'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x=1/y']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal14 (in category 'tests - resolving') ----- + testResolveAbnormal14 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g;x=1/../y'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/y']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal15 (in category 'tests - resolving') ----- + testResolveAbnormal15 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g?y/./x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y/./x']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal16 (in category 'tests - resolving') ----- + testResolveAbnormal16 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g?y/../x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y/../x']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal17 (in category 'tests - resolving') ----- + testResolveAbnormal17 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g#s/./x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s/./x']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal18 (in category 'tests - resolving') ----- + testResolveAbnormal18 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g#s/../x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s/../x']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal2 (in category 'tests - resolving') ----- + testResolveAbnormal2 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../../../../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/../../g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal3 (in category 'tests - resolving') ----- + testResolveAbnormal3 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '/./g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/./g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal4 (in category 'tests - resolving') ----- + testResolveAbnormal4 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '/../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/../g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal5 (in category 'tests - resolving') ----- + testResolveAbnormal5 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g.'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g.']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal6 (in category 'tests - resolving') ----- + testResolveAbnormal6 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '.g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/.g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal7 (in category 'tests - resolving') ----- + testResolveAbnormal7 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g..'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g..']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal8 (in category 'tests - resolving') ----- + testResolveAbnormal8 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '..g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/..g']. + ! Item was added: + ----- Method: URITest>>testResolveAbnormal9 (in category 'tests - resolving') ----- + testResolveAbnormal9 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := './../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal1 (in category 'tests - resolving') ----- + testResolveNormal1 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g:h'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'g:h']. + ! Item was added: + ----- Method: URITest>>testResolveNormal10 (in category 'tests - resolving') ----- + testResolveNormal10 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g?y#s'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y#s']. + ! Item was added: + ----- Method: URITest>>testResolveNormal11 (in category 'tests - resolving') ----- + testResolveNormal11 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := ';x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/;x']. + ! Item was added: + ----- Method: URITest>>testResolveNormal12 (in category 'tests - resolving') ----- + testResolveNormal12 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g;x'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x']. + ! Item was added: + ----- Method: URITest>>testResolveNormal13 (in category 'tests - resolving') ----- + testResolveNormal13 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g;x?y#s'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g;x?y#s']. + ! Item was added: + ----- Method: URITest>>testResolveNormal14 (in category 'tests - resolving') ----- + testResolveNormal14 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '.'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal15 (in category 'tests - resolving') ----- + testResolveNormal15 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := './'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal16 (in category 'tests - resolving') ----- + testResolveNormal16 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '..'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal17 (in category 'tests - resolving') ----- + testResolveNormal17 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal18 (in category 'tests - resolving') ----- + testResolveNormal18 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal19 (in category 'tests - resolving') ----- + testResolveNormal19 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../..'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal2 (in category 'tests - resolving') ----- + testResolveNormal2 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal20 (in category 'tests - resolving') ----- + testResolveNormal20 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../../'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal21 (in category 'tests - resolving') ----- + testResolveNormal21 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '../../g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal3 (in category 'tests - resolving') ----- + testResolveNormal3 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := './g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal4 (in category 'tests - resolving') ----- + testResolveNormal4 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g/'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g/']. + ! Item was added: + ----- Method: URITest>>testResolveNormal5 (in category 'tests - resolving') ----- + testResolveNormal5 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '/g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal6 (in category 'tests - resolving') ----- + testResolveNormal6 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '//g'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://g']. + ! Item was added: + ----- Method: URITest>>testResolveNormal7 (in category 'tests - resolving') ----- + testResolveNormal7 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := '?y'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/?y']. + ! Item was added: + ----- Method: URITest>>testResolveNormal8 (in category 'tests - resolving') ----- + testResolveNormal8 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g?y'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g?y']. + ! Item was added: + ----- Method: URITest>>testResolveNormal9 (in category 'tests - resolving') ----- + testResolveNormal9 + | baseURI relURI resolvedURI | + baseURI := 'http://a/b/c/d;p?q' asURI. + relURI := 'g#s'. + resolvedURI := baseURI resolveRelativeURI: relURI. + self should: [resolvedURI asString = 'http://a/b/c/g#s']. + ! Item was added: + ----- Method: URITest>>testSchemeAbsoluteFail1 (in category 'tests - parsing') ----- + testSchemeAbsoluteFail1 + self should: [URI fromString: 'http:'] raise: IllegalURIException! Item was added: + ----- Method: URITest>>testSchemeAbsolutePass1 (in category 'tests - parsing') ----- + testSchemeAbsolutePass1 + | uri | + uri := URI fromString: 'http://www.squeakland.org'. + self should: [uri scheme = 'http']. + self should: [uri isAbsolute]. + self shouldnt: [uri isOpaque]. + self shouldnt: [uri isRelative]! Item was added: + ----- Method: URITest>>testSchemeAbsolutePass2 (in category 'tests - parsing') ----- + testSchemeAbsolutePass2 + | uri | + uri := URI fromString: 'mailto:somebody@somewhere.nowhere'. + self should: [uri scheme = 'mailto']. + self should: [uri isAbsolute]. + self should: [uri isOpaque]. + self shouldnt: [uri isRelative]! Item was added: + ----- Method: URITest>>testSchemeAbsolutePass3 (in category 'tests - parsing') ----- + testSchemeAbsolutePass3 + | uri | + uri := URI fromString: 'ftp://ftp@squeak.org'. + self should: [uri scheme = 'ftp']. + self should: [uri isAbsolute]. + self shouldnt: [uri isOpaque]. + self shouldnt: [uri isRelative]. + self should: [uri userInfo = 'ftp']. + self should: [uri host = 'squeak.org']. + self should: [uri port isNil]. + ! Item was added: + ----- Method: URITest>>testSchemeAbsolutePass4 (in category 'tests - parsing') ----- + testSchemeAbsolutePass4 + | uri | + uri := URI fromString: 'mailto:somebody@somewhere.nowhere#fragment'. + self should: [uri scheme = 'mailto']. + self should: [uri isAbsolute]. + self should: [uri isOpaque]. + self shouldnt: [uri isRelative]. + self should: [uri fragment = 'fragment']. + ! Item was added: + ----- Method: URITest>>testSchemeAbsolutePass5 (in category 'tests - parsing') ----- + testSchemeAbsolutePass5 + | uri | + uri := URI fromString: 'http://www.squeakland.org#fragment'. + self should: [uri scheme = 'http']. + self should: [uri isAbsolute]. + self shouldnt: [uri isOpaque]. + self shouldnt: [uri isRelative]. + self should: [uri fragment = 'fragment']. + !

2 1

The Inbox: Kernel-jar.1477.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jar.1477.mcz ==================== Summary ==================== Name: Kernel-jar.1477 Author: jar Time: 8 June 2022, 1:18:13.217988 pm UUID: cde25b8e-8f6a-4241-8f6e-67a9ae27da68 Ancestors: Kernel-jar.1476 Setting suspendedContext may ruin your image; add checks to prevent such situations. Add examples and coments documenting disastrous situations. Supersede Kernel-jar.1474. Updated test will follow later. =============== Diff against Kernel-jar.1476 =============== Item was changed: ----- Method: Process>>suspendedContext: (in category 'private') ----- + suspendedContext: aContextOrNil + "Set suspendedContext; proceed with caution when assigning nil or when process priority is undefined." + + "Note: Assigning nil to a runnable but not active process would freeze the image when self is scheduled to run. + + Workspace example: + These two lines (executed at once, not line by line) + p := [] newProcess resume. + p suspendedContext: nil + will freeze the image; the first line puts p in the run queue, the second line niles p's suspendedContext and + when the UI cycles, p tries to run with niled suspendedContext and the image freezes as a result. + + Assigning 'suspendedContext' before 'priority' is defined may cause a disaster when Process Browser is open + with auto-update on; once the 'suspendedContext' is set, the new process is no longer considered terminated + and Process Browser will try to place it in its list of processes but encounters a nil error when reading its priority + because it has not been set yet. + + Workspace example: + If you run the following line with Process Browser open and auto-update on, you'll ruin your image: + p := Process new suspendedContext: [self] asContext + Every second a new debugger window pops up and the only way out is to kill the image in the OS. + + As a precautionary measure set 'priority' if undefined to the active process priority before setting + 'suspendedContext'." - suspendedContext: aContext - "Note: assigning nil to a runnable but not active process would freeze the image when self is scheduled to run." + priority ifNil: [priority := Processor activePriority]. + suspendedContext := aContextOrNil ifNil: [self suspend. nil]! - suspendedContext := aContext ifNil: [self suspend. nil]!

1 0

The Trunk: Tests-mt.489.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.489.mcz ==================== Summary ==================== Name: Tests-mt.489 Author: mt Time: 8 June 2022, 11:27:41.098335 am UUID: 35ff43dd-2a74-4548-807c-d1927b009b20 Ancestors: Tests-mt.488 Update package-dependency tests. =============== Diff against Tests-mt.488 =============== Item was changed: ----- Method: PackageDependencyTest>>testCompiler (in category 'tests') ----- testCompiler self testPackage: #Compiler dependsExactlyOn: #( Collections Graphics Kernel System + Tools "TODO: Move DebuggerMethodMap to Compiler or CompilerTools" - #'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testCompression (in category 'tests') ----- testCompression self testPackage: #Compression dependsExactlyOn: #( #'Chronology-Core' Collections Files Graphics Kernel Multilingual System - #'ToolBuilder-Kernel' ).! Item was changed: ----- Method: PackageDependencyTest>>testGraphics (in category 'tests') ----- testGraphics self testPackage: #Graphics dependsExactlyOn: #( #'Chronology-Core' Collections Compression Files Kernel Multilingual System #'ToolBuilder-Kernel' + TrueType "TODO: Move #referencePointSize either to Graphics or System." ).! Item was changed: ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') ----- testPreferenceBrowser self testPackage: #PreferenceBrowser dependsExactlyOn: #( #'Chronology-Core' Collections Graphics Kernel Morphic MorphicExtras System Tools #'ToolBuilder-Morphic' "Work in progress. Should become ToolBuilder --pre" + #'ToolBuilder-Kernel' "Some GUI constants needed for manual browser construction." 'Installer-Core' "Because preference wizard can install extra packages." MonticelloConfigurations "Because preference wizard needs to start update silently." + ShoutCore "Because preference wizard offers Shout as pragma preference." ).! Item was changed: ----- Method: PackageDependencyTest>>testTrueType (in category 'tests') ----- testTrueType self testPackage: #TrueType dependsExactlyOn: #( Collections Balloon Files Graphics Kernel Multilingual System - #'ToolBuilder-Kernel' ).!

1 0

The Trunk: MorphicExtras-mt.316.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.316.mcz ==================== Summary ==================== Name: MorphicExtras-mt.316 Author: mt Time: 8 June 2022, 11:03:18.774735 am UUID: b7c29259-bee0-8842-b8eb-f4382c8cf136 Ancestors: MorphicExtras-ct.315 Removes dependency to ST80. =============== Diff against MorphicExtras-ct.315 =============== Item was changed: ----- Method: PolygonMorph class>>extraCircularVertices (in category '*MorphicExtras-examples') ----- extraCircularVertices + self flag: #note. "Cannot use Circle because it is in the ST80 package." + ^ {400@100. 477@115. 541@159. 585@223. 600@300. 600@300. 585@377. 541@441. 477@485. 400@500. 400@500. 438@492. 471@471. 492@438. 500@400. 500@400. 492@362. 471@329. 438@308. 400@300. 400@300. 362@292. 329@271. 308@238. 300@200. 300@200. 308@162. 329@129. 362@108. 400@100} + + " ^ ((Circle center: 400 @ 300 radius: 200 quadrant: 1) computeVertices: 5) reverse - ^ ((Circle center: 400 @ 300 radius: 200 quadrant: 1) computeVertices: 5) reverse , ((Circle center: 400 @ 300 radius: 200 quadrant: 4) computeVertices: 5) reverse , ((Circle center: 400 @ 400 radius: 100 quadrant: 4) computeVertices: 5) , ((Circle center: 400 @ 400 radius: 100 quadrant: 1) computeVertices: 5) , ((Circle center: 400 @ 200 radius: 100 quadrant: 3) computeVertices: 5) reverse + , ((Circle center: 400 @ 200 radius: 100 quadrant: 2) computeVertices: 5) reverse"! - , ((Circle center: 400 @ 200 radius: 100 quadrant: 2) computeVertices: 5) reverse!

1 0

The Trunk: Morphic-mt.2002.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2002.mcz ==================== Summary ==================== Name: Morphic-mt.2002 Author: mt Time: 8 June 2022, 10:56:32.803735 am UUID: 9d283036-ade4-804e-aecb-f285ad9056f0 Ancestors: Morphic-mt.2001 Removes hard dependency to WebClient. =============== Diff against Morphic-mt.2001 =============== Item was added: + ----- Method: AnimatedImageMorph class>>fromUrl: (in category 'instance creation') ----- + fromUrl: aUrl + + ^ self new fromUrl: aUrl! Item was changed: ----- Method: AnimatedImageMorph>>fromUrl: (in category 'initialization') ----- fromUrl: aUrl + + | client response | + client := self environment classNamed: #WebClient. + self flag: #todo. "mt: Use AppRegistry to download stuff from the Internet." + client ifNil: [ self error: 'No WebClient installed' ]. + response := client httpGet: aUrl. + (response code = 200) not ifTrue: [ self error: 'Bad URL or response' ]. + ((response headerAt: 'Content-Type') = 'image/gif') not + ifTrue: [ self error: 'Url does not respond with a gif, but a ', (response headerAt: 'Content-Type')]. + ^ self fromStream: response content asByteArray readStream.! - | request | - request := WebClient httpDo: [ :client | client httpGet: aUrl ]. - (request code = 200) not ifTrue: [ Error signal: 'Bad URL or Request' ]. - ((request headerAt: 'Content-Type') = 'image/gif') not - ifTrue: [ Error signal: 'Url does not respond with a gif, but a ', (request headerAt: 'Content-Type')]. - ^ self fromStream: request content asByteArray readStream.!

1 0

The Trunk: Compiler-mt.476.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.476.mcz ==================== Summary ==================== Name: Compiler-mt.476 Author: mt Time: 8 June 2022, 10:42:27.222735 am UUID: d483550a-4266-d947-a037-f15166cb68c9 Ancestors: Compiler-ct.475 Remove dependency to 'ToolBuilder-Kernel' package. =============== Diff against Compiler-ct.475 =============== Item was changed: ----- Method: Parser>>defineClass: (in category 'error correction') ----- defineClass: className "prompts the user to define a new class, asks for it's category, and lets the users edit further the definition" | sym cat def d2 | sym := className asSymbol. + cat := Project uiManager request: 'Enter class category : ' initialAnswer: self encoder classEncoding theNonMetaClass category. - cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding theNonMetaClass category. cat ifEmpty: [cat := 'Unknown']. def := 'Object subclass: #' , sym , ' instanceVariableNames: '''' classVariableNames: '''' poolDictionaries: '''' category: ''' , cat , ''''. + d2 := Project uiManager request: 'Edit class definition : ' initialAnswer: def. - d2 := UIManager default request: 'Edit class definition : ' initialAnswer: def. d2 ifEmpty: [d2 := def]. Compiler evaluate: d2. ^ encoder global: (cue environment bindingOf: sym) name: sym!

1 0

The Trunk: Morphic-mt.2001.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2001.mcz ==================== Summary ==================== Name: Morphic-mt.2001 Author: mt Time: 8 June 2022, 10:29:15.761735 am UUID: 7a31acaf-9eb6-6244-8e53-0edd2be3d932 Ancestors: Morphic-mt.2000 Revise previous commit. Sorry for the noise. =============== Diff against Morphic-mt.2000 =============== Item was changed: ----- Method: LegacyShortcutsFilter class>>filterEvent:for: (in category 'event filter') ----- filterEvent: aKeyboardEvent for: textMorph aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifFalse: [^ aKeyboardEvent]. Preferences cmdKeysInText ifFalse: [^ aKeyboardEvent]. (Smalltalk platformName = 'Mac OS' and: [aKeyboardEvent shiftPressed]) ifTrue: ["Work around an issue in the VM where SHIFT is not honored in the KeyChar event's character. This should only be the case for KeyDown events to encode virtual-key presses. The VM should not do this for KeyChar events. Works for U.S. keyboard layout only." aKeyboardEvent keyValue: ( aKeyboardEvent keyCharacter caseOf: { [$9] -> [$(]. [$0] -> [$)]. [$,] -> [$<]. [$.] -> [$>]. [$[] -> [${]. [$]] -> [$}]. [$'] -> [$"] } otherwise: [aKeyboardEvent keyCharacter]) asInteger]. ('()[]{}|''"<>' includes: aKeyboardEvent keyCharacter) ifTrue: [textMorph + handleInteraction: [(textMorph editor enclose: aKeyboardEvent toggleOnly: true) + ifTrue: [aKeyboardEvent ignore]] - handleInteraction: [(textMorph editor enclose: aKeyboardEvent) ifTrue: [aKeyboardEvent ignore]] fromEvent: aKeyboardEvent]. ^ aKeyboardEvent " Preferences cmdKeysInText Preferences cmdGesturesEnabled Preferences honorDesktopCmdKeys PasteUpMorph globalCommandKeysEnabled. "! Item was changed: Editor subclass: #TextEditor instanceVariableNames: 'model paragraph markBlock pointBlock beginTypeInIndex emphasisHere lastParenLocation otherInterval oldInterval typeAhead history' classVariableNames: 'AutoEnclose AutoIndent ChangeText EncloseSelection FindText InteractivePrintIt' + poolDictionaries: '' - poolDictionaries: 'LegacyShortcutsFilter' category: 'Morphic-Text Support'! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! !TextEditor commentStamp: '<historical>' prior: 0! See comment in Editor. My instances edit Text, this is, they support multiple lines and TextAttributes. They have no specific facilities for editing Smalltalk code. Those are found in SmalltalkEditor.! TextEditor class instanceVariableNames: 'cmdActions shiftCmdActions yellowButtonMenu shiftedYellowButtonMenu'! Item was changed: ----- Method: TextEditor>>enclose: (in category 'editing keys') ----- enclose: aKeyboardEvent + ^ self enclose: aKeyboardEvent toggleOnly: false! - ^ self enclose: aKeyboardEvent toggleOnly: LegacyShortcutsEnabled == true!

1 0

The Trunk: ST80Tests-mt.8.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of ST80Tests to project The Trunk: http://source.squeak.org/trunk/ST80Tests-mt.8.mcz ==================== Summary ==================== Name: ST80Tests-mt.8 Author: mt Time: 8 June 2022, 10:17:41.464735 am UUID: 8f099752-f5a5-0d4d-af34-bd08c99db19f Ancestors: ST80Tests-nice.7 ST80 no longer depends on Files. =============== Diff against ST80Tests-nice.7 =============== Item was changed: ----- Method: ST80PackageDependencyTest>>testST80 (in category 'tests') ----- testST80 self testPackage: #ST80 dependsExactlyOn: #( #'Chronology-Core' Collections Compiler - Files Graphics Kernel Morphic Multilingual SUnit System #'ToolBuilder-Kernel' Tools ).!

1 0

The Trunk: System-mt.1355.mcz
by commits＠source.squeak.org 08 Jun '22

08 Jun '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1355.mcz ==================== Summary ==================== Name: System-mt.1355 Author: mt Time: 8 June 2022, 9:29:18.447101 am UUID: fddf7561-4fb7-1a4d-9040-3007d78dedf2 Ancestors: System-mt.1354 Quickfix for making image-segment loading work again for image formats 68533 and 7033. See commentary. =============== Diff against System-mt.1354 =============== Item was changed: ----- Method: NativeImageSegment>>loadSegmentFrom:outPointers: (in category 'read/write segment primitives') ----- loadSegmentFrom: segmentWordArray outPointers: outPointerArray "Load segmentWordArray into the memory. Adapt the primitive to the new API, which is to answer the array of loaded objects, the first of which should be the array of roots. The primitive will install a binary image segment and return as its value the array of roots of the tree of objects represented. Upon successful completion, the wordArray will have been becomed into anArray of the loaded objects. So simply answer the segmentWordArray which will have becommed." | segmentFormat | segmentFormat := self segmentFormatFrom: segmentWordArray first. + self flag: #discuss. "mt: Should the version for image segments consider or ignore that extra flag for multiple byte-code sets? See primitive 98 or #storeSegmentFor:into:outPointers:." + segmentFormat = (Smalltalk imageFormatVersion bitClear: 512 "MultipleBytecodeSetsBitmask") ifTrue: - segmentFormat = Smalltalk imageFormatVersion ifTrue: [^(self primitiveLoadSegmentFrom: segmentWordArray outPointers: outPointerArray) ifNil: [self error: 'segment load failed'] ifNotNil: [segmentWordArray]]. segmentFormat >= 68000 ifTrue: [Smalltalk wordSize = 4 ifTrue: [^(Spur64BitImageSegmentLoader new loadSegmentFrom: segmentWordArray outPointers: outPointerArray)]] ifFalse: [Smalltalk wordSize = 8 ifTrue: [^(Spur32BitImageSegmentLoader new loadSegmentFrom: segmentWordArray outPointers: outPointerArray)]]. self error: 'segment version unrecognized'!

1 0

← Newer
1
...
24
25
26
27
28
29
30
31
Older →

Jump to page: