 
 (deftest selling-a-commodity-updates-a-lot-record
   (let [context (serialization/realize storage-spec (sell-context))
-        [ira] (:accounts context)
+        ira (find-account context "IRA")
         commodity (find-commodity context "AAPL")
         _ (trading/sell storage-spec (-> context
                                          sale-attributes

(deftest sell-a-commodity
  (let [context (serialization/realize storage-spec purchase-context)
        ira (find-account context "IRA")
        commodity-account (find-account context "AAPL")
        ltcg (find-account context "Long-term Capital Gains")
        commodity (find-commodity context "AAPL")
        purchase (trading/buy storage-spec {:account-id (:id ira)

        "The shares-owned value of the original lot is updated")
    (is (:transaction result)
        "The result contains the transaction record")
    (is (= expected-transaction actual-transaction)
        "The transaction contains the correct attributes")
    (is (empty? (-> result :transaction validation/error-messages))
        "The transaction is valid")
    (testing "entity settings"
