Added more tests on PackUnpackTimestamp

Author: mumez

repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackTimestamp.st

@@ -0,0 +1,24 @@
+testing
+testPackUnpackTimestamp32
+	"self debug: #testPackUnpackTimestamp32"
+	| packed unpacked secondsAndNanos |
+	packed := self unixEpochTimestamp messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 6.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = 0.
+	self assert: secondsAndNanos last = 0.
+	
+	packed := (self unixEpochTimestamp + 10 seconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 6.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = 10.
+	self assert: secondsAndNanos last = 0.
+	
+	packed := self max32Timestamp - 1 seconds messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 6.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = -1.
+	self assert: secondsAndNanos last = 0.

repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackTimestamp32.st

@@ -0,0 +1,47 @@
+testing
+testPackUnpackTimestamp64
+	"self debug: #testPackUnpackTimestamp64"
+	| packed unpacked secondsAndNanos |
+	packed := (self unixEpochTimestamp + 10 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = 0.
+	self assert: secondsAndNanos last = 10.
+	
+	packed := self max32Timestamp messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = (1 << 32).
+	self assert: secondsAndNanos last = 0.
+	
+	packed := (self max32Timestamp - 10 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = ((1 << 32) -1).
+	self assert: secondsAndNanos last = 999999990.
+	
+	packed := (self max32Timestamp + 10 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = (1 << 32).
+	self assert: secondsAndNanos last = 10.
+	
+	packed := (self max32Timestamp + 90 seconds + 10 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = ((1 << 32) + 90).
+	self assert: secondsAndNanos last = 10.
+	
+	packed := (self max64Timestamp - 1 seconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 10.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = ((1 << 34) - 1).
+	self assert: secondsAndNanos last = 999999999.
+	
+	

repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackTimestamp64.st

@@ -0,0 +1,45 @@
+testing
+testPackUnpackTimestamp96
+	"self debug: #testPackUnpackTimestamp"
+	| packed unpacked secondsAndNanos |
+	packed := (self max64Timestamp) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = (1 << 34).
+	self assert: secondsAndNanos last = 999999999.
+			
+	packed := (self unixEpochTimestamp - 1 seconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = -1.
+	self assert: secondsAndNanos last = 0.
+	
+	packed := (self unixEpochTimestamp - 1 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = -1.
+	self assert: secondsAndNanos last = 999999999.
+	
+	packed := (self unixEpochTimestamp - 1 seconds - 999999999 nanoSeconds) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = -2.
+	self assert: secondsAndNanos last = 1.
+	
+	packed := (self max96Timestamp) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = 9223372036854775807.
+	self assert: secondsAndNanos last = 999999999.
+	
+	packed := (self min96Timestamp) messagePacked: [:settings | settings formatVersion: 2013].
+	self assert: packed size = 15.
+	unpacked := Object fromMessagePack: packed.
+	secondsAndNanos := MpPortableUtil default unixSecondsWithNanosecondsFrom: unpacked.
+	self assert: secondsAndNanos first = -9223372036854775808.
+	self assert: secondsAndNanos last = 0.

repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackTimestamp96.st

@@ -11,6 +11,7 @@
 		"max32Timestamp" : "MasashiUmezawa 8/13/2017 12:49",
 		"testPackUnpackComplexArray" : "mu 6/23/2011 12:43",
 		"testPackUnpackNil" : "MasashiUmezawa 5/18/2015 10:45",
+		"testPackUnpackTimestamp64" : "MasashiUmezawa 8/15/2017 23:01",
 		"testPackUnpackBinBytes" : "mu 8/25/2013 23:22",
 		"max64Timestamp" : "MasashiUmezawa 8/13/2017 12:53",
 		"testPackUnpackArray" : "mu 6/23/2011 12:43",
@@ -24,12 +25,12 @@
 		"testPackUnpackComplexMap" : "mu 6/23/2011 12:43",
 		"testPackUnpackStrBytes" : "mu 8/25/2013 23:49",
 		"min96Timestamp" : "MasashiUmezawa 8/13/2017 14:31",
-		"testPackUnpackTimestamp" : "MasashiUmezawa 8/14/2017 23:23",
 		"max96Timestamp" : "MasashiUmezawa 8/13/2017 14:11",
 		"rawFixExtValueArray" : "mu 12/8/2013 15:25",
 		"testPackUnpackFloatingPoint" : "mu 5/1/2011 21:43",
 		"testPackUnpackMap" : "mu 6/23/2011 12:44",
 		"complexArraysArray" : "mu 5/1/2011 23:45",
+		"testPackUnpackTimestamp96" : "MasashiUmezawa 8/15/2017 23:06",
 		"createByteStringSized:" : "MasashiUmezawa 11/12/2016 23:44",
 		"createRawBytesSized:" : "MasashiUmezawa 2/2/2013 21:14",
 		"simpleMapsArray" : "mu 5/1/2011 23:50",
@@ -43,7 +44,8 @@
 		"complexMapsArray" : "mu 5/1/2011 23:56",
 		"createComplexArraySized:" : "mu 6/23/2011 12:11",
 		"testPackUnpackFalse" : "MasashiUmezawa 5/18/2015 10:49",
-		"simpleArraysArray" : "mu 5/1/2011 23:45"
+		"simpleArraysArray" : "mu 5/1/2011 23:45",
+		"testPackUnpackTimestamp32" : "MasashiUmezawa 8/15/2017 22:53"
 	},
 	"class" : { }
 }

repository/MessagePackTest.package/MpPackUnpackTestCase.class/methodProperties.json

@@ -1 +1 @@
-(name 'MessagePackTest-MasashiUmezawa.16' message 'Revising testPackUnpackTimestamp' id '2c807530-1913-0d00-bf28-a848069d6816' date '14 August 2017' time '11:26:45.356078 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.15' message 'Added testPackUnpackTimestamp' id '2ec240a3-fd12-0d00-961e-18360ade5bf7' date '13 August 2017' time '2:34:32.197822 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.14' message 'Updated test fixtures of string creation' id 'b17145fb-55d1-3d49-90ff-4698af2a186b' date '13 November 2016' time '12:06:57.527191 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.13' message 'Added #testPackUnpackSymbolBytes' id '19b6a570-5d88-884e-bf66-5f1ca9d3dafb' date '4 June 2016' time '2:24:24.077615 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.12' message '- Changed tests for older format' id '7917bb4f-8326-4932-bb01-bf96b1b8542f' date '21 June 2015' time '8:36:04.342843 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.11' message 'Renamed MpConstants typecode methods for compatibility with GemStone.https://github.com/msgpack/msgpack-smalltalk/issues/4' id '0743d0ea-4883-40eb-8632-c39dad337679' date '18 May 2015' time '10:55:09.715775 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.10' message '-Added testPackUnpackExt, testPackUnpackFixExt test cases' id 'd9431577-e13c-724a-b3ff-642435692c12' date '8 December 2013' time '3:47:56.186 pm' author 'mu' ancestors ((name 'MessagePackTest-MasashiUmezawa.9' message '-Fixed MpStringUnpackTestCase>>testUnpackString8 to run on Pharo' id '4fedb785-bf5b-bb42-9245-6a0b2973d013' date '15 October 2013' time '1:07:32.7 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.8' message '- Added PackUnpack tests for new Binary type- Added tests for String (formerly Raw) type' id '5f057f80-8c27-084b-89b1-5c3cc7ae9f9c' date '26 August 2013' time '12:34:48.825 am' author 'mu' ancestors ((name 'MessagePackTest-mu.7' message 'Added decoder tests for str8, bin8, bin16, bin32.See the proposal: https://gist.github.com/frsyuki/5432559' id 'da119030-ed83-6241-847c-2795a61d804a' date '12 August 2013' time '1:41:12.542 am' author 'mu' ancestors ((name 'MessagePackTest-MasashiUmezawa.6' message 'Avoid sending #asByteArray for portability' id 'c9be1c45-49c4-8947-93d5-16ccbf7e7df3' date '2 February 2013' time '10:02:03.626 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.5' message 'Confirmed all tests are green' id '9667ec89-9c26-1c46-8a89-fad027e006bc' date '2 February 2013' time '9:57:02.029 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.4' message 'Adding test cases for new encode/decode options' id '61bbf0a0-053d-c24c-bd29-8332d8e99a57' date '2 February 2013' time '9:36:55.589 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.3' message 'Changes for portablity' id '06a6b0a5-0061-104a-bec2-a82f96c6a87c' date '23 June 2011' time '5:09:30.249 pm' author 'mu' ancestors ((name 'MessagePackTest-mu.2' message 'empty log message' id '77d3b945-c29d-c34f-84e7-81b255f6a638' date '2 May 2011' time '12:02:08.182 am' author 'mu' ancestors ((name 'MessagePackTest-mu.1' message 'empty log message' id '0ba4d187-aa2e-c94d-8aed-2dd83925c6b8' date '1 May 2011' time '11:43:57.135 pm' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'MessagePackTest-MasashiUmezawa.17' message 'Added more tests on PackUnpackTimestamp ' id '88b8fe0a-2d13-0d00-ad27-398701d173ae' date '15 August 2017' time '11:07:56.160682 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.16' message 'Revising testPackUnpackTimestamp' id '2c807530-1913-0d00-bf28-a848069d6816' date '14 August 2017' time '11:26:45.356078 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.15' message 'Added testPackUnpackTimestamp' id '2ec240a3-fd12-0d00-961e-18360ade5bf7' date '13 August 2017' time '2:34:32.197822 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.14' message 'Updated test fixtures of string creation' id 'b17145fb-55d1-3d49-90ff-4698af2a186b' date '13 November 2016' time '12:06:57.527191 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.13' message 'Added #testPackUnpackSymbolBytes' id '19b6a570-5d88-884e-bf66-5f1ca9d3dafb' date '4 June 2016' time '2:24:24.077615 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.12' message '- Changed tests for older format' id '7917bb4f-8326-4932-bb01-bf96b1b8542f' date '21 June 2015' time '8:36:04.342843 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.11' message 'Renamed MpConstants typecode methods for compatibility with GemStone.https://github.com/msgpack/msgpack-smalltalk/issues/4' id '0743d0ea-4883-40eb-8632-c39dad337679' date '18 May 2015' time '10:55:09.715775 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.10' message '-Added testPackUnpackExt, testPackUnpackFixExt test cases' id 'd9431577-e13c-724a-b3ff-642435692c12' date '8 December 2013' time '3:47:56.186 pm' author 'mu' ancestors ((name 'MessagePackTest-MasashiUmezawa.9' message '-Fixed MpStringUnpackTestCase>>testUnpackString8 to run on Pharo' id '4fedb785-bf5b-bb42-9245-6a0b2973d013' date '15 October 2013' time '1:07:32.7 am' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.8' message '- Added PackUnpack tests for new Binary type- Added tests for String (formerly Raw) type' id '5f057f80-8c27-084b-89b1-5c3cc7ae9f9c' date '26 August 2013' time '12:34:48.825 am' author 'mu' ancestors ((name 'MessagePackTest-mu.7' message 'Added decoder tests for str8, bin8, bin16, bin32.See the proposal: https://gist.github.com/frsyuki/5432559' id 'da119030-ed83-6241-847c-2795a61d804a' date '12 August 2013' time '1:41:12.542 am' author 'mu' ancestors ((name 'MessagePackTest-MasashiUmezawa.6' message 'Avoid sending #asByteArray for portability' id 'c9be1c45-49c4-8947-93d5-16ccbf7e7df3' date '2 February 2013' time '10:02:03.626 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.5' message 'Confirmed all tests are green' id '9667ec89-9c26-1c46-8a89-fad027e006bc' date '2 February 2013' time '9:57:02.029 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-MasashiUmezawa.4' message 'Adding test cases for new encode/decode options' id '61bbf0a0-053d-c24c-bd29-8332d8e99a57' date '2 February 2013' time '9:36:55.589 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePackTest-mu.3' message 'Changes for portablity' id '06a6b0a5-0061-104a-bec2-a82f96c6a87c' date '23 June 2011' time '5:09:30.249 pm' author 'mu' ancestors ((name 'MessagePackTest-mu.2' message 'empty log message' id '77d3b945-c29d-c34f-84e7-81b255f6a638' date '2 May 2011' time '12:02:08.182 am' author 'mu' ancestors ((name 'MessagePackTest-mu.1' message 'empty log message' id '0ba4d187-aa2e-c94d-8aed-2dd83925c6b8' date '1 May 2011' time '11:43:57.135 pm' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())