Added new encoding mode - #unknownAsNil and #loose.

mumez · mumez · commit 04ecd09c2de1 · 2013-02-18T00:41:00.000+09:00
- If encodeMode is #unknownAsNil, unknown types(classes) will be encoded as nil values.
- If encodeMode is #loose, #asMpConverted will be sent to the unknown class's instances. You can override the method to convert your instance as MessagePack-compatible value. For example, this mode allows encoding IdentityDictionary as MessagePack map.
diff --git a/.filetree b/.filetree
@@ -0,0 +1 @@
+{ "packageExtension" : ".package" }
diff --git a/repository/MessagePack-Core.package/Behavior.extension/instance/fromMessagePack.setting..st b/repository/MessagePack-Core.package/Behavior.extension/instance/fromMessagePack.setting..st
@@ -0,0 +1,3 @@
+*MessagePack-Core-unpacking
+fromMessagePack: bytes setting: settingBlock
+	^ MpDecoder decode: bytes setting: settingBlock
diff --git a/repository/MessagePack-Core.package/IdentityDictionary.extension/instance/asMpMap.st b/repository/MessagePack-Core.package/IdentityDictionary.extension/instance/asMpMap.st
@@ -0,0 +1,6 @@
+*MessagePack-Core-converting
+asMpMap 
+	| dic |
+	dic := Dictionary new: self size.
+	self keysAndValuesDo: [:k :v | dic at: k put: v].
+	^dic
diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/bytesAsString.st b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/bytesAsString.st
@@ -0,0 +1,8 @@
+decode customization
+bytesAsString
+	| map |
+	map := self actionMap.
+	map at: MpConstants map16 put: #readString16.
+	map at: MpConstants map32 put: #readString32.
+	
+	self isBytesAsString: true
diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/isBytesAsString..st b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/isBytesAsString..st
@@ -0,0 +1,4 @@
+accessing
+isBytesAsString: aBoolean
+
+	isBytesAsString := aBoolean == true
diff --git a/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/isBytesAsString.st b/repository/MessagePack-Core.package/MpDecodeTypeMapper.class/instance/isBytesAsString.st
@@ -0,0 +1,4 @@
+decode customization
+isBytesAsString
+	isBytesAsString ifNil: [isBytesAsString := false].
+	^ isBytesAsString
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/class/decode.setting..st b/repository/MessagePack-Core.package/MpDecoder.class/class/decode.setting..st
@@ -0,0 +1,3 @@
+actions
+decode: byteArray setting: settingBlock 
+	^self new decode: byteArray setting: settingBlock 
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/class/decodeFrom.setting..st b/repository/MessagePack-Core.package/MpDecoder.class/class/decodeFrom.setting..st
@@ -0,0 +1,3 @@
+actions
+decodeFrom: aStream setting: settingBlock 
+	^self new decodeFrom: aStream setting: settingBlock 
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/decode.setting..st b/repository/MessagePack-Core.package/MpDecoder.class/instance/decode.setting..st
@@ -0,0 +1,4 @@
+decoding
+decode: byteArray setting: settingBlock 
+	settingBlock value: self settings.
+	^self decodeFrom: byteArray readStream
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/decodeFrom.setting..st b/repository/MessagePack-Core.package/MpDecoder.class/instance/decodeFrom.setting..st
@@ -0,0 +1,5 @@
+decoding
+decodeFrom: aStream setting: settingBlock
+	settingBlock value: self settings.
+	self readStream: aStream "binary".
+	^self decode
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/readFixString..st b/repository/MessagePack-Core.package/MpDecoder.class/instance/readFixString..st
@@ -0,0 +1,5 @@
+reading-string
+readFixString: firstByte
+	| size |
+	size := (firstByte bitAnd: 2r11111).
+	^(self readStream next: size) asString
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/readString16.st b/repository/MessagePack-Core.package/MpDecoder.class/instance/readString16.st
@@ -0,0 +1,3 @@
+reading-string
+readString16
+	^self readRaw16 asString
diff --git a/repository/MessagePack-Core.package/MpDecoder.class/instance/readString32.st b/repository/MessagePack-Core.package/MpDecoder.class/instance/readString32.st
@@ -0,0 +1,3 @@
+reading-string
+readString32
+	^self readRaw32 asString
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/class/encode.on.setting..st b/repository/MessagePack-Core.package/MpEncoder.class/class/encode.on.setting..st
@@ -0,0 +1,3 @@
+actions
+encode: anObject on: aStream setting: aBlock
+	^self new encode: anObject on: aStream setting: aBlock
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/class/encode.setting..st b/repository/MessagePack-Core.package/MpEncoder.class/class/encode.setting..st
@@ -0,0 +1,3 @@
+actions
+encode: anObject setting: settingBlock
+	^self new encode: anObject setting: settingBlock
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/instance/encode.on.setting..st b/repository/MessagePack-Core.package/MpEncoder.class/instance/encode.on.setting..st
@@ -0,0 +1,5 @@
+encoding
+encode: anObject on: aStream setting: aBlock
+	aBlock value: self settings.
+	self write: anObject on: aStream.
+	^self contents.
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/instance/encode.setting..st b/repository/MessagePack-Core.package/MpEncoder.class/instance/encode.setting..st
@@ -0,0 +1,3 @@
+encoding
+encode: anObject setting: aBlock
+	^self encode: anObject on: self writeStream setting: aBlock 
diff --git a/repository/MessagePack-Core.package/MpEncoder.class/instance/writeUnknown.withHandler..st b/repository/MessagePack-Core.package/MpEncoder.class/instance/writeUnknown.withHandler..st
@@ -0,0 +1,11 @@
+writing-helper
+writeUnknown: unknown withHandler: aBlock
+	| mode |
+	mode := self settings encodeMode.
+	mode == #strict ifTrue: [^aBlock value].
+	mode == #unknownAsNil ifTrue: [^self writeNil: unknown].
+	mode == #loose ifTrue: [^self writeObject: unknown asMpConverted].
+	
+	"If non supported mode, we just use handler"
+	^aBlock value
+	
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/bytesAsString..st b/repository/MessagePack-Core.package/MpSettings.class/instance/bytesAsString..st
@@ -0,0 +1,3 @@
+accessing
+bytesAsString: aBoolean
+	^self at: #bytesAsString ifAbsentPut: aBoolean
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/bytesAsString.st b/repository/MessagePack-Core.package/MpSettings.class/instance/bytesAsString.st
@@ -0,0 +1,3 @@
+accessing
+bytesAsString
+	^self at: #bytesAsString ifAbsentPut: [false]
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/decodeMode..st b/repository/MessagePack-Core.package/MpSettings.class/instance/decodeMode..st
@@ -0,0 +1,4 @@
+accessing
+decodeMode: aSymbol
+	"#strict #unknownAsNil #loose"
+	^self at: #decodeMode ifAbsentPut: aSymbol
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/decodeMode.st b/repository/MessagePack-Core.package/MpSettings.class/instance/decodeMode.st
@@ -0,0 +1,3 @@
+accessing
+decodeMode
+	^self at: #decodeMode ifAbsent: [#strict]
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/encodeMode..st b/repository/MessagePack-Core.package/MpSettings.class/instance/encodeMode..st
@@ -0,0 +1,4 @@
+accessing
+encodeMode: aSymbol
+	"#strict #unknownAsNil #loose"
+	^self at: #encodeMode ifAbsentPut: aSymbol
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/encodeMode.st b/repository/MessagePack-Core.package/MpSettings.class/instance/encodeMode.st
@@ -0,0 +1,3 @@
+accessing
+encodeMode
+	^self at: #encodeMode ifAbsent: [#strict]
diff --git a/repository/MessagePack-Core.package/MpSettings.class/instance/printOn..st b/repository/MessagePack-Core.package/MpSettings.class/instance/printOn..st
@@ -0,0 +1,5 @@
+printing
+printOn: aStream
+	aStream nextPutAll: 'a MpSettings('.
+	self settingsDict printOn: aStream.
+	aStream nextPutAll: ')'.
diff --git a/repository/MessagePack-Core.package/Object.extension/instance/asMpConverted.st b/repository/MessagePack-Core.package/Object.extension/instance/asMpConverted.st
@@ -0,0 +1,5 @@
+*MessagePack-Core-converting
+asMpConverted
+	"Override"
+	"Only called if you select #loose encodeMode"
+	^self asMpMap
diff --git a/repository/MessagePack-Core.package/Object.extension/instance/asMpMap.st b/repository/MessagePack-Core.package/Object.extension/instance/asMpMap.st
@@ -0,0 +1,5 @@
+*MessagePack-Core-converting
+asMpMap
+	"Override"
+	"Only called if you select #loose encodeMode"
+	^Dictionary new
diff --git a/repository/MessagePack-Core.package/Object.extension/instance/messagePacked..st b/repository/MessagePack-Core.package/Object.extension/instance/messagePacked..st
@@ -0,0 +1,3 @@
+*MessagePack-Core-packing
+messagePacked: settingBlock
+	^ MpEncoder encode: self setting: settingBlock
diff --git a/repository/MessagePack-Core.package/Symbol.extension/instance/asMpConverted.st b/repository/MessagePack-Core.package/Symbol.extension/instance/asMpConverted.st
@@ -0,0 +1,3 @@
+*MessagePack-Core-converting
+asMpConverted
+	^self asString
diff --git a/repository/MessagePack-Core.package/Symbol.extension/methodProperties.json b/repository/MessagePack-Core.package/Symbol.extension/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"asMpConverted" : "MasashiUmezawa 2/2/2013 00:36" } }
diff --git a/repository/MessagePack-Core.package/Symbol.extension/properties.json b/repository/MessagePack-Core.package/Symbol.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "Symbol" }
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/README.md b/repository/MessagePackTest.package/MpSettingsTestCase.class/README.md
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/arrayWithNil.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/arrayWithNil.st
@@ -0,0 +1,3 @@
+fixtures
+arrayWithNil
+	^ Array with: nil with: 2
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/arrayWithUnknown.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/arrayWithUnknown.st
@@ -0,0 +1,3 @@
+fixtures
+arrayWithUnknown
+	^ Array with: Date today with: 2
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/complexDictionaryAfterConverted.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/complexDictionaryAfterConverted.st
@@ -0,0 +1,11 @@
+fixtures
+complexDictionaryAfterConverted
+	| dic dicIn|
+	dic := Dictionary new.
+	dicIn := Dictionary new.
+	
+	self simpleIdentityDictionary keysAndValuesDo: [:k :v | dicIn at:  (MpPortableUtil default bytesFromString: k) put: (MpPortableUtil default bytesFromString: v)].
+	
+	dic at: (MpPortableUtil default bytesFromString: #key1) put: (MpPortableUtil default bytesFromString: 'aaa').
+	dic at: (MpPortableUtil default bytesFromString: #key2) put: dicIn.
+	^dic
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/complexIdentityDictionary.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/complexIdentityDictionary.st
@@ -0,0 +1,7 @@
+fixtures
+complexIdentityDictionary
+	| dic |
+	dic := IdentityDictionary new.
+	dic at: #key1 put: 'aaa'.
+	dic at: #key2 put: self simpleIdentityDictionary.
+	^dic
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/createStringSized..st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/createStringSized..st
@@ -0,0 +1,3 @@
+private
+createStringSized: size
+	^ self newCollection: String sized: size withAll: (Character value: (self atRandom: 255))
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/dictionaryWithNil.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/dictionaryWithNil.st
@@ -0,0 +1,7 @@
+fixtures
+dictionaryWithNil
+	| dic |
+	dic := Dictionary new.
+	dic at: 'key1' put: nil.
+	dic at: 'key2' put: 'bbb'.
+	^dic
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/dictionaryWithUnknown.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/dictionaryWithUnknown.st
@@ -0,0 +1,7 @@
+fixtures
+dictionaryWithUnknown
+	| dic |
+	dic := Dictionary new.
+	dic at: 'key1' put: Time now.
+	dic at: 'key2' put: 'bbb'.
+	^dic
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleIdentityDictionary.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleIdentityDictionary.st
@@ -0,0 +1,7 @@
+fixtures
+simpleIdentityDictionary
+	| dic |
+	dic := IdentityDictionary new.
+	dic at: #key1 put: 'aaa'.
+	dic at: #key2 put: 'bbb'.
+	^dic
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleString.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleString.st
@@ -0,0 +1,3 @@
+fixtures
+simpleString
+	^'This is a test'
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleStringContainedArray.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/simpleStringContainedArray.st
@@ -0,0 +1,3 @@
+fixtures
+simpleStringContainedArray
+	^ #('this' 'is' 'a' 'test')
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/stringSizes.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/stringSizes.st
@@ -0,0 +1,3 @@
+private
+stringSizes
+	^ #(0 1 31 32 65535 65536)
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/stringsArray.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/stringsArray.st
@@ -0,0 +1,3 @@
+fixtures
+stringsArray
+	^ self stringSizes collect: [:each | self createStringSized: each]
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackStringArrayAsArrayOfBytes.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackStringArrayAsArrayOfBytes.st
@@ -0,0 +1,11 @@
+testing
+testPackStringArrayAsArrayOfBytes
+	"self debug: #testPackStringArrayAsArrayOfBytes"
+	| bytes |
+	self should: [self simpleStringContainedArray messagePacked] raise: MpError.
+	
+	bytes := self simpleStringContainedArray messagePacked: [:settings | settings stringAsBytes: true].
+	
+	self assert: (bytes = (self simpleStringContainedArray collect: [:each | (MpPortableUtil default bytesFromString: each)]) messagePacked)
+			
+		
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackStringAsBytes.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackStringAsBytes.st
@@ -0,0 +1,11 @@
+testing
+testPackStringAsBytes
+	"self debug: #testPackStringAsBytes"
+	| bytes |
+	self should: [self simpleString messagePacked] raise: MpError.
+	
+	bytes := self simpleString messagePacked: [:settings | settings stringAsBytes: true].
+	
+	self assert: (bytes = (MpPortableUtil default bytesFromString: self simpleString) messagePacked)
+			
+		
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnknownContainedArray.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnknownContainedArray.st
@@ -0,0 +1,9 @@
+testing
+testPackUnknownContainedArray
+	"self debug: #testPackUnknownContainedArray"
+	| bytes |
+	self should: [self arrayWithUnknown messagePacked] raise: MpError.
+	
+	bytes := self arrayWithUnknown messagePacked: [:settings | settings encodeMode: #unknownAsNil].
+		
+	self assert: (bytes = self arrayWithNil messagePacked)
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnknownContainedDictionary.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnknownContainedDictionary.st
@@ -0,0 +1,9 @@
+testing
+testPackUnknownContainedDictionary
+	"self debug: #testPackUnknownContainedDictionary"
+	| bytes |
+	self should: [self dictionaryWithUnknown messagePacked] raise: MpError.
+	
+	bytes := self dictionaryWithUnknown messagePacked: [:settings | settings stringAsBytes: true; encodeMode: #unknownAsNil].
+		
+	self assert: (bytes = (self dictionaryWithNil messagePacked: [:settings | settings stringAsBytes: true]))
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackComplexIdentityDictionary.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackComplexIdentityDictionary.st
@@ -0,0 +1,16 @@
+testing
+testPackUnpackComplexIdentityDictionary
+	"self debug: #testPackUnpackComplexIdentityDictionary"
+	| bytes convertedDic unpacked1 unpacked2 |
+	self should: [self complexIdentityDictionary messagePacked] raise: MpError.
+	
+	bytes := self complexIdentityDictionary messagePacked: [:se | se stringAsBytes: true; encodeMode: #loose].
+	
+	convertedDic := self complexDictionaryAfterConverted.
+	
+	unpacked1 := Object fromMessagePack:  bytes setting: [:se | se bytesAsString: true].
+	unpacked2 := Object fromMessagePack:  convertedDic messagePacked setting: [:se | se bytesAsString: true].
+	
+	self should: [self collectionEquals: unpacked1 with: unpacked2]
+			
+		
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackSimpleIdentityDictionary.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackSimpleIdentityDictionary.st
@@ -0,0 +1,17 @@
+testing
+testPackUnpackSimpleIdentityDictionary
+	"self debug: #testPackUnpackSimpleIdentityDictionary"
+	| bytes convertedDic unpacked1 unpacked2 |
+	self should: [self simpleIdentityDictionary messagePacked] raise: MpError.
+	
+	bytes := self simpleIdentityDictionary messagePacked: [:se | se stringAsBytes: true; encodeMode: #loose].
+	
+	convertedDic := Dictionary new.
+	self simpleIdentityDictionary keysAndValuesDo: [:k :v | convertedDic at:  (MpPortableUtil default bytesFromString: k) put: (MpPortableUtil default bytesFromString: v)].
+	
+	unpacked1 := Object fromMessagePack:  bytes setting: [:se | se bytesAsString: true].
+	unpacked2 := Object fromMessagePack:  convertedDic messagePacked setting: [:se | se bytesAsString: true].
+	
+	self should: [self collectionEquals: unpacked1 with: unpacked2]
+			
+		
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackStrings.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testPackUnpackStrings.st
@@ -0,0 +1,9 @@
+testing
+testPackUnpackStrings
+	"self debug: #testPackUnpackStrings"
+	self stringsArray do: [:each | | packed unpacked |
+		packed := each messagePacked: [:se | se stringAsBytes: true].
+		self should: [packed isMemberOf: ByteArray].
+		unpacked := Object fromMessagePack: packed.
+		self should: [self collectionEquals: unpacked asString with: each]
+	]
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testUnpackBytesAsString.st b/repository/MessagePackTest.package/MpSettingsTestCase.class/instance/testUnpackBytesAsString.st
@@ -0,0 +1,12 @@
+testing
+testUnpackBytesAsString
+	"self debug: #testUnpackBytesAsString"
+	| bytes unpackedAsByteArrays unpacked  |
+	bytes := self simpleStringContainedArray messagePacked: [:se | se stringAsBytes: true].
+	unpackedAsByteArrays := Object fromMessagePack: bytes.
+	self assert: (unpackedAsByteArrays = (self simpleStringContainedArray collect: [:each | MpPortableUtil default bytesFromString: each])).
+	
+	unpacked := Object fromMessagePack: bytes setting: [:se | se bytesAsString: true].
+	self assert: (unpacked = self simpleStringContainedArray)
+			
+		
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/methodProperties.json b/repository/MessagePackTest.package/MpSettingsTestCase.class/methodProperties.json
@@ -0,0 +1,24 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"arrayWithNil" : "MasashiUmezawa 2/2/2013 20:59",
+		"arrayWithUnknown" : "MasashiUmezawa 2/2/2013 20:58",
+		"complexDictionaryAfterConverted" : "MasashiUmezawa 2/2/2013 21:50",
+		"complexIdentityDictionary" : "MasashiUmezawa 2/2/2013 20:28",
+		"createStringSized:" : "MasashiUmezawa 2/2/2013 21:20",
+		"dictionaryWithNil" : "MasashiUmezawa 2/2/2013 21:01",
+		"dictionaryWithUnknown" : "MasashiUmezawa 2/2/2013 21:02",
+		"simpleIdentityDictionary" : "MasashiUmezawa 2/2/2013 20:19",
+		"simpleString" : "MasashiUmezawa 2/2/2013 20:47",
+		"simpleStringContainedArray" : "MasashiUmezawa 2/2/2013 21:16",
+		"stringSizes" : "MasashiUmezawa 2/2/2013 21:13",
+		"stringsArray" : "MasashiUmezawa 2/2/2013 21:17",
+		"testPackStringArrayAsArrayOfBytes" : "MasashiUmezawa 2/2/2013 21:17",
+		"testPackStringAsBytes" : "MasashiUmezawa 2/2/2013 20:56",
+		"testPackUnknownContainedArray" : "MasashiUmezawa 2/2/2013 21:03",
+		"testPackUnknownContainedDictionary" : "MasashiUmezawa 2/2/2013 21:07",
+		"testPackUnpackComplexIdentityDictionary" : "MasashiUmezawa 2/2/2013 21:50",
+		"testPackUnpackSimpleIdentityDictionary" : "MasashiUmezawa 2/2/2013 21:35",
+		"testPackUnpackStrings" : "MasashiUmezawa 2/2/2013 21:21",
+		"testUnpackBytesAsString" : "MasashiUmezawa 2/2/2013 22:00" } }
diff --git a/repository/MessagePackTest.package/MpSettingsTestCase.class/properties.json b/repository/MessagePackTest.package/MpSettingsTestCase.class/properties.json

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+*MessagePack-Core-unpacking`
	`2`	`+fromMessagePack: bytes setting: settingBlock`
	`3`	`+ ^ MpDecoder decode: bytes setting: settingBlock`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+actions`
	`2`	`+decode: byteArray setting: settingBlock`
	`3`	`+ ^self new decode: byteArray setting: settingBlock`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+actions`
	`2`	`+decodeFrom: aStream setting: settingBlock`
	`3`	`+ ^self new decodeFrom: aStream setting: settingBlock`