regex-do-1.6: test/TestRegex/TestFormat.hs

{-# LANGUAGE NoOverloadedStrings #-}
module TestRegex.TestFormat where

import Test.Hspec
import Text.Regex.Do.Format
import Text.Regex.Do.Pad


main::IO()
main = hspec $ do
       describe "Habase.Bin.Format" $ do
          it "list arg 0,0 repl []" $
            format "на первое {0}, на второе {0}" ([]::[String]) `shouldBe` "на первое {0}, на второе {0}"
          it "list arg 0,0" $
            format "на первое {0}, на второе {0}" ["перловка"] `shouldBe` "на первое перловка, на второе перловка"
          it "list arg 0,1" $
            format "Polly {0} a {1}" ["gets","cracker"] `shouldBe` "Polly gets a cracker"
          it "map arg" $
            format "овчинка {a} не {b}" [("a","выделки"),("b","стоит")] `shouldBe` "овчинка выделки не стоит"
          it "pad" $ pad '-' 5 "abc" `shouldBe` "--abc"
          it "pad'" $ pad' '-' 5 "abc" `shouldBe` "abc--"
          it "pad" $ pad '-' 3 "abcde" `shouldBe` "abcde"