The Trunk: NetworkTests-nice.12.mcz

Nicolas Cellier uploaded a new version of NetworkTests to project The Trunk:
http://source.squeak.org/trunk/NetworkTests-nice.12.mcz

==================== Summary ====================

Name: NetworkTests-nice.12
Author: nice
Time: 28 March 2010, 10:32:08.362 pm
UUID: a03700cf-6d76-41bf-81cd-88ee52e136dc
Ancestors: NetworkTests-nice.11

Replace some _ assignments

=============== Diff against NetworkTests-nice.11 ===============

Item was changed:
  ----- Method: TestURI classSide>>generateNormalResolverTests (in category 'test generation') -----
  generateNormalResolverTests
  "TestURI generateNormalResolverTests"
 
  | relURIString result method testPairs pair |
 
+ testPairs := #(
- 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 |
- 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: ' 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 changed:
  ----- Method: TestURI classSide>>generateAbnormalResolverTests (in category 'test generation') -----
  generateAbnormalResolverTests
  "TestURI generateAbnormalResolverTests"
 
  | relURIString result method testPairs pair |
 
+ testPairs := #(
- 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 |
- 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: ' 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'].
  !