basic ability to test.

src/cljs/auto_ap/forms.cljs

@@ -99,6 +99,11 @@
    (fn [db event]
      (stop-form db form))))
 
+(defn triggers-stop-loading [form]
+  (re-frame/enrich
+   (fn [db event]
+     (assoc-in db [::forms form :status] nil))))
+
 (defn save-succeeded [db id]
   (-> db 
       (assoc-in [::forms id :status] nil)
@@ -116,9 +121,7 @@
                                                       (.preventDefault e))
                                                     (when can-submit
                                                       (re-frame/dispatch-sync (vec (conj submit-event params)))))} 
-                    [:h1.title.is-2 title]
-                    
-                    ]
+                    [:h1.title.is-2 title]]
                    children)))
    :raw-field (fn [control]
                 (let [{:keys [data]} @(re-frame/subscribe [::form id])]
@@ -144,3 +147,4 @@
                                                                                      "disabled")
                                                                          :class (str @(re-frame/subscribe [::loading-class id])
                                                                                      (when error " animated shake"))} child]))})
+

src/cljs/auto_ap/views/pages/admin/rules.cljs

@@ -37,7 +37,6 @@
 (re-frame/reg-event-db
  ::edit-completed
  (fn [db [_ edit-transaction-rule]]
-   (println edit-transaction-rule)
    (-> db
        (update-in [::page :transaction-rules]
                   replace-by :id
@@ -107,4 +106,5 @@
     [side-bar-layout {:side-bar [admin-side-bar {}]
                       :main [rules-content]
                       :right-side-bar [appearing-side-bar {:visible? active?}
-                                       [form/form {:rule-saved [::edit-completed]}]] }]))
+                                       [form/form {:rule-saved [::edit-completed]}]]
+                      :bottom [form/test-results-modal]}]))

src/cljs/auto_ap/views/pages/admin/rules/form.cljs

@@ -3,6 +3,7 @@
             [auto-ap.events :as events]
             [auto-ap.forms :as forms]
             [auto-ap.subs :as subs]
+            [auto-ap.views.components.modal :refer [modal]]
             [auto-ap.utils :refer [dollars=]]
             [auto-ap.views.components.dropdown :refer [drop-down]]
             [auto-ap.views.components.expense-accounts-field :as expense-accounts-field :refer [expense-accounts-field recalculate-amounts]]
@@ -41,6 +42,33 @@
                                                           (assoc :bank-account-id (:id (:bank-account data))))}
                                   default-read]}]}))
 
+(re-frame/reg-sub
+ ::test-query
+ :<- [::forms/form ::form]
+ (fn [{:keys [data] }]
+   {:venia/operation {:operation/type :query
+                      :operation/name "TestTransactionRule"}
+    :venia/queries [{:query/data [:test-transaction-rule
+                                  {:transaction-rule  (-> data
+                                                          (select-keys [:id
+                                                                        :description
+                                                                        :amount-lte
+                                                                        :amount-gte
+                                                                        :note])
+                                                          (assoc :client-id (:id (:client data)))
+                                                          (assoc :bank-account-id (:id (:bank-account data))))}
+                                  [:id
+                                   :date
+                                   :amount
+                                   [:client [:name]]
+                                   [:bank-account [:name]]
+                                   :description-original]]}]}))
+
+(re-frame/reg-sub
+ ::test-results
+ (fn [db]
+   (::test-results db)))
+
 ;; EVENTS
 
 (re-frame/reg-event-db
@@ -84,6 +112,16 @@
      :on-success [::succeeded params]
      :on-error [::forms/save-error ::form]}}))
 
+(re-frame/reg-event-fx
+ ::test-clicked
+ [with-user (forms/triggers-loading ::form) (forms/in-form ::form)]
+ (fn [{:keys [user] {:keys [data]} :db} [_ params]]
+   {:graphql
+    {:token user
+     :query-obj @(re-frame/subscribe [::test-query])
+     :on-success [::succeeded-test]
+     :on-error [::forms/save-error ::form]}}))
+
 (re-frame/reg-event-fx
  ::succeeded
  [(forms/triggers-stop ::form)]
@@ -91,6 +129,15 @@
    {:db (forms/start-form db ::form {:client @(re-frame/subscribe [::subs/client])})
     :dispatch (conj rule-saved (:upsert-transaction-rule result))}))
 
+(re-frame/reg-event-fx
+ ::succeeded-test
+ [(forms/triggers-stop-loading ::form)]
+ (fn [{:keys [db]} [_ result]]
+
+   (println result)
+   {:db (assoc db ::test-results (:test-transaction-rule result))
+    :dispatch [::events/modal-status ::test-results {:visible? true}]}))
+
 
 
 ;; VIEWS
@@ -159,4 +206,30 @@
 
       [error-notification]
 
-      [submit-button "Save"]])])
+      [:div.columns
+       [:div.column
+        [:a.button.is-medium.is-fullwidth.is-outlined {:on-click (dispatch-event [::test-clicked])} "Test Rule"]]
+       [:div.column
+        [submit-button "Save"]]]])])
+
+(defn test-results-modal []
+  (when (:visible? @(re-frame/subscribe [::subs/modal-state ::test-results]))
+    (println "TEST" @(re-frame/subscribe [::test-results]))
+    [modal {:title "Rule results"
+            :hide-event [::events/modal-status ::test-results {:visible? false}]}
+     [:table.table.is-fullwidth.compact
+      [:tr
+       [:th "Client"]
+       [:th "Bank Account"]
+       [:th "Description"]
+       [:th "Date"]
+       [:th "Amount"]]
+      (for [{:keys [id client bank-account description-original date amount]} @(re-frame/subscribe [::test-results])]
+
+        ^{:key id}
+        [:tr
+         [:td (:name client)]
+         [:td (:name bank-account)]
+         [:td description-original]
+         [:td (when date (date->str date))]
+         [:td amount]])]]))