- Ext and Fixext encoding/decoding are now working

mumez · mumez · commit ccdc149b54f9 · 2013-12-08T15:53:48.000+09:00
- Added testPackUnpackExt, testPackUnpackFixExt test cases
diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/class/defineExtsActionsTo..st b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/class/defineExtsActionsTo..st
@@ -1,10 +1,10 @@
 actions for exts
 defineExtsActionsTo: map
 	map at: MpConstants fixext1 put: #readFixext1.
-	map at: MpConstants fixext1 put: #readFixext2.
-	map at: MpConstants fixext1 put: #readFixext4.
-	map at: MpConstants fixext1 put: #readFixext8.
-	map at: MpConstants fixext1 put: #readFixext16.
+	map at: MpConstants fixext2 put: #readFixext2.
+	map at: MpConstants fixext4 put: #readFixext4.
+	map at: MpConstants fixext8 put: #readFixext8.
+	map at: MpConstants fixext16 put: #readFixext16.
 	map at: MpConstants ext8 put: #readExt8.
 	map at: MpConstants ext16 put: #readExt16.
 	map at: MpConstants ext32 put: #readExt32.
diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/methodProperties.json
@@ -4,7 +4,7 @@
 		"defineBinBytesActionTo:" : "mu 8/12/2013 00:43",
 		"defineCompoundsActionsTo:" : "mu 4/30/2011 22:33",
 		"defineDoubleActionTo:" : "mu 4/30/2011 22:44",
-		"defineExtsActionsTo:" : "mu 11/5/2013 00:06",
+		"defineExtsActionsTo:" : "mu 12/8/2013 15:35",
 		"defineFalseActionTo:" : "mu 4/30/2011 22:43",
 		"defineFloatActionTo:" : "mu 4/30/2011 22:43",
 		"defineIntegerActionTo:" : "mu 4/30/2011 22:47",
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/readFixext1.st b/repository/MessagePack-Core.package/MpDecoder.class/instance/readFixext1.st
@@ -2,5 +2,5 @@ reading-fixext
 readFixext1
 	| data type |
 	type := self readStream next.
-	data := self readStream next.
+	data := ByteArray with: self readStream next.
 	^self readFixext: data as: type
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json b/repository/MessagePack-Core.package/MpDecoder.class/methodProperties.json
@@ -36,7 +36,7 @@
 		"readFixRaw:" : "MasashiUmezawa 2/2/2013 01:10",
 		"readFixStr:" : "mu 8/25/2013 23:55",
 		"readFixString:" : "MasashiUmezawa 2/2/2013 00:55",
-		"readFixext1" : "mu 11/5/2013 00:02",
+		"readFixext1" : "mu 12/8/2013 15:41",
 		"readFixext16" : "mu 11/5/2013 00:02",
 		"readFixext2" : "mu 11/5/2013 00:02",
 		"readFixext4" : "mu 11/5/2013 00:02",
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/instance/writeFixext1.as..st b/repository/MessagePack-Core.package/MpEncoder.class/instance/writeFixext1.as..st
@@ -2,4 +2,4 @@ writing-fixext
 writeFixext1: data as: type
 	self writeStream nextPut: MpConstants fixext1;
 		nextPut: type;
-		nextPut: data
+		nextPutAll: data
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json b/repository/MessagePack-Core.package/MpEncoder.class/methodProperties.json
@@ -35,7 +35,7 @@
 		"writeExt:as:" : "mu 9/22/2013 01:20",
 		"writeFalse:" : "mu 4/29/2011 15:24",
 		"writeFixext16:as:" : "mu 9/22/2013 01:02",
-		"writeFixext1:as:" : "mu 9/22/2013 01:02",
+		"writeFixext1:as:" : "mu 12/8/2013 15:32",
 		"writeFixext2:as:" : "mu 9/22/2013 01:02",
 		"writeFixext4:as:" : "mu 9/22/2013 01:02",
 		"writeFixext8:as:" : "mu 9/22/2013 01:02",
