WACookieTest

• go

	[self session checkForCookies]
		whileFalse: [self inform: 'You must have cookies enabled to proceed.'].
	self session redirectWithCookie:
		(WACookie new
			key: 'cookietest';
			value: 1000 atRandom asString;
			expireIn: (Duration seconds: 60);
			yourself).
	self inform: self session currentRequest cookies asString.