Merge pull request #38 from jonatack/add-balance-tests

Add BALANCE tests

.travis.yml

@@ -18,7 +18,7 @@ env:
     - LISP=abcl
     # - LISP=clisp
     # - LISP=cmucl
-    - LISP=ecl
+    # - LISP=ecl
 
 matrix:
   fast_finish: true

cl-kraken.asd

@@ -27,5 +27,6 @@
                "cl-kraken/tests/server-time"
                "cl-kraken/tests/spread"
                "cl-kraken/tests/ticker"
-               "cl-kraken/tests/trades")
+               "cl-kraken/tests/trades"
+               "cl-kraken/tests/balance")
   :perform (test-op (op c) (symbol-call :rove '#:run c)))

src/globals.lisp

@@ -7,8 +7,13 @@
 (in-package #:cl-kraken/src/globals)
 
 ;;; User API key and secret
-(defparameter *api-key* "api-key")
-(defparameter *api-secret* "api-secret")
+
+(defparameter *api-key*
+  "J9G291yReQZ4k7JKqaSsSwKCwcQBDdwzQq92z/I8MOu5j3g3SAAJo04c"
+  "This is an empty account for testing. Replace this value with your API key.")
+(defparameter *api-secret*
+  "Y9T6tmWcRsWryvmi7kpxQcYD5MuMSYpDTCVI1/j4aMnEr+J3QLrU66RTp6KAGmvrsrbs2ycCgjQgELgY9GU5FQ=="
+  "This is an empty account for testing. Replace this vaule with your API secret.")
 
 ;;; Global Parameters
 

tests/balance.lisp

@@ -0,0 +1,11 @@
+;;;; cl-kraken/tests/balance.lisp
+
+(defpackage #:cl-kraken/tests/balance
+  (:use #:cl #:rove))
+(in-package #:cl-kraken/tests/balance)
+
+(deftest balance
+  (testing "when passed no keyword params"
+    (ok (equal (cl-kraken:balance) `(:OBJ ("error")))))
+  (testing "when passed RAW T"
+    (ok (string= (cl-kraken:balance :raw t) "{\"error\":[]}"))))

tests/time.lisp

@@ -1,6 +1,5 @@
 ;;;; cl-kraken/tests/time.lisp
 
-(in-package #:cl-user)
 (defpackage #:cl-kraken/tests/time
   (:use #:cl #:rove))
 (in-package #:cl-kraken/tests/time)