diff --git a/repository/MessagePack-Core.package/MpExtValue.class/instance/printDescriptionOn..st b/repository/MessagePack-Core.package/MpExtValue.class/instance/printDescriptionOn..st
@@ -0,0 +1,6 @@
+printing
+printDescriptionOn: aStream
+	self typeCode printOn: aStream.
+	aStream space.
+	aStream nextPutAll: 'data: '.
+	self data printOn: aStream
diff --git a/repository/MessagePack-Core.package/MpExtValue.class/instance/printOn..st b/repository/MessagePack-Core.package/MpExtValue.class/instance/printOn..st
@@ -0,0 +1,4 @@
+printing
+printOn: aStream
+	aStream nextPutAll: 'Ext: '.
+	self printDescriptionOn: aStream
diff --git a/repository/MessagePack-Core.package/MpExtValue.class/instance/size.st b/repository/MessagePack-Core.package/MpExtValue.class/instance/size.st
@@ -0,0 +1,3 @@
+accessing
+size
+	^self data size
diff --git a/repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json b/repository/MessagePack-Core.package/MpExtValue.class/methodProperties.json
@@ -4,5 +4,8 @@
 	"instance" : {
 		"data" : "mu 11/4/2013 23:51",
 		"data:" : "mu 11/4/2013 23:51",
+		"printDescriptionOn:" : "mu 12/8/2013 15:29",
+		"printOn:" : "mu 12/8/2013 15:29",
+		"size" : "mu 12/8/2013 15:03",
 		"typeCode" : "mu 11/4/2013 23:27",
 		"typeCode:" : "mu 11/4/2013 23:27" } }
