ocassionally create a closed position

finos · Sep 18, 2024 · 1063915 · 1063915
1 parent 7770e99
commit 1063915
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/reference-service/src/reference_service/data/loader.clj b/reference-service/src/reference_service/data/loader.clj
@@ -156,7 +156,11 @@
                                     (let [id (str (UUID/randomUUID))
                                           buy-date (+ start (* offset day))
                                           sell-date (+ buy-date week)
-                                          half-buy-quantity (int (/ (inc quantity) 2))]
+                                          half-buy-quantity (int (/ (inc quantity) 2))
+                                          sell-quantity (if (> (rand-int 10) 8)
+                                                          quantity
+                                                          (+ half-buy-quantity
+                                                             (rand-int half-buy-quantity)))]
                                       [{:created buy-date
                                         :updated (+ buy-date hour hour)
                                         :id id
@@ -171,7 +175,7 @@
                                         :accountId account
                                         :security stock
                                         :unitPrice (stock-price-for-date jdbc-ds stock sell-date)
-                                        :quantity (+ half-buy-quantity (rand-int half-buy-quantity))
+                                        :quantity sell-quantity
                                         :side "Sell"}]))
                                   stock-quantities))
                                account-stocks))]