 (def activation-group-fn (util/make-activation-group-fn :normal))
 (def activation-group-sort-fn (util/make-activation-group-sort-fn groups :normal))
 
-;; TODO. Test activation groups w/ our macro in CLJ, CLJS
-;(def-tuple-session tuple-session
-;  'libx.perf-tuple)
+(def-tuple-session tuple-session
+  'libx.perf-tuple
+  :activation-group-fn activation-group-fn
+  :activation-group-sort-fn activation-group-sort-fn)
 
-(def tuple-session
-  (cr/mk-session 'libx.perf-tuple
-   :fact-type-fn :a
-   :ancestors-fn (fn [type] [:all])
-   :activation-group-fn activation-group-fn
-   :activation-group-sort-fn activation-group-sort-fn))
+;(def tuple-session
+;  (cr/mk-session 'libx.perf-tuple
+;   :fact-type-fn :a
+;   :ancestors-fn (fn [type] [:all])
+;   :activation-group-fn activation-group-fn
+;   :activation-group-sort-fn activation-group-sort-fn))
 
 (defn n-facts-session [n]
   (-> tuple-session

;; ~~~~Tracing, new one every loop, no queries~~~~
;; loop                  74ms
;; loading file          22ms (wtf?)


;; ~~~~~~~~~~~~~~~~~~NO AGENDA GROUPS~~~~~~~~~~~~~~~~~~~~~~~~~~
;; ~~~~~~~~~~~~~~~~~~add-item-cleanup NOT FIRING~~~~~~~~~~~~~~~
;; ~~~~No queries~~~~
;; loop                 47ms
;; loading file       1776ms
;;
;; ~~~~Including queries in the session def~~~~
;; qav-
;;     loop              47ms
;;     loading file    2086ms
;;
;; entity-