diff --git a/repository/MessagePack-Core.package/MpFixextValue.class/instance/printOn..st b/repository/MessagePack-Core.package/MpFixextValue.class/instance/printOn..st
@@ -0,0 +1,6 @@
+printing
+printOn: aStream
+	aStream nextPutAll: 'FixExt('.
+	aStream nextPutAll: self size printString. 
+	aStream nextPutAll: '): '.
+	self printDescriptionOn: aStream
diff --git a/repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json b/repository/MessagePack-Core.package/MpFixextValue.class/methodProperties.json
@@ -2,4 +2,4 @@
 	"class" : {
 		 },
 	"instance" : {
-		 } }
+		"printOn:" : "mu 12/8/2013 15:30" } }
diff --git a/repository/MessagePack-Core.package/monticello.meta/version b/repository/MessagePack-Core.package/monticello.meta/version
@@ -1 +1 @@
-(name 'MessagePack-Core-mu.30' message 'Removed unused methods:D	MpExtValue>>bytesD	MpExtValue>>bytes:' id '36a3ae41-28f9-5f48-847a-a8193b45c4de' date '5 November 2013' time '12:25:05.208 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.29' message '- Renamed MpDecoder''s readFixExtXX to readFixextXX.- Added Ext type mapping hooks to MpDecodeTypeMapper and MpEncodeTypeDecoder' id 'f98513bb-f9b0-7b4c-91b8-b8e951e4de29' date '5 November 2013' time '12:21:21.297 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.28' message 'Adding Ext type support to MpEncoder' id 'a4ebe3a7-0f2d-1041-a8f9-046407d7f41b' date '4 November 2013' time '11:56:39.982 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.27' message 'Adding Ext and Fixext support to MpEncoder' id '5d47ff3f-6f82-e845-b001-924995570e2c' date '22 September 2013' time '1:22:20.759 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.26' message '- MpDecoder accepts #formatVersion 2008 and 2013 settings' id '7af064f9-e555-1c47-b05e-da89514aad6a' date '26 August 2013' time '12:30:48.224 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.25' message '- Added MpEncodeTypeMapper>>stringAsError for old spec' id 'bad0ee54-da2f-f744-96cb-e341ab6f412f' date '19 August 2013' time '1:36:43.449 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.24' message '- Adding encoder support for new specification (https://github.com/msgpack/msgpack/blob/master/spec.md).- MpSettings >> formatVersion will be used for switching new/old formats' id '3097e129-537a-f54f-af9f-dddad48b670e' date '19 August 2013' time '1:20:44.116 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.23' message 'Adding decoder support of new types - str8, bin8, bin16, and bin32.See the proposal: https://gist.github.com/frsyuki/5432559' id '2aece665-d911-4c42-a59f-7f1913b3ebc4' date '12 August 2013' time '1:39:02.973 am' author 'mu' ancestors ((name 'MessagePack-Core-MasashiUmezawa.22' message 'Removed unused class vars (Default, DialectSpecificClass) in MpMessagePack' id '006492ae-99c1-0e4a-8c0d-fc33f8bba76f' date '2 March 2013' time '11:45:28.6 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.21' message '- Changed Object>>messagePackedSetting: to messagePacked:- Adding #loose mode encoding- Adding #bytesAsString decode setting' id '5bc24ad7-c34a-e446-960b-a019c792d2af' date '2 February 2013' time '1:15:26.777 am' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.20' message 'Implementing #unknownAsNil encode mode' id 'c5004302-1ada-e840-8ffb-bf6299f0ef90' date '2 February 2013' time '12:02:50.646 am' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.19' message 'Adding Behavior>>fromMessagePack: setting: API' id '074158fe-7f80-aa4d-9733-5fd6f9e50ee7' date '1 February 2013' time '11:16:41.37 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.18' message 'Adding Object>>messagePackedSetting:  API' id 'ea3fde4b-ef96-a84e-97d9-3b66823233a5' date '1 February 2013' time '10:59:18.993 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.17' message 'Adding Object>>messagePackedSetting:  API' id 'b7fcd10a-d505-e04a-adfa-18ce7f56753f' date '1 February 2013' time '10:41:41.601 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-mu.16' message 'Added #stringAsBytes setting. If true, String will be enceded as MessagePack raw bytes.' id 'a0d8c298-8f29-cc42-ae1f-f79f13c74636' date '2 May 2012' time '12:58:49.921 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.15' message 'Method category renaming' id '5b78a93d-361d-f94e-8ee2-02ceb3ac1446' date '20 November 2011' time '7:44:22.412 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.14' message 'Removed unsent method: MpPortableUtil>>newWriteStream' id '7ac7087e-d730-3b4f-ba05-2d9a07b218b2' date '3 November 2011' time '10:05:54.037 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.13' message 'fastBulkWrite will be selected automatically according to the dialect' id 'b389006e-56f3-d24a-810b-a507bb338d84' date '29 October 2011' time '11:25:55.644 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.12' message 'Added fastBulkWrite option to MpSettings' id 'aeaa6e4a-dc49-6540-bb2a-8b1b16dea035' date '29 October 2011' time '10:55:43.599 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.11' message 'Added MpMemoryWriteStream for bulk write performance tuning' id 'c2ca6595-19d1-a548-b9a3-f5377a3ced44' date '23 October 2011' time '12:06:30.516 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.10' message 'Minor fix: renamed bertDecoder to mpDecoder' id '3a525398-86ac-c044-baaa-7af0ccf75045' date '10 October 2011' time '5:28:57.689 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.9' message 'Added #mpWriteSelector for optimization' id '839e4ee8-b4ad-8840-a270-61ad1b72dbc5' date '10 October 2011' time '4:41:03.448 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.8' message '- Fixed NegativeFixNum' id '4ac97dfb-73e8-2147-868a-0d1efbddad26' date '16 July 2011' time '12:03:09.477 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.7' message 'Changes for portablity' id '548485bf-0cc3-fb47-a32d-fc575f27ff2c' date '23 June 2011' time '5:09:10.073 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.6' message 'Minor optimization' id '54278953-4248-634a-a740-c6bf35e1de9c' date '7 June 2011' time '9:04:25.467 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.5' message 'Added stream-like API' id 'd07097c5-8bf3-7c4a-be1d-cdea97fe4069' date '7 June 2011' time '5:58:40.701 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.4' message 'Fixed MpDecoder>>settingsClass' id '6208acdf-4f04-a442-894d-0ce4ca66add1' date '2 June 2011' time '5:46:28.42 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.3' message 'Fixed MpDecoder>>readFloat' id 'd52b8f96-740b-ab48-b52a-8a275f062151' date '2 June 2011' time '12:24:38.897 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.2' message 'Removed #break message' id '02b9421c-c2d7-364c-b5e1-c1f93d9ed35d' date '2 June 2011' time '12:08:40.265 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.1' message 'Isolated package' id 'fcfff492-cece-a54e-b172-394e1e3fa7c7' date '2 June 2011' time '10:58:00.109 am' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'MessagePack-Core-mu.31' message '- Ext and Fixext encoding/decoding are now working' id '958b6113-8b9b-214c-a28e-38c991a8b70b' date '8 December 2013' time '3:47:05.753 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.30' message 'Removed unused methods:D	MpExtValue>>bytesD	MpExtValue>>bytes:' id '36a3ae41-28f9-5f48-847a-a8193b45c4de' date '5 November 2013' time '12:25:05.208 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.29' message '- Renamed MpDecoder''s readFixExtXX to readFixextXX.- Added Ext type mapping hooks to MpDecodeTypeMapper and MpEncodeTypeDecoder' id 'f98513bb-f9b0-7b4c-91b8-b8e951e4de29' date '5 November 2013' time '12:21:21.297 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.28' message 'Adding Ext type support to MpEncoder' id 'a4ebe3a7-0f2d-1041-a8f9-046407d7f41b' date '4 November 2013' time '11:56:39.982 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.27' message 'Adding Ext and Fixext support to MpEncoder' id '5d47ff3f-6f82-e845-b001-924995570e2c' date '22 September 2013' time '1:22:20.759 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.26' message '- MpDecoder accepts #formatVersion 2008 and 2013 settings' id '7af064f9-e555-1c47-b05e-da89514aad6a' date '26 August 2013' time '12:30:48.224 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.25' message '- Added MpEncodeTypeMapper>>stringAsError for old spec' id 'bad0ee54-da2f-f744-96cb-e341ab6f412f' date '19 August 2013' time '1:36:43.449 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.24' message '- Adding encoder support for new specification (https://github.com/msgpack/msgpack/blob/master/spec.md).- MpSettings >> formatVersion will be used for switching new/old formats' id '3097e129-537a-f54f-af9f-dddad48b670e' date '19 August 2013' time '1:20:44.116 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.23' message 'Adding decoder support of new types - str8, bin8, bin16, and bin32.See the proposal: https://gist.github.com/frsyuki/5432559' id '2aece665-d911-4c42-a59f-7f1913b3ebc4' date '12 August 2013' time '1:39:02.973 am' author 'mu' ancestors ((name 'MessagePack-Core-MasashiUmezawa.22' message 'Removed unused class vars (Default, DialectSpecificClass) in MpMessagePack' id '006492ae-99c1-0e4a-8c0d-fc33f8bba76f' date '2 March 2013' time '11:45:28.6 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.21' message '- Changed Object>>messagePackedSetting: to messagePacked:- Adding #loose mode encoding- Adding #bytesAsString decode setting' id '5bc24ad7-c34a-e446-960b-a019c792d2af' date '2 February 2013' time '1:15:26.777 am' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.20' message 'Implementing #unknownAsNil encode mode' id 'c5004302-1ada-e840-8ffb-bf6299f0ef90' date '2 February 2013' time '12:02:50.646 am' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.19' message 'Adding Behavior>>fromMessagePack: setting: API' id '074158fe-7f80-aa4d-9733-5fd6f9e50ee7' date '1 February 2013' time '11:16:41.37 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.18' message 'Adding Object>>messagePackedSetting:  API' id 'ea3fde4b-ef96-a84e-97d9-3b66823233a5' date '1 February 2013' time '10:59:18.993 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-MasashiUmezawa.17' message 'Adding Object>>messagePackedSetting:  API' id 'b7fcd10a-d505-e04a-adfa-18ce7f56753f' date '1 February 2013' time '10:41:41.601 pm' author 'MasashiUmezawa' ancestors ((name 'MessagePack-Core-mu.16' message 'Added #stringAsBytes setting. If true, String will be enceded as MessagePack raw bytes.' id 'a0d8c298-8f29-cc42-ae1f-f79f13c74636' date '2 May 2012' time '12:58:49.921 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.15' message 'Method category renaming' id '5b78a93d-361d-f94e-8ee2-02ceb3ac1446' date '20 November 2011' time '7:44:22.412 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.14' message 'Removed unsent method: MpPortableUtil>>newWriteStream' id '7ac7087e-d730-3b4f-ba05-2d9a07b218b2' date '3 November 2011' time '10:05:54.037 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.13' message 'fastBulkWrite will be selected automatically according to the dialect' id 'b389006e-56f3-d24a-810b-a507bb338d84' date '29 October 2011' time '11:25:55.644 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.12' message 'Added fastBulkWrite option to MpSettings' id 'aeaa6e4a-dc49-6540-bb2a-8b1b16dea035' date '29 October 2011' time '10:55:43.599 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.11' message 'Added MpMemoryWriteStream for bulk write performance tuning' id 'c2ca6595-19d1-a548-b9a3-f5377a3ced44' date '23 October 2011' time '12:06:30.516 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.10' message 'Minor fix: renamed bertDecoder to mpDecoder' id '3a525398-86ac-c044-baaa-7af0ccf75045' date '10 October 2011' time '5:28:57.689 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.9' message 'Added #mpWriteSelector for optimization' id '839e4ee8-b4ad-8840-a270-61ad1b72dbc5' date '10 October 2011' time '4:41:03.448 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.8' message '- Fixed NegativeFixNum' id '4ac97dfb-73e8-2147-868a-0d1efbddad26' date '16 July 2011' time '12:03:09.477 am' author 'mu' ancestors ((name 'MessagePack-Core-mu.7' message 'Changes for portablity' id '548485bf-0cc3-fb47-a32d-fc575f27ff2c' date '23 June 2011' time '5:09:10.073 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.6' message 'Minor optimization' id '54278953-4248-634a-a740-c6bf35e1de9c' date '7 June 2011' time '9:04:25.467 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.5' message 'Added stream-like API' id 'd07097c5-8bf3-7c4a-be1d-cdea97fe4069' date '7 June 2011' time '5:58:40.701 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.4' message 'Fixed MpDecoder>>settingsClass' id '6208acdf-4f04-a442-894d-0ce4ca66add1' date '2 June 2011' time '5:46:28.42 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.3' message 'Fixed MpDecoder>>readFloat' id 'd52b8f96-740b-ab48-b52a-8a275f062151' date '2 June 2011' time '12:24:38.897 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.2' message 'Removed #break message' id '02b9421c-c2d7-364c-b5e1-c1f93d9ed35d' date '2 June 2011' time '12:08:40.265 pm' author 'mu' ancestors ((name 'MessagePack-Core-mu.1' message 'Isolated package' id 'fcfff492-cece-a54e-b172-394e1e3fa7c7' date '2 June 2011' time '10:58:00.109 am' author 'mu' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/createExtSized..st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/createExtSized..st
@@ -0,0 +1,5 @@
+private
+createExtSized: size
+	| data |
+	data := self createRawBytesSized: size.
+	^MpExtValue typeCode: 0 data: data	
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/createFixExtSized..st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/createFixExtSized..st
@@ -0,0 +1,5 @@
+private
+createFixExtSized: size
+	| data |
+	data := self createRawBytesSized: size.
+	^MpFixextValue typeCode: 0 data: data	
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/rawExtValueArray.st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/rawExtValueArray.st
@@ -0,0 +1,6 @@
+private
+rawExtValueArray
+	| exts |
+	exts := self rawBytesSizes collect: [:each | self createExtSized: each].
+	1 to: exts size do: [:idx | (exts at: idx) typeCode: idx].
+	^exts
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/rawFixExtValueArray.st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/rawFixExtValueArray.st
@@ -0,0 +1,7 @@
+private
+rawFixExtValueArray
+	| sizes exts |
+	sizes := #(1 2 4 8 16).
+	exts := sizes collect: [:each | self createFixExtSized: each].
+	1 to: exts size do: [:idx | (exts at: idx) typeCode: idx].
+	^exts
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackExt.st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackExt.st
@@ -0,0 +1,13 @@
+testing
+testPackUnpackExt
+	"self debug: #testPackUnpackExt"
+	self rawExtValueArray do: [:each | | packed unpacked |
+		packed := each messagePacked: [:settings | settings formatVersion: 2013].
+		self should: [packed isMemberOf: ByteArray].
+		unpacked := Object fromMessagePack: packed.
+		self should: [unpacked isMemberOf: MpExtValue].
+		self should: [each typeCode = unpacked typeCode].
+		self should: [self collectionEquals: unpacked data with: each data].
+	]
+			
+		
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackFixExt.st b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/instance/testPackUnpackFixExt.st
@@ -0,0 +1,13 @@
+testing
+testPackUnpackFixExt
+	"self debug: #testPackUnpackFixExt"
+	self rawFixExtValueArray do: [:each | | packed unpacked |
+		packed := each messagePacked: [:settings | settings formatVersion: 2013].
+		self should: [packed isMemberOf: ByteArray].
+		unpacked := Object fromMessagePack: packed.
+		self should: [unpacked isMemberOf: MpFixextValue].
+		self should: [each typeCode = unpacked typeCode].
+		self should: [self collectionEquals: unpacked data with: each data].
+	]
+			
+		
diff --git a/repository/MessagePackTest.package/MpPackUnpackTestCase.class/methodProperties.json b/repository/MessagePackTest.package/MpPackUnpackTestCase.class/methodProperties.json
@@ -9,6 +9,8 @@
 		"createByteStringSized:" : "mu 8/25/2013 23:44",
 		"createComplexArraySized:" : "mu 6/23/2011 12:11",
 		"createComplexMapSized:" : "mu 6/23/2011 12:11",
+		"createExtSized:" : "mu 12/8/2013 14:49",
+		"createFixExtSized:" : "mu 12/8/2013 15:31",
 		"createRawBytesSized:" : "MasashiUmezawa 2/2/2013 21:14",
 		"createSimpleArraySized:" : "mu 6/23/2011 12:12",
 		"createSimpleMapSized:" : "mu 5/1/2011 23:53",
@@ -17,6 +19,8 @@
 		"mapSizes" : "mu 5/1/2011 22:49",
 		"rawBytesArray" : "MasashiUmezawa 2/2/2013 21:12",
 		"rawBytesSizes" : "MasashiUmezawa 2/2/2013 21:13",
+		"rawExtValueArray" : "mu 12/8/2013 14:55",
+		"rawFixExtValueArray" : "mu 12/8/2013 15:25",
 		"rawStringArray" : "mu 8/25/2013 23:44",
 		"simpleArraysArray" : "mu 5/1/2011 23:45",
 		"simpleCollectionSizes" : "mu 5/1/2011 23:45",
@@ -25,7 +29,9 @@
 		"testPackUnpackBinBytes" : "mu 8/25/2013 23:22",
 		"testPackUnpackComplexArray" : "mu 6/23/2011 12:43",
 		"testPackUnpackComplexMap" : "mu 6/23/2011 12:43",
+		"testPackUnpackExt" : "mu 12/8/2013 15:27",
 		"testPackUnpackFalse" : "mu 5/1/2011 21:39",
+		"testPackUnpackFixExt" : "mu 12/8/2013 15:27",
 		"testPackUnpackFloatingPoint" : "mu 5/1/2011 21:43",
 		"testPackUnpackInteger" : "mu 5/1/2011 21:33",
 		"testPackUnpackMap" : "mu 6/23/2011 12:44",
diff --git a/repository/MessagePackTest.package/monticello.meta/version b/repository/MessagePackTest.package/monticello.meta/version

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+accessing`
	`2`	`+size`
	`3`	`+ ^self data size`