Squeak-dev July 2023

squeak-dev@lists.squeakfoundation.org

21 participants
78 discussions

Class Stub generation with method compilation and correct addition to methodDictionary ( was Re: [Cryptography Team] Design evolution (was Re: Re: [Cuis-dev] [Recovered] AGAIN! This is the third /efourth time
by rabbit 14 Jul '23

14 Jul '23

Hey. I started this thread due to my corrupting my image and changes when generating classes and compiling methods incorrectly. Would someone be able to guide me through correct class and method generation, please? Gratefully, rabbit ❤️‍🔥🐰 >>> On Sun, Jul 9, 2023 at 11:55, rabbit via Cuis-dev <[cuis-dev@lists.cuis.st](mailto:On Sun, Jul 9, 2023 at 11:55, rabbit via Cuis-dev <<a href=)> wrote: >>> >>>> Hey, I am a touch frustrated. Recovered with <49>. The code I wrote to generate classes and methods has been corrupting my image, or rather mucking to the changes. I was having old code versions being loaded and breaking bad. I was publishing a lot of garbage because when running the BoxOfKittens, I was generating several SharedNears, now called Neighbors. This subclass generation and the method compilation is being done it the following methods...I am just going to leave it turned off for now and stay focused on my objective. It is an example of corruption occurring, if that helps anyone. If one could tell me how to better generate these artifacts, that would be outstanding!• >>>> >>>> ••• >>>> >>>> The #buildOnClass is called from a class creation method >>>> >>>>> buildOnClass: eClazz >>>>> >>>>> |refClass | >>>>> refClass := self stubClass >>>>> subclass: (eClazz name, 'Stub') asSymbol >>>>> instanceVariableNames: '' >>>>> classVariableNames: '' >>>>> poolDictionaries: '' >>>>> category: self userClassCategoryString. >>>>> >>>>> "Copy all methods, up to Object, to the new refClass, with redirectMessage forwarding." >>>>> self copyMethodsToClass: refClass fromClass: eClazz upToClass: Object. >>>>> >>>>> ^ refClass >>>> >>>>> ••• >>>> >>>>> copyMethodsToClass: refClass fromClass: valueClazz upToClass: rootClass >>>> >>>>> | arguments classes newMethodString | >>>>> "Collect classes to contribute message protocol." >>>>> classes := valueClazz allSuperclasses select: [ :clazz | (Object ~~ rootClass) and: [ Object inheritsFrom: clazz] ]. >>>>> >>>>> "contribute message protocols." >>>>> classes do: [:thisClazz | >>>>> thisClazz methodDictionary keysAndValuesDo: [:selector :method | >>>>> arguments := method tempNames first: method numArgs. >>>>> newMethodString := self buildForwardingMethod: selector contents arguments: arguments. >>>>> Compiler >>>>> compile: newMethodString >>>>> environment: refClass environment >>>>> notifying: nil >>>>> trailer: method trailer >>>>> ifFail: [nil]]]. >>>>> >>>>> ••• >>>>> >>>>> buildForwardingMethod: selector arguments: arguments >>>>> >>>>> | argumentString selectorStream | >>>>> argumentString := ((arguments inject: ''writeStream into: [:stream :argument | stream nextPutAll: argument, ' ']) contents). >>>>> selectorStream := '' writeStream. >>>>> (selector subStrings: $:) with: arguments do: [:keyword :argument | selectorStream nextPutAll: keyword, ': ', argument, ' ']. >>>>> ^ selectorStream contents, ' >>>>> >>>>> ^self redirectMessage: (Message selector: ', selector asSymbol printString, ' arguments: #{', argumentString, '}).' >>>> >>>> Alright then, >>>> >>>> -- >>>> ••• rabbit ❤️‍🔥🐰

1 0

[Recovered] AGAIN! This is the third /efourth time
by rabbit 11 Jul '23

11 Jul '23

Hey, I am a touch frustrated. Recovered with <49>. The code I wrote to generate classes and methods has been corrupting my image, or rather mucking to the changes. I was having old code versions being loaded and breaking bad. I was publishing a lot of garbage because when running the BoxOfKittens, I was generating several SharedNears, now called Neighbors. This subclass generation and the method compilation is being done it the following methods...I am just going to leave it turned off for now and stay focused on my objective. It is an example of corruption occurring, if that helps anyone. If one could tell me how to better generate these artifacts, that would be outstanding!• ••• The #buildOnClass is called from a class creation method > buildOnClass: eClazz > > |refClass | > refClass := self stubClass > subclass: (eClazz name, 'Stub') asSymbol > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: self userClassCategoryString. > > "Copy all methods, up to Object, to the new refClass, with redirectMessage forwarding." > self copyMethodsToClass: refClass fromClass: eClazz upToClass: Object. > > ^ refClass > ••• > copyMethodsToClass: refClass fromClass: valueClazz upToClass: rootClass > | arguments classes newMethodString | > "Collect classes to contribute message protocol." > classes := valueClazz allSuperclasses select: [ :clazz | (Object ~~ rootClass) and: [ Object inheritsFrom: clazz] ]. > > "contribute message protocols." > classes do: [:thisClazz | > thisClazz methodDictionary keysAndValuesDo: [:selector :method | > arguments := method tempNames first: method numArgs. > newMethodString := self buildForwardingMethod: selector contents arguments: arguments. > Compiler > compile: newMethodString > environment: refClass environment > notifying: nil > trailer: method trailer > ifFail: [nil]]]. > > ••• > > buildForwardingMethod: selector arguments: arguments > > | argumentString selectorStream | > argumentString := ((arguments inject: ''writeStream into: [:stream :argument | stream nextPutAll: argument, ' ']) contents). > selectorStream := '' writeStream. > (selector subStrings: $:) with: arguments do: [:keyword :argument | selectorStream nextPutAll: keyword, ': ', argument, ' ']. > ^ selectorStream contents, ' > > ^self redirectMessage: (Message selector: ', selector asSymbol printString, ' arguments: #{', argumentString, '}).' Alright then, -- ••• rabbit ❤️‍🔥🐰

1 2

XTreams tests erroring out. Not sure how to best fix this.
by gettimothy 10 Jul '23

10 Jul '23

Error: Unable to find function address. This is in XTLibCryptoHash EVP_MD_CTX_init: ctx <cdecl: void 'EVP_MD_CTX_init' (XTEVPMDCTX*) module: 'libcrypto'> ^self externalCallFailed I am on slackware Linux, and they use /lib64 for the main library. In my typical "flail about exporting LD_LIBRARY_PATH" style, I exported LD_LIBRARY_PATH to that libcrypto directory... bash-5.1$ ldd libcrypto.so linux-vdso.so.1 (0x00007fffb07e1000) libz.so.1 => /lib64/libz.so.1 (0x00007fed24be6000) libdl.so.2 => /lib64/libdl.so.2 (0x00007fed24be1000) libpthread.so.0 => /lib64/libpthread.so.0 (0x00007fed24bc0000) libc.so.6 => /lib64/libc.so.6 (0x00007fed249e1000) /lib64/ld-linux-x86-64.so.2 (0x00007fed24f19000) bash-5.1$ I could downgrade to an earlier version, as that work wonderfully, but, hey!, its shiny and new. Suggestions appreciated. cordially, tty Image ----- /home/wm/usr/src/smalltalk/WIKITEXTSAXTODBPARSER/shared/Squeak6.1alpha-22666-64bit.image Squeak6.1alpha latest update: #22667 Current Change Set: HomeProject Image format 68533 (64 bit) Preferred bytecode set: SistaV1 Virtual Machine --------------- /home/wm/usr/src/smalltalk/WIKITEXTSAXTODBPARSER/bin/squeak Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-dtl.3185] Unix built on Jun 2 2022 15:26:05 Compiler: Clang 9.0.0 (tags/RELEASE_900/final) platform sources revision VM: 202206021410 runner@fv-az125-921:work/opensmalltalk-vm/opensmalltalk-vm Date: Thu Jun 2 16:10:44 2022 CommitHash: c9fd365 Plugins: 202206021410 runner@fv-az125-921:work/opensmalltalk-vm/opensmalltalk-vm CoInterpreter VMMaker.oscog-dtl.3185 uuid: 0e7f07b8-eed6-4362-b223-86c98594ddb9 Jun 2 2022 StackToRegisterMappingCogit VMMaker.oscog-mt.3179 uuid: c6fbcb07-2a19-ed4f-8b40-9c119a70882a Jun 2 2022

2 6

The Trunk: Compiler-pre.492.mcz
by commits＠source.squeak.org 10 Jul '23

10 Jul '23

Patrick Rein uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-pre.492.mcz ==================== Summary ==================== Name: Compiler-pre.492 Author: pre Time: 10 July 2023, 12:03:00.223343 pm UUID: c875230e-fdc5-7c4a-852b-ba612d9311c3 Ancestors: Compiler-mt.491 Fixes the error description occurring when trying to send a future to super. =============== Diff against Compiler-mt.491 =============== Item was changed: ----- Method: FutureNode>>sizeCodeForBlockValue: (in category 'code generation') ----- sizeCodeForBlockValue: encoder + receiver == NodeSuper ifTrue: [^self error: 'Futures cannot send to super']. - receiver == NodeSuper ifTrue: [^self error: 'Futures cannot send to future']. (futureArgs isNil or: [futureSelector isNil]) ifTrue: [^self error: 'Futures must be sent messages']. encoder sharableLitIndex: originalSelector. "to find its senders" futureDelta ifNil:[futureDelta := encoder encodeLiteral: 0]. effectNode := MessageNode new receiver: receiver selector: #futureDo:at:args: arguments: (Array with: (encoder encodeLiteral: futureSelector) with: futureDelta with: (BraceNode new elements: futureArgs)) precedence: 3 from: encoder. ^effectNode sizeCodeForValue: encoder!

1 0

The Trunk: Collections-dtl.1047.mcz
by commits＠source.squeak.org 10 Jul '23

10 Jul '23

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.1047.mcz ==================== Summary ==================== Name: Collections-dtl.1047 Author: dtl Time: 9 July 2023, 11:21:58.485864 pm UUID: bdc3ad20-7703-45aa-83ed-347892b0aea6 Ancestors: Collections-ct.1046 Deprecate SequenceableCollection>>checkedAt: which is no longer referenced in the image and has been functionally redundant for many years. SequenceableCollection>>at: provides equivalent bounds checking. =============== Diff against Collections-ct.1046 =============== Item was removed: - ----- Method: SequenceableCollection>>checkedAt: (in category 'private') ----- - checkedAt: index - index > self size ifTrue: [self error: 'not enough elements']. - ^ self at: index!

2 1

The Trunk: 61Deprecated-dtl.8.mcz
by commits＠source.squeak.org 10 Jul '23

10 Jul '23

David T. Lewis uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-dtl.8.mcz ==================== Summary ==================== Name: 61Deprecated-dtl.8 Author: dtl Time: 9 July 2023, 11:22:20.267235 pm UUID: a299b66c-01de-49f5-86d7-a5756df899b5 Ancestors: 61Deprecated-ct.7 Deprecate SequenceableCollection>>checkedAt: which is no longer referenced in the image and has been functionally redundant for many years. SequenceableCollection>>at: provides equivalent bounds checking. =============== Diff against 61Deprecated-ct.7 =============== Item was added: + ----- Method: SequenceableCollection>>checkedAt: (in category '*61Deprecated-Collections') ----- + checkedAt: index + self deprecated: 'Use #at: which provides equivalent bounds checking'. + index > self size ifTrue: [self error: 'not enough elements']. + ^ self at: index!

1 0

The Inbox: Network-tpr.281.mcz
by commits＠source.squeak.org 09 Jul '23

09 Jul '23

A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-tpr.281.mcz ==================== Summary ==================== Name: Network-tpr.281 Author: tpr Time: 6 July 2023, 4:47:54.419547 pm UUID: 72a96109-ef1b-435a-91ad-20428e13d2d9 Ancestors: Network-tpr.280 Add some more commentary to more Socket examples/tests, plus find ncat simulation commands that can allow testing to suceed. It would be nice if we could get those services runing on squeak.org =============== Diff against Network-tpr.280 =============== Item was changed: ----- Method: Socket class>>ping: (in category 'utilities') ----- ping: hostName "kinda-Ping the given host. Useful for checking network connectivity. The host *must* be running a TCP echo server - note that these days very few actually do so and thus you may need to install one. Fortunately this is usually fairly simple; on a Ubuntu type linux system sudo apt install ncat sudo ncat -l 7 --keep-open --exec '/bin/cat' ... ought to work. Ctrl-c to kill the ersatz echoserver when you are done testing. + The ping command in a terminal uses a completely different protocol involving ICMP sockets and sacrifices to the Moon etc." "Socket ping: 'squeak.cs.uiuc.edu'" | tcpPort sock serverAddr startTime echoTime | tcpPort := 7. "7 = echo port, 13 = time port, 19 = character generator port" serverAddr := NetNameResolver addressForName: hostName timeout: 10. serverAddr ifNil: [ ^self inform: 'Could not find an address for ', hostName ]. sock := Socket new. sock connectNonBlockingTo: serverAddr port: tcpPort. [sock waitForConnectionFor: 10] on: ConnectionTimedOut do: [:ex | (self confirm: 'Continue to wait for connection to ', hostName, '?') ifTrue: [ex retry] ifFalse: [ sock destroy. ^ self]]. sock sendData: 'echo!!'. startTime := Time millisecondClockValue. [sock waitForDataFor: 15] on: ConnectionTimedOut do: [:ex | (self confirm: 'Packet sent but no echo yet; keep waiting?') ifTrue: [ex retry]]. echoTime := Time millisecondClockValue - startTime. sock destroy. self inform: hostName, ' responded in ', echoTime printString, ' milliseconds'. ! Item was changed: ----- Method: Socket class>>sendTest (in category 'tests') ----- sendTest "Send data to the 'discard' socket of the given host. + Tests the speed of one-way data transfers across the network to the given host. + The host *must* be running a TCP discard server - note that these days very few actually do so and thus you may need to install one. Fortunately this is usually fairly simple; on a Ubuntu type linux system + sudo apt install ncat + sudo ncat -l --keep-open 9 --recv-only > /dev/null + ... ought to work. Ctrl-c to kill the ersatz server when you are done testing. " - Tests the speed of one-way data transfers across the - network to the given host. Note that most hosts - do not run a discard server." "Socket sendTest" | sock bytesToSend sendBuf bytesSent t serverName serverAddr | Transcript cr; show: 'starting send test'; cr. self initializeNetwork. serverName := UIManager default request: 'What is the destination server?' initialAnswer: 'create.ucsb.edu'. serverAddr := NetNameResolver addressForName: serverName timeout: 10. serverAddr = nil ifTrue: [^self inform: 'Could not find an address for ' , serverName]. sock := self new. Transcript show: '---------- Connecting ----------';cr. sock connectTo: serverAddr port: 9. sock isConnected ifFalse: [ sock destroy. ^self inform: 'could not connect']. Transcript show: 'connection established; sending data'; cr. bytesToSend := 1000000. sendBuf := String new: 64 * 1024 withAll: $x. bytesSent := 0. t := Time millisecondsToRun: [[bytesSent < bytesToSend] whileTrue: [sock sendDone ifTrue: [bytesSent := bytesSent + (sock sendSomeData: sendBuf)]]]. sock waitForSendDoneFor: self standardTimeout. sock destroy. Transcript show: '---------- Connection Closed ----------'; cr; show: 'send test done; time = ' , t printString; cr; show: (bytesToSend asFloat / t printShowingMaxDecimalPlaces: 2), ' * 1000 bytes/sec';cr;endEntry! Item was changed: ----- Method: Socket class>>timeTest (in category 'examples') ----- timeTest + "Attempt to connect to an ntp server running a TCP 'daytime' service. Not all do, but as of 2023 the below nist server does. + The host *must* be running a TCP daytime server - note that these days very few actually do so and thus you may need to install one. Fortunately this is usually fairly simple; on a Ubuntu type linux system + sudo apt install ncat + sudo ncat -l 13 --keep-open --send-only --exec '/bin/date' + ... ought to work. Ctrl-c to kill the ersatz server when you are done testing. " "Socket timeTest" | serverName serverAddr s | Transcript show: 'initializing network ... '. self initializeNetwork. Transcript show: 'ok'; cr. serverName := UIManager default request: 'What is your time server?' + initialAnswer: 'time.nist.gov'. - initialAnswer: 'localhost'. serverName isEmpty ifTrue: [^Transcript show: 'never mind'; cr]. serverAddr := NetNameResolver addressForName: serverName timeout: 10. serverAddr = nil ifTrue: [self error: 'Could not find the address for ' , serverName]. s := self new. Transcript show: '---------- Connecting ----------'; cr. s connectTo: serverAddr port: 13. "13 is the 'daytime' port number" s waitForConnectionUntil: (self deadlineSecs: 1). Transcript show: 'the time server reports: ' , s receiveData. s closeAndDestroy. Transcript show: '---------- Connection Closed ----------'; cr! Item was changed: ----- Method: Socket class>>timeTestUDP (in category 'examples') ----- timeTestUDP + "Attempt to connect to an ntp server running a 'daytime' service via UDP. Not all do, including so far as we can tell, the time,nist.gov server that handles the #timeTest method. + The host *must* be running a UDP daytime server - note that these days very few actually do so and thus you may need to install one. Fortunately this is usually fairly simple; on a Ubuntu type linux system + sudo apt install ncat + sudo ncat -l 13 --keep-open --udp --send-only --exec '/bin/date' + ... ought to work. Ctrl-c to kill the ersatz server when you are done testing. " "Socket timeTestUDP" | serverName serverAddr s | Transcript show: 'initializing network ... '. self initializeNetwork. Transcript show: 'ok'; cr. serverName := UIManager default request: 'What is your time server?' initialAnswer: 'localhost'. serverName isEmpty ifTrue: [^Transcript show: 'never mind'; cr]. serverAddr := NetNameResolver addressForName: serverName timeout: 10. serverAddr = nil ifTrue: [self error: 'Could not find the address for ' , serverName]. s := self newUDP. "a 'random' port number will be allocated by the system" "Send a packet to the daytime port and it will reply with the current date." Transcript show: '---------- Sending datagram from port ' , s port printString , ' ----------'; cr. s sendData: '!!' toHost: serverAddr port: 13. "13 is the daytime service" Transcript show: 'the time server reports: ' , s receiveData. s closeAndDestroy. Transcript show: '---------- Socket closed ----------'; cr!

2 1

[Alpha] 403 #green<Crypto-rabbt.Crypto has the kitchen sink
by rabbit 09 Jul '23

09 Jul '23

#GREEN without the FAILs Um...I brought in everything. My life's work. Crypto now includes all my work over the past 22 years. I did not realizze, it is 6.5 MBytes in size. Heh. - - All Promises <Near ! SharedNear ! Far> - - All of ParrotTalk <v3.6 ! v3.7 ! v3.9> - - SSH - - SSL - - Whisper framework - - ProtocolStateCompiler - - TraceMonitor - - ELinda Issues: I regressed, or are failing - ASN1Type definitions for Whisper / ParrotTalk. I broke it! - Connections tests for PromisesFar, EParrotTalk, SSH and SSL I introduce a name change from SchedulerVat to ECar. I added am EUICat for addDeferredUIProcess: scheduling. I also added a EHyperCat, which instantiates 3 ECats and adds a EUICat, for 4 VirtualizedSchedulers. SharedNear requires wire management over a channel (SharedQueue), so we need a Scope. This is a Good Thing, allowing Scope debugging locally. My attention is on getting EParrotTalk working. ••• rabbit ❤️‍🔥🐰

2 11

The Trunk: Chronology-Core-dtl.86.mcz
by commits＠source.squeak.org 08 Jul '23

08 Jul '23

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.86.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.86 Author: dtl Time: 8 July 2023, 12:58:08.356304 pm UUID: 5988f4f7-a957-490c-aa53-1c59e28a3179 Ancestors: Chronology-Core-dtl.85 Rearrange DateAndTime class>>now to avoid a duplicate primitiveUtcWithOffset call when using a local time zone, e.g. Olson time zone from external package TZ-Olson. Remove package preamble and postscript. =============== Diff against Chronology-Core-dtl.85 =============== Item was removed: - (PackageInfo named: 'Chronology-Core') preamble: '"below, add code to be run before the loading of this package" - - "Remember all instances of TimeZone. These will become FixedTimeZone in the postscript" - TimeZone instSize = 3 ifTrue: [ - Smalltalk at: #TimeZoneInstances put: - (Dictionary newFrom: ( - TimeZone allInstances collect: [:tz | - tz -> { tz offset . tz name . tz abbreviation }]))]. - '! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- now "Answer time now as reported by #primitiveUtcWithOffset. If the automaticTimeZone preference is false, use the offset provided by LocalTimeZone rather than the offset provided by the primitive." + | dt | + dt := self basicNew initializeFromPrimitive. self automaticTimezone + ifFalse: [dt localOffsetSeconds: (self localTimeZone offsetAt: dt) asSeconds ]. + ^dt. - ifTrue: [ ^ self basicNew initializeFromPrimitive ] - ifFalse: [ | timeArray | - timeArray := Time posixMicrosecondClockWithOffset. - ^ self utcMicroseconds: timeArray first offset: self localOffsetSeconds ] ! Item was removed: - (PackageInfo named: 'Chronology-Core') postscript: '"Let all old instances of TimeZone become FixedTimeZone" - (Smalltalk globals removeKey: #TimeZoneInstances ifAbsent: []) - ifNotNil: [ :instanceData | - instanceData keysAndValuesDo: [ :instance :data | | newInstance | - newInstance := FixedTimeZone - offset: data first - name: data second - abbreviation: data third. - instance becomeForward: newInstance ]]. - '!

1 0

The Trunk: Chronology-Tests-dtl.34.mcz
by commits＠source.squeak.org 08 Jul '23

08 Jul '23

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.34.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.34 Author: dtl Time: 1 July 2023, 9:04:36.978666 pm UUID: d99825ec-568f-4d21-9e6f-315206c7e34b Ancestors: Chronology-Tests-dtl.32 Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support. Add FixedTimeZoneTest updated from proposad by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200) =============== Diff against Chronology-Tests-dtl.32 =============== Item was changed: ----- Method: DateAndTimeEpochTest>>setUp (in category 'running') ----- setUp localTimeZoneToRestore := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. aDateAndTime := DateAndTime localTimeZone: TimeZone default; epoch. + aTimeZone := FixedTimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'. - aTimeZone := TimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'. aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 ! Item was changed: ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'tests') ----- testPrintOn | ref ws | ref := '1901-01-01T00:00:00+00:00'. ws := '' writeStream. aDateAndTime printOn: ws. self assert: ws contents = ref. + ref := 'a FixedTimeZone(ETZ)'. - ref := 'a TimeZone(ETZ)'. ws := '' writeStream. aTimeZone printOn: ws. self assert: ws contents = ref! Item was changed: ----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') ----- testPrintOn | ref ws | ref := '2004-02-29T13:33:00+02:00'. ws := '' writeStream. aDateAndTime printOn: ws. self assert: ws contents = ref. + ref := 'a FixedTimeZone(UTC)'. - ref := 'a TimeZone(UTC)'. ws := '' writeStream. aTimeZone printOn: ws. self assert: ws contents = ref ! Item was changed: ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- testMakeUTC "Equal dates should compare equal regardless of which TimeZone they are created in." | priorTz priorPreference march31stLocal march31stOcean | priorTz := DateAndTime localTimeZone. priorPreference := DateAndTime automaticTimezone. [DateAndTime + localTimeZone: (FixedTimeZone - localTimeZone: (TimeZone offset: 9 hours name: 'Early Test Countries' abbreviation: 'Test Ocean Early'). march31stLocal := Date year: 2016 month: 3 day: 31. march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset). DateAndTime + localTimeZone: (FixedTimeZone - localTimeZone: (TimeZone offset: -9 hours name: 'Late Test Countries' abbreviation: 'Test Ocean Late'). march31stOcean := Date year: 2016 month: 3 day: 31. march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).] ensure: [DateAndTime localTimeZone: priorTz. DateAndTime automaticTimezone: priorPreference]. self deny: march31stLocal = march31stOcean; assert: march31stOcean > march31stLocal. self assert: march31stLocal makeUTC = march31stOcean makeUTC; deny: march31stOcean makeUTC > march31stLocal makeUTC; deny: march31stOcean makeUTC < march31stLocal makeUTC.! Item was added: + ClassTestCase subclass: #FixedTimeZoneTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Chronology-Tests'! Item was added: + ----- Method: FixedTimeZoneTest>>testAllForOffset (in category 'tests') ----- + testAllForOffset + + self assert: ((self classToBeTested allForOffset: 0 hours) collect: #abbreviation) = #('UTC' 'GMT'). + self assert: (self classToBeTested allForOffset: -14 hours) isEmpty.! Item was added: + ----- Method: FixedTimeZoneTest>>testAllTimeZones (in category 'tests') ----- + testAllTimeZones + + self assert: self classToBeTested allTimeZones notEmpty. + self assert: (self classToBeTested allTimeZones anySatisfy: [:ea | ea offset = 2 hours]).! Item was changed: ----- Method: ScheduleTest>>setUp (in category 'running') ----- setUp "Schedule is a type of Timespan representing repeated occurences of the same event. The beginning of the schedule is the first occurrence of the event. A schedule maintains an array of Durations. Each durations specify the offset to the next scheduled each. The duration of each occurence of the event is not specified. Nor are any other attributes such as name" restoredTimeZone := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. + DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). "Create aSchedule with an event scheduled for 8:30pm every Saturday and Sunday for the year 2003. " "Create the first event occurring on the first Saturday at 8:30 pm: 1/4/03" firstEvent := DateAndTime year: 2003 month: 1 day: 4 hour: 20 minute: 30. "Create a schedule for one year starting with the first event" aSchedule := Schedule starting: firstEvent duration: 52 weeks. "Schedule the recurring events by scheduling the time in between each one. One day for Sat-Sun. 6 days for Sun-Sat" aSchedule schedule: { Duration days: 1. Duration days: 6 }. ! Item was changed: ----- Method: YearMonthWeekTest>>setUp (in category 'running') ----- setUp restoredStartDay := Week startDay. restoredTimeZone := DateAndTime localTimeZone. localTimeZonePreferenceToRestore := DateAndTime automaticTimezone. Week startDay: #Sunday. + DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). - DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']). !

1 0