         "The result is not retrieved after delete")))
 
 (def ^:private multi-price-context
-  (assoc price-context :prices [{:commodity-id "APPL"
+  (assoc price-context :prices [{:commodity-id "AAPL"
                                  :trade-date (t/local-date 2017 2 27)
                                  :price 12.34M}
-                                {:commodity-id "APPL"
+                                {:commodity-id "AAPL"
                                  :trade-date (t/local-date 2017 3 2)
                                  :price 12.20}
-                                {:commodity-id "APPL"
+                                {:commodity-id "AAPL"
                                  :trade-date (t/local-date 2017 3 1)
                                  :price 12.00}]))
 
 (deftest get-the-most-recent-price-for-a-commodity
   (let [context (serialization/realize storage-spec multi-price-context)
-        commodity (-> context :commodities first)
+        commodity (find-commodity context "AAPL")
         price (prices/most-recent storage-spec (:id commodity))]
     (is (= 12.20M (:price price)) "The must recent price is returned")))

                                            :trade-date [:between
                                                         (t/local-date 2017 3 1)
                                                         (t/local-date 2017 3 31)]})]
    (is (integer? (:id price))
        "The result contains an ID value")
    (is (empty? (validation/error-messages price))
        "The result does not contain any validation errors")

        "The price can be retrieved after create")))

(def ^:private existing-price-context
  (assoc price-context :prices [{:commodity-id "AAPL"
                                 :trade-date (t/local-date 2017 3 2)
                                 :price 12.34M}]))

