Update test

Author: csicar

test/Spec.hs

@@ -5,13 +5,14 @@ import Purepur.Parser
 import Data.Text as T
 import qualified Language.PureScript.Names as Purs
 import qualified Language.PureScript.AST as AST
+import Purepur.Types
 import qualified Language.PureScript.Interactive.Types as Psci 
 
 
 main :: IO ()
 main = hspec $
   describe "Parse Comment" $ do
-    let importT = Command [ Psci.Import (Purs.ModuleName [Purs.ProperName "T"], AST.Implicit, Nothing) ]
+    let importT = Command $ Psci.Import (Purs.ModuleName [Purs.ProperName "T"], AST.Implicit, Nothing)
 
     it "simple output" $ 
       parseInfoBlock "asd" `shouldBe` Right [ExpectedOutput "asd"]
@@ -23,4 +24,7 @@ main = hspec $
       parseInfoBlock "> import\n   T" `shouldBe`  Right [importT]
 
     it "multi-statement" $
-      parseInfoBlock "> import\n   T\n123" `shouldBe` Right [importT, ExpectedOutput "123"]
+      parseInfoBlock "> import\n   T\n123" `shouldBe` Right [importT, ExpectedOutput "123"]
+  -- describe "Pretty Print" $ do
+  --   it "print qualified op" $
+  --     pretty