[Seaside-dev] Constructing the <head> and <body> tag in Seaside 2.9?

Sun May 24 19:15:22 UTC 2009

On May 24, 2009, at 10:41 AM, Conrad Taylor wrote:

> Does Gemstone/S support Seaside 2.9 a2 or a3?

Conrad,

As I believe others have mentioned elsewhere, 2.9 is still in a  
significant state of flux and not really "supported" anywhere,  
particularly in GemStone. On the other hand, the pieces are all out  
there for you to try out. The following Topaz script loads Seaside 2.9  
into a GemStone 64 Bit 2.3 repository and runs all the tests. We have  
only a few more failures than the standard Seaside in Pharo.

James

! Topaz script to load and test Seaside 2.9 in GemStone 2.3
!
ifError stack
errorCount
output push buildSeaside.out only
! 2009-05-02 15:00:00
errorCount
status

run
UserGlobals at: #BootStrapSymbolDictionaryName put: #UserGlobals.
true
%
commit

input $GEMSTONE/seaside/topaz/installMonticello.topaz
! return from installMonticello.topaz
errorCount
run
UserGlobals removeKey: #BootStrapSymbolDictionaryName.
true
%
commit

run
| httpRepository |
httpRepository := MCHttpRepository
     location: 'http://seaside.gemstone.com/ss/monticello'
     user: ''
     password: ''.
#[	
	'Squeak-rjl.192.mcz',
	'GemStone-Exceptions-dkh.32.mcz',

] do: [:fileName | | version rg |
     version := httpRepository loadVersionFromFileNamed: fileName.
     version load.
     rg := version workingCopy repositoryGroup.
     rg addRepository: httpRepository.
].
true
%
errorCount
commit

run
| httpRepository |
httpRepository := MCHttpRepository
     location: 'http://seaside.gemstone.com/ss/GLASS'
     user: ''
     password: ''.
#[	
	'OmniBrowser-dkh.439.mcz',
] do: [:fileName | | version rg |
     version := httpRepository loadVersionFromFileNamed: fileName.
     version load.
     rg := version workingCopy repositoryGroup.
     rg addRepository: httpRepository.
].
true
%
errorCount
commit

expectValue %SmallInteger
run

| gemSource squeakSource list |
gemSource := MCHttpRepository
     location: 'http://seaside.gemstone.com/ss/Seaside29'
     user: ''
     password: ''.
squeakSource := MCHttpRepository
     location: 'http://www.squeaksource.com/Seaside29'
     user: ''
     password: ''.
list := OrderedCollection new

	add: squeakSource	-> 'Seaside-Platform-lr.63.mcz';
	add: gemSource		-> 'Seaside-GemStone-Platform-jgf.32.mcz';
	add: squeakSource	-> 'Seaside-Tests-Platform-lr.75.mcz';
	add: gemSource		-> 'Seaside-Tests-GemStone-Platform-jgf.6.mcz';

	add: squeakSource	-> 'Seaside-Core-lr.510.mcz';
	add: gemSource		-> 'Seaside-GemStone-Core-jgf.29.mcz';
	add: squeakSource	-> 'Seaside-Tests-Core-lr.124.mcz';
	add: gemSource		-> 'Seaside-Tests-GemStone-Core-jgf.4.mcz';

	add: squeakSource	-> 'Seaside-Canvas-lr.58.mcz';
	add: squeakSource	-> 'Seaside-Tests-Canvas-jf.26.mcz';

	add: squeakSource	-> 'Seaside-Session-lr.110.mcz';
	add: gemSource		-> 'Seaside-GemStone-Continuation-jgf.8.mcz';
	add: squeakSource	-> 'Seaside-Tests-Session-jf.23.mcz';

	add: squeakSource	-> 'Seaside-Component-jf.65.mcz';
	add: squeakSource	-> 'Seaside-Tests-Component-lr.22.mcz';

	add: squeakSource	-> 'Seaside-RenderLoop-lr.63.mcz';
	add: squeakSource	-> 'Seaside-Tests-RenderLoop-lr.8.mcz';	"No new  
tests"

	add: squeakSource	-> 'Seaside-Tools-Core-jgf.7.mcz';

	add: squeakSource	-> 'Seaside-Environment-jf.52.mcz';
	add: squeakSource	-> 'Seaside-Tests-Environment-jf.14.mcz';

	add: squeakSource	-> 'Seaside-Tests-Functional-lr.77.mcz';

	add: squeakSource	-> 'Seaside-Flow-lr.14.mcz';
	add: squeakSource	-> 'Seaside-Tests-Flow-obi.13.mcz';

	add: squeakSource	-> 'Seaside-Tools-Web-jf.4.mcz';
	add: squeakSource	-> 'Seaside-Tests-Tools-Web-lr.2.mcz';

	add: squeakSource	-> 'Seaside-Development-lr.108.mcz';
	add: gemSource		-> 'Seaside-GemStone-Development-jgf.5.mcz';
	add: squeakSource	-> 'Seaside-Tests-Development-jf.31.mcz';

	add: squeakSource	-> 'Seaside-Examples-lr.12.mcz';

	add: squeakSource	-> 'Seaside-Tools-OmniBrowser-lr.6.mcz';

	add: squeakSource	-> 'RSS-Core-lr.48.mcz';
	add: squeakSource	-> 'RSS-Tests-Core-jf.19.mcz';
	add: squeakSource	-> 'RSS-Examples-jf.17.mcz';

	add: squeakSource	-> 'Javascript-Core-lr.50.mcz';
	add: gemSource		-> 'Javascript-GemStone-Core-jgf.3.mcz';
	add: squeakSource	-> 'Javascript-Tests-Core-lr.36.mcz';
