Adds tests for transactions

src/clj/auto_ap/graphql/transactions.clj

@@ -28,7 +28,8 @@
    [clojure.tools.logging :as log]
    [com.walmartlabs.lacinia.util :refer [attach-resolvers]]
    [datomic.api :as d]
-   [auto-ap.graphql.utils :refer [attach-tracing-resolvers]]))
+   [auto-ap.graphql.utils :refer [attach-tracing-resolvers]]
+   [com.brunobonacci.mulog :as mu]))
 
 (def approval-status->graphql (ident->enum-f :transaction/approval-status))
 
@@ -477,6 +478,7 @@
         approval-status->graphql
         ->graphql)))
 
+;; TODO autopay and unpaid are basically the exact same. Migrate to one call
 (defn match-transaction-unpaid-invoices [context {:keys [transaction_id unpaid_invoice_ids]} _]
   (let [_ (assert-power-user (:id context))
         transaction (d-transactions/get-by-id transaction_id)
@@ -525,6 +527,7 @@
 
                           
                           transaction_ids)
+        _ (mu/log ::here :txids transaction_ids)
         transaction_ids (all-ids-not-locked transaction_ids)
         transactions (transduce
                       (comp