2014-08-03 14:17:43 +02:00
|
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module ParserTests (tests) where
|
|
|
|
|
2014-09-27 20:11:17 +02:00
|
|
|
import Data.Fix
|
|
|
|
import Data.Text (pack)
|
2014-08-03 14:17:43 +02:00
|
|
|
import Test.Tasty
|
|
|
|
import Test.Tasty.HUnit
|
|
|
|
import Test.Tasty.TH
|
|
|
|
|
2014-08-13 23:30:24 +02:00
|
|
|
import qualified Data.Map as Map
|
|
|
|
|
2016-01-23 22:20:33 +01:00
|
|
|
import Nix.Expr
|
2014-08-03 14:17:43 +02:00
|
|
|
import Nix.Parser
|
2016-01-23 22:46:30 +01:00
|
|
|
import Nix.StringOperations
|
|
|
|
|
|
|
|
import Prelude
|
2014-08-03 14:17:43 +02:00
|
|
|
|
|
|
|
case_constant_int :: Assertion
|
2014-08-05 21:23:28 +02:00
|
|
|
case_constant_int = assertParseString "234" $ mkInt 234
|
|
|
|
|
|
|
|
case_constant_bool :: Assertion
|
|
|
|
case_constant_bool = do
|
|
|
|
assertParseString "true" $ mkBool True
|
|
|
|
assertParseString "false" $ mkBool False
|
2014-08-03 14:17:43 +02:00
|
|
|
|
2014-08-16 00:16:12 +02:00
|
|
|
case_constant_path :: Assertion
|
|
|
|
case_constant_path = do
|
2014-08-18 22:54:20 +02:00
|
|
|
assertParseString "./." $ mkPath False "./."
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseString "./+-_/cdef/09ad+-" $ mkPath False "./+-_/cdef/09ad+-"
|
2014-08-18 22:54:20 +02:00
|
|
|
assertParseString "/abc" $ mkPath False "/abc"
|
|
|
|
assertParseString "../abc" $ mkPath False "../abc"
|
|
|
|
assertParseString "<abc>" $ mkPath True "abc"
|
|
|
|
assertParseString "<../cdef>" $ mkPath True "../cdef"
|
2014-08-20 15:47:41 +02:00
|
|
|
assertParseString "a//b" $ mkOper2 NUpdate (mkSym "a") (mkSym "b")
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseString "rec+def/cdef" $ mkPath False "rec+def/cdef"
|
2014-08-20 15:47:41 +02:00
|
|
|
assertParseString "a/b//c/def//<g> < def/d" $ mkOper2 NLt
|
|
|
|
(mkOper2 NUpdate (mkPath False "a/b") $ mkOper2 NUpdate
|
|
|
|
(mkPath False "c/def") (mkPath True "g"))
|
|
|
|
(mkPath False "def/d")
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseString "a'b/c" $ Fix $ NApp (mkSym "a'b") (mkPath False "/c")
|
2014-08-16 00:16:12 +02:00
|
|
|
assertParseFail "."
|
|
|
|
assertParseFail ".."
|
|
|
|
assertParseFail "/"
|
2014-08-20 15:47:41 +02:00
|
|
|
assertParseFail "a/"
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseFail "a/def/"
|
|
|
|
|
|
|
|
case_constant_uri :: Assertion
|
|
|
|
case_constant_uri = do
|
|
|
|
assertParseString "a:a" $ mkUri "a:a"
|
|
|
|
assertParseString "http://foo.bar" $ mkUri "http://foo.bar"
|
|
|
|
assertParseString "a+de+.adA+-:%%%ads%5asdk&/" $ mkUri "a+de+.adA+-:%%%ads%5asdk&/"
|
|
|
|
assertParseString "rec+def:c" $ mkUri "rec+def:c"
|
|
|
|
assertParseString "f.foo:bar" $ mkUri "f.foo:bar"
|
|
|
|
assertParseFail "http://foo${\"bar\"}"
|
|
|
|
assertParseFail ":bcdef"
|
|
|
|
assertParseFail "a%20:asda"
|
|
|
|
assertParseFail ".:adasd"
|
|
|
|
assertParseFail "+:acdcd"
|
2014-08-16 00:16:12 +02:00
|
|
|
|
2014-08-03 14:17:43 +02:00
|
|
|
case_simple_set :: Assertion
|
2014-08-13 22:40:35 +02:00
|
|
|
case_simple_set = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ a = 23; b = 4; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar (mkSelector "a") $ mkInt 23
|
|
|
|
, NamedVar (mkSelector "b") $ mkInt 4
|
2014-08-13 22:40:35 +02:00
|
|
|
]
|
|
|
|
assertParseFail "{ a = 23 }"
|
|
|
|
|
|
|
|
case_set_inherit :: Assertion
|
|
|
|
case_set_inherit = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ e = 3; inherit a b; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar (mkSelector "e") $ mkInt 3
|
|
|
|
, Inherit Nothing [mkSelector "a", mkSelector "b"]
|
2014-08-13 22:40:35 +02:00
|
|
|
]
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ inherit; }" $ Fix $ NSet [ Inherit Nothing [] ]
|
2014-08-13 22:40:35 +02:00
|
|
|
|
|
|
|
case_set_scoped_inherit :: Assertion
|
2016-01-24 00:18:41 +01:00
|
|
|
case_set_scoped_inherit = assertParseString "{ inherit (a) b c; e = 4; inherit(a)b c; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ Inherit (Just (mkSym "a")) [mkSelector "b", mkSelector "c"]
|
|
|
|
, NamedVar (mkSelector "e") $ mkInt 4
|
|
|
|
, Inherit (Just (mkSym "a")) [mkSelector "b", mkSelector "c"]
|
2014-08-13 22:40:35 +02:00
|
|
|
]
|
|
|
|
|
|
|
|
case_set_rec :: Assertion
|
2016-01-24 00:18:41 +01:00
|
|
|
case_set_rec = assertParseString "rec { a = 3; b = a; }" $ Fix $ NRecSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar (mkSelector "a") $ mkInt 3
|
|
|
|
, NamedVar (mkSelector "b") $ mkSym "a"
|
2014-08-13 22:40:35 +02:00
|
|
|
]
|
|
|
|
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
case_set_complex_keynames :: Assertion
|
|
|
|
case_set_complex_keynames = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ \"\" = null; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar [DynamicKey (Plain "")] mkNull ]
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ a.b = 3; a.c = 4; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar [StaticKey "a", StaticKey "b"] $ mkInt 3
|
|
|
|
, NamedVar [StaticKey "a", StaticKey "c"] $ mkInt 4
|
|
|
|
]
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ ${let a = \"b\"; in a} = 4; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar [DynamicKey (Antiquoted letExpr)] $ mkInt 4 ]
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ \"a${let a = \"b\"; in a}c\".e = 4; }" $ Fix $ NSet
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ NamedVar [DynamicKey (Plain str), StaticKey "e"] $ mkInt 4 ]
|
|
|
|
where
|
2016-01-24 00:18:41 +01:00
|
|
|
letExpr = Fix $ NLet [ NamedVar (mkSelector "a") (mkStr "b") ] (mkSym "a")
|
|
|
|
str = DoubleQuoted [Plain "a", Antiquoted letExpr, Plain "c"]
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
|
2014-08-13 22:40:35 +02:00
|
|
|
case_set_inherit_direct :: Assertion
|
2016-01-24 00:18:41 +01:00
|
|
|
case_set_inherit_direct = assertParseString "{ inherit ({a = 3;}); }" $ Fix $ NSet
|
|
|
|
[ flip Inherit [] $ Just $ Fix $ NSet [NamedVar (mkSelector "a") $ mkInt 3]
|
2014-08-03 14:17:43 +02:00
|
|
|
]
|
|
|
|
|
2014-08-15 23:30:24 +02:00
|
|
|
case_inherit_selector :: Assertion
|
|
|
|
case_inherit_selector = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{ inherit \"a\"; }" $ Fix $ NSet
|
2014-08-15 23:30:24 +02:00
|
|
|
[ Inherit Nothing [ [DynamicKey (Plain "a")] ] ]
|
|
|
|
assertParseFail "{ inherit a.x; }"
|
|
|
|
|
2014-08-03 14:17:43 +02:00
|
|
|
case_int_list :: Assertion
|
|
|
|
case_int_list = assertParseString "[1 2 3]" $ Fix $ NList
|
2014-08-05 21:23:28 +02:00
|
|
|
[ mkInt i | i <- [1,2,3] ]
|
2014-08-03 14:17:43 +02:00
|
|
|
|
|
|
|
case_int_null_list :: Assertion
|
|
|
|
case_int_null_list = assertParseString "[1 2 3 null 4]" $ Fix (NList (map (Fix . NConstant) [NInt 1, NInt 2, NInt 3, NNull, NInt 4]))
|
|
|
|
|
2014-08-15 23:30:24 +02:00
|
|
|
case_mixed_list :: Assertion
|
|
|
|
case_mixed_list = do
|
|
|
|
assertParseString "[{a = 3;}.a (if true then null else false) null false 4 [] c.d or null]" $ Fix $ NList
|
2016-01-24 00:18:41 +01:00
|
|
|
[ Fix (NSelect (Fix (NSet [NamedVar (mkSelector "a") (mkInt 3)])) (mkSelector "a") Nothing)
|
2014-08-15 23:30:24 +02:00
|
|
|
, Fix (NIf (mkBool True) mkNull (mkBool False))
|
|
|
|
, mkNull, mkBool False, mkInt 4, Fix (NList [])
|
|
|
|
, Fix (NSelect (mkSym "c") (mkSelector "d") (Just mkNull))
|
|
|
|
]
|
|
|
|
assertParseFail "[if true then null else null]"
|
|
|
|
assertParseFail "[a ? b]"
|
|
|
|
assertParseFail "[a : a]"
|
|
|
|
assertParseFail "[${\"test\")]"
|
|
|
|
|
2014-08-03 14:17:43 +02:00
|
|
|
case_simple_lambda :: Assertion
|
2016-01-24 00:18:41 +01:00
|
|
|
case_simple_lambda = assertParseString "a: a" $ Fix $ NAbs (Param "a") (mkSym "a")
|
2014-08-03 14:17:43 +02:00
|
|
|
|
2014-08-18 22:54:20 +02:00
|
|
|
case_lambda_or_uri :: Assertion
|
|
|
|
case_lambda_or_uri = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "a :b" $ Fix $ NAbs (Param "a") (mkSym "b")
|
2014-08-18 22:54:20 +02:00
|
|
|
assertParseString "a c:def" $ Fix $ NApp (mkSym "a") (mkUri "c:def")
|
|
|
|
assertParseString "c:def: c" $ Fix $ NApp (mkUri "c:def:") (mkSym "c")
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "a:{}" $ Fix $ NAbs (Param "a") $ Fix $ NSet []
|
|
|
|
assertParseString "a:[a]" $ Fix $ NAbs (Param "a") $ Fix $ NList [mkSym "a"]
|
2014-08-18 22:54:20 +02:00
|
|
|
assertParseFail "def:"
|
|
|
|
|
2014-08-13 23:30:24 +02:00
|
|
|
case_lambda_pattern :: Assertion
|
|
|
|
case_lambda_pattern = do
|
|
|
|
assertParseString "{b, c ? 1}: b" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (FixedParamSet args Nothing) (mkSym "b")
|
2014-08-16 00:16:12 +02:00
|
|
|
assertParseString "{ b ? x: x }: b" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (FixedParamSet args2 Nothing) (mkSym "b")
|
2014-08-13 23:30:24 +02:00
|
|
|
assertParseString "a@{b,c ? 1}: b" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (FixedParamSet args (Just "a")) (mkSym "b")
|
2014-08-13 23:30:24 +02:00
|
|
|
assertParseString "{b,c?1}@a: c" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (FixedParamSet args (Just "a")) (mkSym "c")
|
2015-06-24 02:18:43 +02:00
|
|
|
assertParseString "{b,c?1,...}@a: c" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (VariadicParamSet vargs (Just "a")) (mkSym "c")
|
2015-06-24 02:18:43 +02:00
|
|
|
assertParseString "{...}: 1" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NAbs (VariadicParamSet mempty Nothing) (mkInt 1)
|
2014-08-13 23:30:24 +02:00
|
|
|
assertParseFail "a@b: a"
|
|
|
|
assertParseFail "{a}@{b}: a"
|
|
|
|
where
|
2016-01-24 00:18:41 +01:00
|
|
|
args = Map.fromList [("b", Nothing), ("c", Just $ mkInt 1)]
|
|
|
|
vargs = Map.fromList [("b", Nothing), ("c", Just $ mkInt 1)]
|
|
|
|
args2 = Map.fromList [("b", Just lam)]
|
|
|
|
lam = Fix $ NAbs (Param "x") (mkSym "x")
|
2014-08-13 23:30:24 +02:00
|
|
|
|
2014-08-03 14:17:43 +02:00
|
|
|
case_lambda_app_int :: Assertion
|
2014-08-05 21:23:28 +02:00
|
|
|
case_lambda_app_int = assertParseString "(a: a) 3" $ Fix (NApp lam int) where
|
|
|
|
int = mkInt 3
|
2016-01-24 00:18:41 +01:00
|
|
|
lam = Fix (NAbs (Param "a") asym)
|
2014-08-05 21:23:28 +02:00
|
|
|
asym = mkSym "a"
|
2014-08-03 14:17:43 +02:00
|
|
|
|
|
|
|
case_simple_let :: Assertion
|
2014-08-13 22:40:35 +02:00
|
|
|
case_simple_let = do
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
assertParseString "let a = 4; in a" $ Fix (NLet binds $ mkSym "a")
|
2014-08-13 22:40:35 +02:00
|
|
|
assertParseFail "let a = 4 in a"
|
|
|
|
where
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
binds = [NamedVar (mkSelector "a") $ mkInt 4]
|
2014-08-03 14:17:43 +02:00
|
|
|
|
2014-08-13 22:40:35 +02:00
|
|
|
case_nested_let :: Assertion
|
|
|
|
case_nested_let = do
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
assertParseString "let a = 4; in let b = 5; in a" $ Fix $ NLet
|
|
|
|
[ NamedVar (mkSelector "a") $ mkInt 4 ]
|
|
|
|
(Fix $ NLet [NamedVar (mkSelector "b") $ mkInt 5] $ mkSym "a")
|
2014-08-13 22:40:35 +02:00
|
|
|
assertParseFail "let a = 4; let b = 3; in b"
|
|
|
|
|
|
|
|
case_let_scoped_inherit :: Assertion
|
|
|
|
case_let_scoped_inherit = do
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
assertParseString "let a = null; inherit (b) c; in c" $ Fix $ NLet
|
|
|
|
[ NamedVar (mkSelector "a") mkNull, Inherit (Just $ mkSym "b") [mkSelector "c"] ]
|
|
|
|
(mkSym "c")
|
2014-08-13 22:40:35 +02:00
|
|
|
assertParseFail "let inherit (b) c in c"
|
|
|
|
|
2014-08-30 10:10:28 +02:00
|
|
|
case_if :: Assertion
|
|
|
|
case_if = do
|
|
|
|
assertParseString "if true then true else false" $ Fix $ NIf (mkBool True) (mkBool True) (mkBool False)
|
|
|
|
assertParseFail "if true then false"
|
|
|
|
assertParseFail "else"
|
|
|
|
assertParseFail "if true then false else"
|
|
|
|
assertParseFail "if true then false else false else"
|
|
|
|
assertParseFail "1 + 2 then"
|
|
|
|
|
2014-08-03 16:45:34 +02:00
|
|
|
case_identifier_special_chars :: Assertion
|
|
|
|
case_identifier_special_chars = do
|
2014-08-05 21:23:28 +02:00
|
|
|
assertParseString "_a" $ mkSym "_a"
|
|
|
|
assertParseString "a_b" $ mkSym "a_b"
|
|
|
|
assertParseString "a'b" $ mkSym "a'b"
|
|
|
|
assertParseString "a''b" $ mkSym "a''b"
|
|
|
|
assertParseString "a-b" $ mkSym "a-b"
|
|
|
|
assertParseString "a--b" $ mkSym "a--b"
|
|
|
|
assertParseString "a12a" $ mkSym "a12a"
|
2014-08-03 16:45:34 +02:00
|
|
|
assertParseFail ".a"
|
|
|
|
assertParseFail "'a"
|
|
|
|
|
2014-08-05 21:23:28 +02:00
|
|
|
makeStringParseTest :: String -> Assertion
|
2016-01-24 00:18:41 +01:00
|
|
|
makeStringParseTest str = assertParseString ("\"" ++ str ++ "\"") $ mkStr $ pack str
|
2014-08-05 21:23:28 +02:00
|
|
|
|
|
|
|
case_simple_string :: Assertion
|
2014-08-18 22:54:20 +02:00
|
|
|
case_simple_string = mapM_ makeStringParseTest ["abcdef", "a", "A", " a a ", ""]
|
2014-08-05 21:23:28 +02:00
|
|
|
|
|
|
|
case_string_dollar :: Assertion
|
|
|
|
case_string_dollar = mapM_ makeStringParseTest ["a$b", "a$$b", "$cdef", "gh$i"]
|
|
|
|
|
|
|
|
case_string_escape :: Assertion
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
case_string_escape = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "\"\\$\\n\\t\\r\\\\\"" $ mkStr "$\n\t\r\\"
|
|
|
|
assertParseString "\" \\\" \\' \"" $ mkStr " \" ' "
|
2014-08-05 21:23:28 +02:00
|
|
|
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
case_string_antiquote :: Assertion
|
|
|
|
case_string_antiquote = do
|
|
|
|
assertParseString "\"abc${ if true then \"def\" else \"abc\" } g\"" $
|
2016-01-24 00:18:41 +01:00
|
|
|
Fix $ NStr $ DoubleQuoted
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
[ Plain "abc"
|
2016-01-24 00:18:41 +01:00
|
|
|
, Antiquoted $ Fix $ NIf (mkBool True) (mkStr "def") (mkStr "abc")
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
, Plain " g"
|
|
|
|
]
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "\"\\${a}\"" $ mkStr "${a}"
|
antiquotes + improve pretty printer + restructure
This commit improves the pretty printing and adds support for
antiquotes. It also fixes an issue with the parser that caused `[if true
then false else true]` to parse successfully, even though that is not a
valid nix expression.
The pretty printer now produces a lot more readable output and also
supports operator precedences.
The changes to the AST are:
* strings are no longer atomic, because they may contain other
expressions in the form of antiquotes. For strings, the new type
NString is introduced and the constructor NStr is added to NExprF
* the unused NVar constructor of NExprF is removed
* operators are now represented uniformly so that the pretty printer
can lookup information about operators (in particular, associativity
and precedence)
* the NArgs constructor is removed. The first argument of the NAbs
constructor now directly represents the lambda arguments.
* the select and the hasattr operator are moved into NExpr because
they are special (they only accept a selector as second argument, and
select also supports 'or')
The list of operators is now in Types.hs and Parser.hs re-uses that list
to build the parser. This is required because the pretty printer and
parser both need access to operator precedences.
Parser and evaluator also support dynamic attributes and attributes with
dots now. As an example, `let b.a = 3; b.c = { e = {}; }; b.c.e.${"f"} =
4; in b` is parsed and evaluated correctly. As a side effect, NSym
values now don't evaluate to themselves anymore, but instead to the
value retrieved by looking up the variable in the current environment.
Support for evaluating `inherit` bindings was removed because it was
broken before (`{ inherit a; }` would evaluate to a set where the
attribute `a` had the value `NSym a`, not the value of `a`).
The manual Show instances for the AST were replaced by derived
ones, because the manual instances often resulted in output were it was
difficult to determine the missing parentheses.
2014-08-15 22:11:54 +02:00
|
|
|
assertParseFail "\"a"
|
|
|
|
assertParseFail "${true}"
|
|
|
|
assertParseFail "\"${true\""
|
|
|
|
|
2014-08-16 01:31:41 +02:00
|
|
|
case_select :: Assertion
|
|
|
|
case_select = do
|
|
|
|
assertParseString "a . e .di. f" $ Fix $ NSelect (mkSym "a")
|
|
|
|
[ StaticKey "e", StaticKey "di", StaticKey "f" ]
|
|
|
|
Nothing
|
|
|
|
assertParseString "a.e . d or null" $ Fix $ NSelect (mkSym "a")
|
|
|
|
[ StaticKey "e", StaticKey "d" ]
|
|
|
|
(Just mkNull)
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{}.\"\"or null" $ Fix $ NSelect (Fix (NSet []))
|
2014-08-16 01:31:41 +02:00
|
|
|
[ DynamicKey (Plain "") ] (Just mkNull)
|
|
|
|
|
2014-08-16 01:17:01 +02:00
|
|
|
case_select_path :: Assertion
|
|
|
|
case_select_path = do
|
2014-08-18 22:54:20 +02:00
|
|
|
assertParseString "f ./." $ Fix $ NApp (mkSym "f") (mkPath False "./.")
|
|
|
|
assertParseString "f.b ../a" $ Fix $ NApp select (mkPath False "../a")
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "{}./def" $ Fix $ NApp (Fix (NSet [])) (mkPath False "./def")
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseString "{}.\"\"./def" $ Fix $ NApp
|
2016-01-24 00:18:41 +01:00
|
|
|
(Fix $ NSelect (Fix (NSet [])) [DynamicKey (Plain "")] Nothing)
|
2014-08-30 10:10:28 +02:00
|
|
|
(mkPath False "./def")
|
2014-08-16 01:17:01 +02:00
|
|
|
where select = Fix $ NSelect (mkSym "f") (mkSelector "b") Nothing
|
2014-08-16 00:16:12 +02:00
|
|
|
|
2014-08-16 11:47:45 +02:00
|
|
|
case_fun_app :: Assertion
|
|
|
|
case_fun_app = do
|
|
|
|
assertParseString "f a b" $ Fix $ NApp (Fix $ NApp (mkSym "f") (mkSym "a")) (mkSym "b")
|
|
|
|
assertParseString "f a.x or null" $ Fix $ NApp (mkSym "f") $ Fix $
|
|
|
|
NSelect (mkSym "a") (mkSelector "x") (Just mkNull)
|
|
|
|
assertParseFail "f if true then null else null"
|
|
|
|
|
2014-08-18 22:54:20 +02:00
|
|
|
case_indented_string :: Assertion
|
|
|
|
case_indented_string = do
|
2016-01-24 00:18:41 +01:00
|
|
|
assertParseString "''a''" $ mkIndentedStr "a"
|
|
|
|
assertParseString "''\n foo\n bar''" $ mkIndentedStr "foo\nbar"
|
|
|
|
assertParseString "'' ''" $ mkIndentedStr ""
|
|
|
|
assertParseString "'''''''" $ mkIndentedStr "''"
|
|
|
|
assertParseString "'' ${null}\n a${null}''" $ Fix $ NStr $ Indented
|
2014-08-18 22:54:20 +02:00
|
|
|
[ Antiquoted mkNull
|
|
|
|
, Plain "\na"
|
|
|
|
, Antiquoted mkNull
|
|
|
|
]
|
|
|
|
assertParseFail "'''''"
|
|
|
|
assertParseFail "'' '"
|
|
|
|
|
|
|
|
case_indented_string_escape :: Assertion
|
|
|
|
case_indented_string_escape = assertParseString
|
|
|
|
"'' ''\\n ''\\t ''\\\\ ''${ \\ \\n ' ''' ''" $
|
2016-01-24 00:18:41 +01:00
|
|
|
mkIndentedStr "\n \t \\ ${ \\ \\n ' '' "
|
2014-08-18 22:54:20 +02:00
|
|
|
|
2014-08-18 23:06:57 +02:00
|
|
|
case_operator_fun_app :: Assertion
|
|
|
|
case_operator_fun_app = do
|
2014-08-19 19:20:17 +02:00
|
|
|
assertParseString "a ++ b" $ mkOper2 NConcat (mkSym "a") (mkSym "b")
|
|
|
|
assertParseString "a ++ f b" $ mkOper2 NConcat (mkSym "a") $ Fix $ NApp
|
|
|
|
(mkSym "f") (mkSym "b")
|
|
|
|
|
|
|
|
case_operators :: Assertion
|
|
|
|
case_operators = do
|
|
|
|
assertParseString "1 + 2 - 3" $ mkOper2 NMinus
|
|
|
|
(mkOper2 NPlus (mkInt 1) (mkInt 2)) (mkInt 3)
|
|
|
|
assertParseFail "1 + if true then 1 else 2"
|
|
|
|
assertParseString "1 + (if true then 2 else 3)" $ mkOper2 NPlus (mkInt 1) $ Fix $ NIf
|
|
|
|
(mkBool True) (mkInt 2) (mkInt 3)
|
|
|
|
assertParseString "{ a = 3; } // rec { b = 4; }" $ mkOper2 NUpdate
|
2016-01-24 00:18:41 +01:00
|
|
|
(Fix $ NSet [NamedVar (mkSelector "a") (mkInt 3)])
|
|
|
|
(Fix $ NRecSet [NamedVar (mkSelector "b") (mkInt 4)])
|
2014-08-27 22:05:35 +02:00
|
|
|
assertParseString "--a" $ mkOper NNeg $ mkOper NNeg $ mkSym "a"
|
|
|
|
assertParseString "a - b - c" $ mkOper2 NMinus
|
|
|
|
(mkOper2 NMinus (mkSym "a") (mkSym "b")) $
|
|
|
|
mkSym "c"
|
2014-08-30 10:10:28 +02:00
|
|
|
assertParseString "foo<bar" $ mkOper2 NLt (mkSym "foo") (mkSym "bar")
|
|
|
|
assertParseFail "+ 3"
|
|
|
|
assertParseFail "foo +"
|
2014-08-18 23:06:57 +02:00
|
|
|
|
2014-08-27 23:54:31 +02:00
|
|
|
case_comments :: Assertion
|
|
|
|
case_comments = do
|
|
|
|
Success expected <- parseNixFile "data/let.nix"
|
|
|
|
assertParseFile "let-comments-multiline.nix" expected
|
|
|
|
assertParseFile "let-comments.nix" expected
|
|
|
|
|
2014-08-03 14:17:43 +02:00
|
|
|
tests :: TestTree
|
|
|
|
tests = $testGroupGenerator
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
assertParseString :: String -> NExpr -> Assertion
|
|
|
|
assertParseString str expected = case parseNixString str of
|
|
|
|
Success actual -> assertEqual ("When parsing " ++ str) expected actual
|
|
|
|
Failure err -> assertFailure $ "Unexpected error parsing `" ++ str ++ "':\n" ++ show err
|
2014-08-03 16:45:34 +02:00
|
|
|
|
2014-08-27 23:54:31 +02:00
|
|
|
assertParseFile :: FilePath -> NExpr -> Assertion
|
|
|
|
assertParseFile file expected = do
|
|
|
|
res <- parseNixFile $ "data/" ++ file
|
|
|
|
case res of
|
|
|
|
Success actual -> assertEqual ("Parsing data file " ++ file) expected actual
|
|
|
|
Failure err -> assertFailure $ "Unexpected error parsing data file `" ++ file ++ "':\n" ++ show err
|
|
|
|
|
2014-08-03 16:45:34 +02:00
|
|
|
assertParseFail :: String -> Assertion
|
|
|
|
assertParseFail str = case parseNixString str of
|
|
|
|
Failure _ -> return ()
|
2014-08-15 23:30:24 +02:00
|
|
|
Success r -> assertFailure $ "Unexpected success parsing `" ++ str ++ ":\nParsed value: " ++ show r
|