   (:use forma.matrix.utils
         midje.sweet)
   (:require [incanter.core :as i]))
+
+(fact "is-square? tests"
+  (is-square? (i/matrix (range 4) 2)) => true
+  (is-square? (i/matrix (range 6) 2)) => false)
 
 (facts "singular? tests."
   (singular? (i/matrix [[1 0] [1 0]])) => true

 [[10 1] [12 4] [8 1] [15 9] [16 1]] [1 0 4 0 0 9 1]
 [[10 1] [12 4] [8 1] [15 9]]        [1 0 4 0 0 9])

(fact
  "Check `sparse-prep`"
  (sparse-prep [[3 2]] [[1 1]]) => [[3 1] [2 1]]

    (transpose (transpose coll-mat)) => coll-mat
    (count (transpose coll-mat)) => (count (first coll-mat))))

(fact "check `outer-product` - verify values and dimension of the output."
  (let [coll [1 2 3]
        outer (outer-product coll)]
    outer => '(1.0 2.0 3.0 2.0 4.0 6.0 3.0 6.0 9.0)
