Merge pull request #118 from ba-st/stargate-consul_needs

Add chronology extensions needed by Stargate-Consul

Author: gcotelli

source/Buoy-Chronology-GS64-Extensions/Duration.extension.st

@@ -1,11 +1,23 @@
 Extension { #name : 'Duration' }
 
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> asMicroseconds [ 
+
+	^ self asSeconds * 1000000
+]
+
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 Duration >> asMilliSeconds [
 
 	^ self asSeconds * 1000
 ]
 
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> asNanoSeconds [
+
+	^ self asSeconds * 1000000000
+]
+
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 Duration class >> days: aNumber [
 
@@ -18,6 +30,12 @@ Duration class >> hours: aNumber [
 	^ self seconds: aNumber * 3600
 ]
 
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> isZero [
+
+	^ self totalSeconds isZero
+]
+
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 Duration class >> milliSeconds: aNumber [
 
@@ -41,3 +59,21 @@ Duration >> wait [
 
 	^ Delay waitForMilliseconds: (self seconds * 1000) rounded
 ]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> wholeMicroseconds [
+
+	^ (self asMicroseconds rem: 1000) truncated
+]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> wholeMilliseconds [
+
+	^ (self asMilliSeconds rem: 1000) truncated
+]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Duration >> wholeNanoseconds [
+
+	^ (self asNanoSeconds rem: 1000) truncated
+]

source/Buoy-Chronology-GS64-Extensions/Integer.extension.st

@@ -12,18 +12,6 @@ Integer >> days [
  	^ Duration days: self
 ]
 
-{ #category : '*Buoy-Chronology-GS64-Extensions' }
-Integer >> hour [
-
- 	^ self hours
-]
-
-{ #category : '*Buoy-Chronology-GS64-Extensions' }
-Integer >> hours [
-
- 	^ Duration hours: self
-]
-
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 Integer >> milliSecond [
 
@@ -35,15 +23,3 @@ Integer >> milliSeconds [
 
  	^ Duration milliSeconds: self
 ]
-
-{ #category : '*Buoy-Chronology-GS64-Extensions' }
-Integer >> minute [
-
- 	^ self minutes
-]
-
-{ #category : '*Buoy-Chronology-GS64-Extensions' }
-Integer >> minutes [
-
- 	^ Duration minutes: self
-]

source/Buoy-Chronology-GS64-Extensions/Number.extension.st

@@ -6,6 +6,30 @@ Number >> asDuration [
  	^ Duration seconds: self asInteger
 ]
 
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Number >> hour [
+
+ 	^ self hours
+]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Number >> hours [
+
+ 	^ Duration hours: self
+]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Number >> minute [
+
+ 	^ self minutes
+]
+
+{ #category : '*Buoy-Chronology-GS64-Extensions' }
+Number >> minutes [
+
+ 	^ Duration minutes: self
+]
+
 { #category : '*Buoy-Chronology-GS64-Extensions' }
 Number >> second [
 	"1 second printString >>> '0:00:00:01'"

source/Buoy-Chronology-Tests/DurationChronologyExtensionsTest.class.st

@@ -5,6 +5,14 @@ Class {
 	#package : 'Buoy-Chronology-Tests'
 }
 
+{ #category : 'tests' }
+DurationChronologyExtensionsTest >> testIsZero [
+
+	self
+		assert: 0 seconds isZero;
+		deny: 1 second isZero
+]
+
 { #category : 'tests' }
 DurationChronologyExtensionsTest >> testTotalSeconds [
 
@@ -25,3 +33,12 @@ DurationChronologyExtensionsTest >> testWait [
 	ms := Time millisecondsToRun: [ 2.1 seconds wait ].
 	self assert: ms >= 2100
 ]
+
+{ #category : 'tests' }
+DurationChronologyExtensionsTest >> testWholeSeconds [
+
+	self
+		assert: 1.002003004 seconds wholeMilliseconds equals: 2;
+		assert: 1.002003004 seconds wholeMicroseconds equals: 3;
+		assert: 1.002003004 seconds wholeNanoseconds equals: 4
+]