"
	add: squeakSource	-> 'JQuery-Core-lr.61.mcz';
	add: squeakSource	-> 'JQuery-Tests-Core-lr.77.mcz';
	add: squeakSource	-> 'JQuery-UI-lr.34.mcz';
	add: squeakSource	-> 'JQuery-Tests-UI-lr.47.mcz';
"
	add: squeakSource	-> 'Scriptaculous-Core-lr.81.mcz';
	add: gemSource		-> 'Scriptaculous-GemStone-Core-jgf.1.mcz';
	add: squeakSource	-> 'Scriptaculous-Tests-Core-jok.28.mcz';
	add: squeakSource	-> 'Scriptaculous-Components-lr.81.mcz';
	add: squeakSource	-> 'Scriptaculous-Tests-Components-lr.21.mcz';

	add: squeakSource	-> 'Seaside-HTML5-lr.5.mcz';
	add: squeakSource	-> 'Seaside-Tests-HTML5-lr.10.mcz';

	add: squeakSource	-> 'Seaside-InternetExplorer-lr.4.mcz';
	add: squeakSource	-> 'Seaside-Tests-InternetExplorer-lr.6.mcz';

	add: squeakSource	-> 'Seaside-Email-lr.10.mcz';
	add: squeakSource	-> 'Seaside-Tests-Email-pmm.5.mcz';
	add: squeakSource	-> 'Seaside-Squeak-Email-pmm.6.mcz';

	yourself.
list do: [:assoc |
	| repository fileName version rg |
	repository := assoc key.
	fileName := assoc value.
     version := repository loadVersionFromFileNamed: fileName.
     version load.
     rg := version workingCopy repositoryGroup.
     rg addRepository: repository.
].
list size
%
errorCount
commit

expectValue %SmallInteger
run

| gemSource squeakSource list |
gemSource := MCHttpRepository
     location: 'http://seaside.gemstone.com/ss/KomHttpServer'
     user: ''
     password: ''.
squeakSource := MCHttpRepository
     location: 'http://www.squeaksource.com/Seaside29'
     user: ''
     password: ''.
list := OrderedCollection new
"
	add: gemSource		-> 'DynamicBindings-jgf.10.mcz';
	add: gemSource		-> 'KomServices-gc.19.mcz';
	add: gemSource		-> 'KomHttpServer-jgf.45.mcz';
	add: squeakSource	-> 'Seaside-Adaptors-Comanche-lr.28.mcz';
	add: squeakSource	-> 'Seaside-Tests-Adaptors-Comanche-lr.7.mcz';
"
	yourself.
list do: [:assoc |
	| repository fileName version rg |
	repository := assoc key.
	fileName := assoc value.
     version := repository loadVersionFromFileNamed: fileName.
     version load.
     rg := version workingCopy repositoryGroup.
     rg addRepository: repository.
].
list size
%
errorCount
commit
run
"HttpResponse initialize."
true.
%
commit

expectValue %SmallInteger
run
| httpRepository list |
httpRepository := MCHttpRepository
     location: 'http://seaside.gemstone.com/ss/fastcgi'
     user: ''
     password: ''.
list := #[

	'FastCGIPool-dkh.2.mcz',
	'FastCGI-jgf.25.mcz',
	'FastCGISeaside-dkh.44.mcz',
	'FastCGISeaside_29-dkh.11.mcz',

].
list do: [:fileName | | version rg |
     version := httpRepository loadVersionFromFileNamed: fileName.
     version load.
     rg := version workingCopy repositoryGroup.
     rg addRepository: httpRepository.
].
list size
%
errorCount
commit

expectValue %String
run
(UserGlobals at: #Seaside_Tests put: TestCase suite run) printString.
%

expectValue %String
run
| list stream |
list := Seaside_Tests failures asArray , Seaside_Tests errors asArray.
list := list collect: [:each | each printString].
list := list asSortedCollection.
stream := WriteStream on: String new.
list do: [:each |
	stream cr; nextPutAll: each.
].
stream cr; contents.
%
commit

logout
errorCount
output pop
! return from buildSeaside.out
errorCount
exit