prettyprinter-interp-0.1.0.0: test/unittests.hs

{-|
  Copyright   :  (C) 2022     , Peter Lebbing
  License     :  BSD2 (see the file LICENSE)
  Maintainer  :  Peter Lebbing <peter@digitalbrains.com>
-}

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}

module Main where

import Data.Text (Text)
import Test.Tasty
import Test.Tasty.HUnit

import Prettyprinter.Interpolate

f :: Text
f = "world"

basicFunc :: Assertion
basicFunc = show [di|Hello #{f}!|] @?= "Hello world!"

tests :: TestTree
tests =
  testCase "Basic functionality" basicFunc

main :: IO ()
main = defaultMain tests