hnix-0.17.0: tests/PrettyTests.hs

{-# language TemplateHaskell #-}

module PrettyTests  ( tests ) where

import           Nix.Prelude
import           Test.Tasty
import           Test.Tasty.HUnit
import           Test.Tasty.TH

import           Nix.Expr
import           Nix.Pretty

case_indented_antiquotation :: Assertion
case_indented_antiquotation =
  do
    assertPretty
      (mkIndentedStr 0 "echo $foo")
      "''echo $foo''"
    assertPretty
      (mkIndentedStr 0 "echo ${foo}")
      "''echo ''${foo}''"

case_string_antiquotation :: Assertion
case_string_antiquotation =
  do
    assertPretty
      (mkStr "echo $foo")
      "\"echo $foo\""
    assertPretty
      (mkStr "echo ${foo}")
      "\"echo \\${foo}\""

case_function_params :: Assertion
case_function_params =
  assertPretty
    (mkFunction (mkVariadicParamSet mempty) (mkInt 3))
    "{ ... }:\n  3"

case_paths :: Assertion
case_paths =
  do
    assertPretty
      (mkPath False "~/test.nix")
      "~/test.nix"
    assertPretty
      (mkPath False "/test.nix")
      "/test.nix"
    assertPretty
      (mkPath False "./test.nix")
      "./test.nix"

tests :: TestTree
tests = $testGroupGenerator

---------------------------------------------------------------------------------
assertPretty :: NExpr -> Text -> Assertion
assertPretty e s =
  assertEqual ("When pretty-printing " <> show e) s . show $ prettyNix e