git.iko.soy/typeable/xsd-parser
on master help sign in
Add testsuite
6881f2bDenis Redozubov
test/Main.hsnew file+23
compare with master
unifiedsplit
@@ -0,0 +1,23 @@
1+{-# OPTIONS -fno-warn-unused-imports #-}
2+module Main where
3+
4+import Control.Exception
5+import Data.ByteString.Lazy as BL
6+import Data.Either
7+import Test.Hspec
8+import Text.XML
9+import Text.XSD
10+
11+
12+main :: IO ()
13+main = hspec $ do
14+ it "parses simple xsd correctly" $ do
15+ xsd <- parseXSD def <$> BL.readFile "test/fixtures/simple.xsd"
16+ xsd `shouldSatisfy` isRight
17+ it "parses retrieve_set_map xsd correctly" $ do
18+ xsd <- parseXSD def <$> BL.readFile "test/fixtures/retrieve_seat_map.xml"
19+ xsd `shouldSatisfy` isRight
20+ -- complexContent, imports and extensions are unsupported
21+ -- it "parses enhanced_air_ticket xsd correctly" $ do
22+ -- xsd <- parseXSD def <$> BL.readFile "test/fixtures/enhanced_air_ticket.xsd"
23+ -- xsd `shouldSatisfy` isRight