         "The result contains a lot-transaction")
     (is (empty? (-> result :lot-transaction validation/error-messages))
         "The lot transaction is valud")
-    (is (= "Purchase 100 shares of APPL at 10.000" (-> result :transaction :description)) "The transaction description describes the purchase")))
+    (is (= "Purchase 100 shares of AAPL at 10.000" (-> result :transaction :description)) "The transaction description describes the purchase")))
 
 (deftest purchase-a-commodity-with-a-fee
   (let [context (serialization/realize storage-spec purchase-context)

                                         :created-at
                                         :updated-at)))
        expected [{:transaction-date (t/local-date 2017 3 1)
                   :description "Sell 25 shares of APPL at 15.000"
                   :action :credit
                   :account-id (:id st-capital-gains)
                   :amount 125M
                   :memo "Sell 25 shares of APPL at 15.00"
                   :balance 125M
                   :index 0}]]
    (is (= expected gains-items) "The capital gains account is credited the correct amount")))

                                         :created-at
                                         :updated-at)))
        expected [{:transaction-date (t/local-date 2017 3 2)
                   :description "Sell 25 shares of AAPL at 15.000"
                   :action :credit
                   :account-id (:id lt-capital-gains)
                   :amount 125M
                   :memo "Sell 25 shares of AAPL at 15.00"
                   :balance 125M
                   :index 0}]]
    (is (= expected gains-items) "The capital gains account is credited the correct amount")))
