   (let [context (serialization/realize storage-spec balance-context)
         [checking-items
          salary-items
-         groceries-items] (map #(transactions/items-by-account storage-spec (:id %))
+         groceries-items] (map #(transactions/items-by-account
+                                  storage-spec
+                                  (:id %)
+                                  [(t/local-date 2016 1 1)
+                                   (t/local-date 2016 12 31)])
                                (:accounts context))]
            ; Transactions are returned with most recent first
     (is (= [900M 1000M]

            expected-after[{:index 1 :amount 102M :balance 898M}
                           {:index 0 :amount 1000M :balance 1000M}]
            actual-after (map #(select-keys % [:index :amount :balance]) checking-items-after)]
        (is (= expected-before actual-before)
            "Checking should have the correct items before delete")
        (is (= expected-after actual-after)
            "Checking should have the correct items after delete")))
    (testing "account balances are adjusted"

        [checking
         salary
         groceries] (:accounts context)
        items-fn (fn []
                   (transactions/items-by-account
                                storage-spec
                                (:id checking)
                                [(t/local-date 2016 1 1) (t/local-date 2016 12 31)]))
        checking-items-before (items-fn)
        trans (-> context
                  :transactions
                  second)
        _ (transactions/delete storage-spec (:id trans) (:transaction-date trans))
        checking-items-after (items-fn)]
    (testing "transaction item balances are adjusted"
      (let [expected-before [{:index 2 :amount 102M :balance 797M}
                             {:index 1 :amount 101M :balance 899M}
