2: Payment (basic)

ducki2p · Jan 1, 2011 · 5a3c418 · 5a3c418
1 parent 8d177d8
commit 5a3c418
Show file tree

Hide file tree

Showing 4 changed files with 32 additions and 7 deletions.
diff --git a/src/i2conomy/core.clj b/src/i2conomy/core.clj
diff --git a/src/i2conomy/mint.clj b/src/i2conomy/mint.clj
@@ -0,0 +1,18 @@
+(ns i2conomy.mint)
+
+(def transfers (ref ()))
+
+(defrecord Transfer [timestamp from to currency amount memo])
+
+(defn pay
+  "Makes a payment between accounts"
+  [from to currency amount memo]
+    (dosync
+      (let [now (java.util.Date.)]
+        (alter transfers conj (Transfer. now from to currency amount memo)))))
+
+(defn reset-all!
+  "Reset all transfers, use with care"
+  []
+  (dosync
+    (ref-set transfers ())))
diff --git a/test/i2conomy/test/core.clj b/test/i2conomy/test/core.clj
diff --git a/test/i2conomy/test/mint.clj b/test/i2conomy/test/mint.clj
@@ -0,0 +1,14 @@
+(ns i2conomy.test.mint
+  (:use [i2conomy.mint] :reload)
+  (:use [clojure.test]))
+
+(deftest no-payments
+  (do
+    (reset-all!)
+    (is (= 0 (count @transfers)))))
+
+(deftest single-payment
+  (do
+    (reset-all!)
+    (pay "alice" "bob" "alice" 100 "groceries")
+      (is (= 1 (count @transfers)))))