 
 (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

                                            :trade-date (t/local-date 2016 3 2)
                                            :shares 100M
                                            :value 1000M})
        lot (-> purchase :lot)
        result (trading/sell storage-spec (sale-attributes context))
        actual-transaction (-> result

        "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"
