Stop stripping out the "default" sound from APNS objects, because sen…

…ding that

is Apple's recommended way of requesting the default notification sound. If
you omit it, then no sound at all is played.

src/herolabs/apns/message.clj

@@ -4,11 +4,7 @@
 (defn with-badge [message number] (assoc-in message [:aps :badge ] number))
 
 (defn with-sound [message sound]
-  (cond
-    (= :default sound) (update-in message [:aps ] #(dissoc % :sound ))
-    (= "default" sound) (update-in message [:aps ] #(dissoc % :sound ))
-    :else (assoc-in message [:aps :sound ] sound)
-    )
+  (assoc-in message [:aps :sound ] (name sound))
   )
 
 (defn with-standard-alert [message body]
@@ -44,4 +40,5 @@
   (if key
     (assoc-in message [:aps :alert :body ] body)
     message)
-  )
+  )
+

test/herolabs_test/apns/message.clj

@@ -7,9 +7,9 @@
 
 (facts "about message assembly"
   (with-badge {} 1) => (just {:aps {:badge 1}})
-  (with-sound {} :default) => (just {:aps nil})
-  (with-sound {} "default") => (just {:aps nil})
-  (with-sound {} :chimes) => (just {:aps {:sound :chimes}})
+  (with-sound {} :default) => (just {:aps {:sound "default"}})
+  (with-sound {} "default") => (just {:aps {:sound "default"}})
+  (with-sound {} :chimes) => (just {:aps {:sound "chimes"}})
   (with-standard-alert {} "Hello world") => (just {:aps {:alert "Hello world"}})
   (with-action-loc-key {} "TEST") => (just {:aps {:alert {:action-loc-key "TEST"}}})
   (with-loc-key {} "TEST") => (just {:aps {:alert {:loc-key "TEST"}}})