didier/skirmish
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

beautify code

Browse Source
This commit is contained in:
didier amyot committed 2018-06-24 17:37:37 -04:00
1 parent 174319293c
commit c823775c0c
4 files changed
+22 -24
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

test/book/exchange_test.clj
+8 -8
View File
@@ -12,7 +12,7 @@
(let [book empty-book
order {:type :sell :quantity 10 :price 2 :book.order/id 1}
expt-new-sell-book [order]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-sell-order-2 book order)]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-sell-order book order)]
new-sell-book => expt-new-sell-book
new-buy-book => empty?
new-order => order
@@ -25,7 +25,7 @@
order {:type :sell :quantity 4 :price 2 :book.order/id 3}
expt-new-buy-book [{:price 3 :quantity 6 :type :buy :book.order/id 2}]
expt-new-trades [#:book.order{:book-id 2 :order-id 3 :price 3 :quantity 4 :type :buy}]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order-2 book order)]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order book order)]
new-sell-book => empty?
new-buy-book => expt-new-buy-book
new-order => nil?
@@ -35,7 +35,7 @@
(let [book empty-book
order {:type :buy :quantity 10 :price 2 :book.order/id 1}
expt-new-sell-book [order]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order-2 book order)]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order book order)]
new-sell-book => empty?
new-buy-book => expt-new-sell-book
new-order => order
@@ -48,7 +48,7 @@
order {:type :buy :quantity 4 :price 4 :book.order/id 3}
expt-new-sell-book [{:price 3 :quantity 6 :type :sell :book.order/id 2}]
expt-new-trades [#:book.order{:book-id 2 :order-id 3 :price 3 :quantity 4 :type :sell}]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order-2 book order)]
[{new-sell-book :sell new-buy-book :buy} new-order new-trades] (process-order book order)]
new-sell-book => expt-new-sell-book
new-order => nil?
new-trades => expt-new-trades))
@@ -61,10 +61,10 @@
order-4 {:type :sell :quantity 1 :price 102 :book.order/id 10}
expt-book-4 {:buy [{:price 99 :quantity 8 :type :buy :book.order/id 8}]
:sell [{:price 102 :quantity 1 :type :sell :book.order/id 10}]}
[book-1 _ _] (process-order-2 book order-1)
[book-2 _ _] (process-order-2 book-1 order-2)
[book-3 _ _] (process-order-2 book-2 order-3)
[book-4 _ _] (process-order-2 book-3 order-4)]
[book-1 _ _] (process-order book order-1)
[book-2 _ _] (process-order book-1 order-2)
[book-3 _ _] (process-order book-2 order-3)
[book-4 _ _] (process-order book-3 order-4)]
book-4 => expt-book-4)))