   #?(:cljs (:require [test-utils.core :as tuc])
      :clj (:require (test-utils [core :as tuc]))))
 
-(def physical-quantities [:density
+(def physical-quantities [:angle
+                          :duration
+                          :density
                           :energy
                           :force
                           :length

(defn rand-physical-quantity []
  (rand-nth physical-quantities))

(def quantity-unit-map {:density                [:lb-per-cu-ft :kg-per-m3]
                        :energy                 [:ft-lb :J]
                        :force                  [:lbf :N]
                        :length                 [:ft :m]

       :hp (power-as (typical-power :W) :hp)))))

(def quantity-generate-measurement-map
  {:angle                  (fn [& _] (typical-azimuth (rand-nth (range 360))))
   :duration               (fn [& _] (make-measurement (rand-nth (range 60)) :min))
   :density                typical-density
   :energy                 typical-total-pump-energy
   :force                  typical-force
   :length                 typical-stage-length
