change flag name to :compatibility-mode

Author: edma2

src/msgpack/core.clj

@@ -142,9 +142,9 @@
 
  java.lang.String
  (packable-pack
- [str ^java.io.DataOutput s {:keys [raw]}]
+ [str ^java.io.DataOutput s {:keys [compatibility-mode]}]
  (let [bytes (.getBytes ^String str msgpack-charset)]
- (if raw
+ (if compatibility-mode
  (pack-raw bytes s)
  (pack-str bytes s))))
 
@@ -199,16 +199,16 @@
 (extend (class (java.lang.reflect.Array/newInstance Byte 0))
  Packable
  {:packable-pack
- (fn [bytes ^java.io.DataOutput s {:keys [raw]}]
- (if raw
+ (fn [bytes ^java.io.DataOutput s {:keys [compatibility-mode]}]
+ (if compatibility-mode
  (pack-raw bytes s)
  (pack-bytes bytes s)))})
 
 (extend (Class/forName "[B")
  Packable
  {:packable-pack
- (fn [bytes ^java.io.DataOutput s {:keys [raw]}]
- (if raw
+ (fn [bytes ^java.io.DataOutput s {:keys [compatibility-mode]}]
+ (if compatibility-mode
  (pack-raw bytes s)
  (pack-bytes bytes s)))})
 
@@ -248,9 +248,9 @@
  bytes)))
 
 (defn- read-str
- [n ^java.io.DataInput data-input {:keys [raw]}]
+ [n ^java.io.DataInput data-input {:keys [compatibility-mode]}]
  (let [bytes (read-bytes n data-input)]
- (if raw bytes
+ (if compatibility-mode bytes
  (String. ^bytes bytes msgpack-charset))))
 
 (defmulti refine-ext

test/msgpack/core_test.clj

@@ -46,8 +46,8 @@
  `(let [obj# ~obj
  packed-bytes# (unsigned-bytes ~packed-bytes)
  unpacked-obj# ~unpacked-obj]
- (is (= packed-bytes# (seq (msg/pack obj# {:raw true}))))
- (is (= (normalize unpacked-obj#) (normalize (msg/unpack packed-bytes# {:raw true}))))))
+ (is (= packed-bytes# (seq (msg/pack obj# {:compatibility-mode true}))))
+ (is (= (normalize unpacked-obj#) (normalize (msg/unpack packed-bytes# {:compatibility-mode true}))))))
 
 (deftest nil-test
  (testing "nil"
@@ -218,8 +218,8 @@
 (deftest map-test
  (testing "fixmap"
  (round-trip {} [0x80])
- (round-trip-raw {(byte-array 0) [{"key" (byte-array 0)}]} 
- [0x81 0xa0 0x91 0x81 0xa3 0x6b 0x65 0x79 0xa0] 
+ (round-trip-raw {(byte-array 0) [{"key" (byte-array 0)}]}
+ [0x81 0xa0 0x91 0x81 0xa3 0x6b 0x65 0x79 0xa0]
  {nil [{(.getBytes "key") nil}]})
  (round-trip {1 true 2 "abc" 3 (unsigned-byte-array [0x80])}
  [0x83 0x01 0xc3 0x02 0xa3 0x61 0x62 0x63 0x03 0xc4 0x01 0x80])