picnoir/hnix
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

remove mkDots test, no longer necessary

Browse source
This commit is contained in:
Allen Nelson 2018-02-28 10:59:53 -06:00
parent ac731ee4a0
commit cbee241685
2 changed files with 1 additions and 43 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Nix/Expr/Shorthands.hs
View file

@ -6,14 +6,11 @@ module Nix.Expr.Shorthands where
import Prelude
import Data.Monoid
import Data.Text (Text, unpack)
import Data.Text (Text)
import Data.Fix
import qualified Data.Map as Map
import Nix.Atoms
import Nix.Parser.Library (reservedNames)
import Nix.Expr.Types
import Text.Regex.TDFA.Text ()
import Text.Regex.TDFA ((=~))
-- | Make an integer literal expression.
mkInt :: Integer -> NExpr

39
tests/ShorthandTests.hs
View file

@ -1,39 +0,0 @@
{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
module ShorthandTests (tests) where
import Prelude
import Test.Tasty
import Test.Tasty.HUnit
import Test.Tasty.TH
import Control.Monad (forM_)
import Data.Monoid ((<>))
import Data.Fix
import Nix.Expr
case_mkDotsSymbolEscaping :: Assertion
case_mkDotsSymbolEscaping = do
let check xs errmsg assert =
forM_ xs $ \x -> assertBool (errmsg <> ": " <> show x) $ assert x
check plain "not a plain value" $ assertIsSingle
check nonPlain "not a non-plain value" $ not . assertIsSingle
where
plain = [ "abc09", "_A_'-", "AbC" ]
nonPlain = [ "abc def", "\\", "'abc", "\"", "-foo", "a.b.c" ]
assertIsSingle = isPlainSingle . getKey . mkDot "dummy"
getKey (Fix (NSelect _ [key] _)) = key
getKey _ = error "invalid"
isPlainSingle (StaticKey _) = True
isPlainSingle (DynamicKey (Plain (DoubleQuoted [Plain _]))) = False
isPlainSingle _ = error "invalid"
---------------------------
tests :: TestTree
tests = $(testGroupGenerator)