refactored main project name
This commit is contained in:
1 parent
d2c554dcc8
commit
d22f0515d5
22 files changed
+62
-137
No files matched your search
@@ -1,11 +1,11 @@
|
||||
(ns book.exchange-test
|
||||
(:import [book.PersistentSortedList])
|
||||
(ns skirmish.exchange-test
|
||||
(:import [skirmish.PersistentSortedList])
|
||||
(:require [midje.sweet :refer :all]
|
||||
[book.exchange :refer :all]
|
||||
[book.match :refer [create-buy-book
|
||||
create-sell-book]]))
|
||||
[skirmish.exchange :refer :all]
|
||||
[skirmish.match :refer [create-buy-book
|
||||
create-sell-book]]))
|
||||
|
||||
(def PersistentSortedList? (comp #(= % book.PersistentSortedList) type))
|
||||
(def PersistentSortedList? (comp #(= % skirmish.PersistentSortedList) type))
|
||||
|
||||
(facts "the exchange as an whole"
|
||||
(fact "process-sell-order should work when book empty"
|
||||
@@ -1,8 +1,8 @@
|
||||
(ns book.match-test
|
||||
(ns skirmish.match-test
|
||||
(:require [midje.sweet :refer :all]
|
||||
[book.match :refer :all]))
|
||||
[skirmish.match :refer :all]))
|
||||
|
||||
(def PersistentSortedList? (comp #(= % book.PersistentSortedList) type))
|
||||
(def PersistentSortedList? (comp #(= % skirmish.PersistentSortedList) type))
|
||||
|
||||
|
||||
(facts "matching buy order in sell book"
|
||||
@@ -112,7 +112,7 @@
|
||||
order {:type :sell :quantity 21 :price 13 :book.order/id 118}
|
||||
[_ new-book _] (match-order-in-book book order)]
|
||||
(count new-book) => 0
|
||||
(type new-book) => book.PersistentSortedList)))
|
||||
(type new-book) => skirmish.PersistentSortedList)))
|
||||
;(fact "should not fuck up"
|
||||
; (let [order-1 {:type :buy :quantity 4 :price 4 :book.order/id 5}
|
||||
; order-2 {:type :sell :quantity 2 :price 3 :book.order/id 6}
|
||||
@@ -1,5 +1,5 @@
|
||||
(ns book.rest.util-test
|
||||
(:require [book.rest.util :refer [build-response]]
|
||||
(ns skirmish.rest.util-test
|
||||
(:require [skirmish.rest.util :refer [build-response]]
|
||||
[midje.sweet :refer :all]
|
||||
[clojure.test :refer :all]))
|
||||
|
||||
+3
-3
@@ -1,6 +1,6 @@
|
||||
(ns book.test-PersistentSortedList
|
||||
(ns skirmish.test-PersistentSortedList
|
||||
(:require [midje.sweet :refer :all]
|
||||
[book.util :refer [sorted-list sorted-list-by]]))
|
||||
[skirmish.util :refer [sorted-list sorted-list-by]]))
|
||||
|
||||
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
(rest (sorted-list 1 2 3 2)) => (sorted-list 2 2 3)
|
||||
(rest (sorted-list 1)) => (sorted-list)
|
||||
(rest (sorted-list)) => empty?
|
||||
(str (type (rest (sorted-list)))) => "class book.PersistentSortedList")
|
||||
(str (type (rest (sorted-list)))) => "class skirmish.PersistentSortedList")
|
||||
(fact "next"
|
||||
(next (sorted-list 1 2 3)) => (sorted-list 2 3)
|
||||
(next (sorted-list 1 2 3 2)) => (sorted-list 2 2 3)
|
||||
Reference in new issue
Block a user