refactored main project name

This commit is contained in:
didier amyot committed 2018-06-25 11:09:27 -04:00
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]))
@@ -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)