From f9453f0f539671483be58b72187bc5b563edc3d5 Mon Sep 17 00:00:00 2001
From: ocramz <zocca.marco@gmail.com>
Date: Fri, 27 Apr 2018 11:30:29 +0200
Subject: [PATCH] fixed #42

---
 test/LibSpec.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/test/LibSpec.hs b/test/LibSpec.hs
index 2cf74ee..3ea8be0 100644
--- a/test/LibSpec.hs
+++ b/test/LibSpec.hs
@@ -33,6 +33,11 @@ main = hspec spec
 
 spec :: Spec
 spec = do
+  describe "Data.Sparse.Commond" $ do
+    it "fromRowsL assembles a SpMatrix from a list of SpVector rows" $
+      fromRowsL [x42, y42] `shouldBe` m42
+    it "fromColsL assembles a SpMatrix from a list of SpVector columns" $
+      fromColsL [x42, y42] `shouldBe` transposeSM m42      
   describe "Numeric.LinearAlgebra.Sparse : Library" $ do
     prop "Subtraction is cancellative" $ \(x :: SpVector Double) ->
       norm2Sq (x ^-^ x) `shouldBe` zeroV
@@ -1168,3 +1173,5 @@ x42, y42 :: SpVector Double
 x42 = fromListSV 4 [(2,3)] 
 y42 = fromListSV 4 [(0,3)] 
 
+m42 :: SpMatrix Double
+m42 = fromListSM (2, 4) [(1,0,3), (0,2,3)]