diff --git a/repository/TiddlyWiki/DateAndTime.extension.st b/repository/TiddlyWiki/DateAndTime.extension.st new file mode 100644 index 0000000..72767d3 --- /dev/null +++ b/repository/TiddlyWiki/DateAndTime.extension.st @@ -0,0 +1,28 @@ +Extension { #name : #DateAndTime } + +{ #category : #'*TiddlyWiki' } +DateAndTime >> asTiddlerFormat [ + + | hours minutes secondsTemp | + hours := self hours. + minutes := self minutes. + secondsTemp := self seconds. + ^ (self dayMonthYearDo: [ :d :m :y | + y asString, + (m < 10 + ifTrue: [ '0', m asString ] + ifFalse: [ m asString]), + (d < 10 + ifTrue: [ '0', d asString ] + ifFalse: [ d asString])]), + (hours < 10 + ifTrue: [ '0',hours asString ] + ifFalse: [ hours asString]), + (minutes < 10 + ifTrue: [ '0', minutes asString ] + ifFalse: [ minutes asString]), + (secondsTemp < 10 + ifTrue: [ '0', secondsTemp asString ] + ifFalse: [ secondsTemp asString]), + (self nanoSecond asString copyFrom: 1 to: 3) +] diff --git a/repository/TiddlyWiki/TiddlerTest.class.st b/repository/TiddlyWiki/TiddlerTest.class.st new file mode 100644 index 0000000..7128900 --- /dev/null +++ b/repository/TiddlyWiki/TiddlerTest.class.st @@ -0,0 +1,13 @@ +Class { + #name : #TiddlerTest, + #superclass : #TestCase, + #category : #'TiddlyWiki-TiddlyWiki' +} + +{ #category : #accessing } +TiddlerTest >> testTiddlerTimeFormatTrasnformation [ + + | tiddlerTemp | + tiddlerTemp := Tiddler new created: '20220101010101123'. + self assert: tiddlerTemp created equals: tiddlerTemp created asDateAndTimeForTiddler asTiddlerFormat +]