mirror of
https://github.com/enso-org/enso.git
synced 2024-12-21 19:52:14 +03:00
1113 lines
34 KiB
Rust
1113 lines
34 KiB
Rust
//! Parse expressions and compare their results to expected values.
|
|
|
|
// === Non-Standard Linter Configuration ===
|
|
#![allow(clippy::option_map_unit_fn)]
|
|
#![allow(clippy::precedence)]
|
|
#![allow(dead_code)]
|
|
#![deny(non_ascii_idents)]
|
|
#![deny(unconditional_recursion)]
|
|
#![warn(unsafe_code)]
|
|
#![warn(missing_copy_implementations)]
|
|
#![warn(missing_debug_implementations)]
|
|
#![warn(missing_docs)]
|
|
#![warn(trivial_casts)]
|
|
#![warn(trivial_numeric_casts)]
|
|
#![warn(unused_import_braces)]
|
|
#![warn(unused_qualifications)]
|
|
|
|
|
|
|
|
mod metadata;
|
|
|
|
use enso_parser_debug::to_s_expr;
|
|
|
|
|
|
|
|
// ===========================
|
|
// === Test support macros ===
|
|
// ===========================
|
|
|
|
/// Parses input as a sequence of S-expressions, and wraps it in a `BodyBlock`.
|
|
macro_rules! block {
|
|
( $($statements:tt)* ) => {
|
|
lexpr::sexp![(BodyBlock #( $( $statements )* ) )]
|
|
}
|
|
}
|
|
|
|
|
|
|
|
// =============
|
|
// === Tests ===
|
|
// =============
|
|
|
|
#[test]
|
|
fn nothing() {
|
|
test("", block![()]);
|
|
}
|
|
|
|
#[test]
|
|
fn application() {
|
|
test("a b c", block![(App (App (Ident a) (Ident b)) (Ident c))]);
|
|
}
|
|
|
|
#[test]
|
|
fn parentheses() {
|
|
test("(a b)", block![(Group (App (Ident a) (Ident b)))]);
|
|
test("x)", block![(App (Ident x) (Invalid))]);
|
|
test("(x", block![(App (Invalid) (Ident x))]);
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(Group
|
|
(App (Group (App (Ident a) (Ident b)))
|
|
(Ident c)))];
|
|
test("((a b) c)", expected);
|
|
}
|
|
|
|
#[test]
|
|
fn section_simple() {
|
|
let expected_lhs = block![(OprSectionBoundary 1 (OprApp () (Ok "+") (Ident a)))];
|
|
test("+ a", expected_lhs);
|
|
let expected_rhs = block![(OprSectionBoundary 1 (OprApp (Ident a) (Ok "+") ()))];
|
|
test("a +", expected_rhs);
|
|
}
|
|
|
|
#[test]
|
|
fn comments() {
|
|
test("# a b c", block![()()]);
|
|
}
|
|
|
|
#[test]
|
|
fn inline_if() {
|
|
#[rustfmt::skip]
|
|
test("if True then True else False", block![
|
|
(MultiSegmentApp #(((Ident if) (Ident True))
|
|
((Ident then) (Ident True))
|
|
((Ident else) (Ident False))))]);
|
|
}
|
|
|
|
#[test]
|
|
fn then_block() {
|
|
#[rustfmt::skip]
|
|
test("if True then\n True", block![
|
|
(MultiSegmentApp #(((Ident if) (Ident True)) ((Ident then) (BodyBlock #((Ident True))))))]);
|
|
}
|
|
|
|
#[test]
|
|
fn else_block() {
|
|
#[rustfmt::skip]
|
|
test("if True then True else\n False", block![
|
|
(MultiSegmentApp #(((Ident if) (Ident True))
|
|
((Ident then) (Ident True))
|
|
((Ident else) (BodyBlock #((Ident False))))))]);
|
|
}
|
|
|
|
|
|
// === Type Definitions ===
|
|
|
|
#[test]
|
|
fn type_definition_no_body() {
|
|
test("type Bool", block![(TypeDef type Bool #() #() #())]);
|
|
test("type Option a", block![(TypeDef type Option #((() (Ident a) () ())) #() #())]);
|
|
test("type Option (a)", block![
|
|
(TypeDef type Option #((() (Ident a) () ())) #() #())]);
|
|
test("type Foo (a : Int)", block![
|
|
(TypeDef type Foo #((() (Ident a) (":" (Ident Int)) ())) #() #())]);
|
|
test("type A a=0", block![
|
|
(TypeDef type A #((() (Ident a) () ("=" (Number () "0" ())))) #() #())]);
|
|
test("type Existing_Headers (column_names : Vector Text)", block![
|
|
(TypeDef type Existing_Headers #(
|
|
(() (Ident column_names) (":" (App (Ident Vector) (Ident Text))) ())) #() #())]);
|
|
}
|
|
|
|
#[test]
|
|
fn type_constructors() {
|
|
let code = [
|
|
"type Geo",
|
|
" Circle",
|
|
" radius",
|
|
" x",
|
|
" Rectangle width height",
|
|
" Point",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Geo #()
|
|
#(((Circle #() #(((() (Ident radius) () ())) ((() (Ident x) () ())))))
|
|
((Rectangle #((() (Ident width) () ()) (() (Ident height) () ())) #()))
|
|
((Point #() #())))
|
|
#())
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn type_methods() {
|
|
let code = ["type Geo", " number =", " x", " area self = x + x"];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Geo #() #()
|
|
#((Function (Ident number) #() "=" (BodyBlock #((Ident x))))
|
|
(Function (Ident area) #((() (Ident self) () ())) "="
|
|
(OprApp (Ident x) (Ok "+") (Ident x)))))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn type_operator_methods() {
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"type Foo",
|
|
" + : Foo -> Foo -> Foo",
|
|
" + self b = b",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Foo #() #()
|
|
#((TypeSignature (Ident #"+") ":"
|
|
(OprApp (Ident Foo) (Ok "->") (OprApp (Ident Foo) (Ok "->") (Ident Foo))))
|
|
(Function (Ident #"+") #((() (Ident self) () ()) (() (Ident b) () ()))
|
|
"=" (Ident b))))];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn type_def_full() {
|
|
let code = [
|
|
"type Geo",
|
|
" Circle",
|
|
" radius : float",
|
|
" x",
|
|
" Rectangle width height",
|
|
" Point",
|
|
"",
|
|
" number =",
|
|
" x",
|
|
" area self = x + x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Geo #()
|
|
#(((Circle #() #(
|
|
((() (Ident radius) (":" (Ident float)) ()))
|
|
((() (Ident x) () ())))))
|
|
((Rectangle #((() (Ident width) () ()) (() (Ident height) () ())) #()))
|
|
((Point #() #()))
|
|
(()))
|
|
#((Function (Ident number) #() "=" (BodyBlock #((Ident x))))
|
|
(Function (Ident area) #((() (Ident self) () ())) "=" (OprApp (Ident x) (Ok "+") (Ident x)))))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn type_def_defaults() {
|
|
let code = ["type Result error ok=Nothing", " Ok value:ok = Nothing"];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Result #((() (Ident error) () ())
|
|
(() (Ident ok) () ("=" (Ident Nothing))))
|
|
#(((Ok #((() (Ident value) (":" (Ident ok)) ("=" (Ident Nothing))))
|
|
#())))
|
|
#())
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn type_def_nested() {
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"type Foo",
|
|
" type Bar",
|
|
" type Baz",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TypeDef type Foo #() #()
|
|
#((TypeDef type Bar #() #() #())
|
|
(TypeDef type Baz #() #() #())))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
|
|
// === Variable Assignment ===
|
|
|
|
#[test]
|
|
fn assignment_simple() {
|
|
test("foo = x", block![(Assignment (Ident foo) "=" (Ident x))]);
|
|
}
|
|
|
|
|
|
// === Functions ===
|
|
|
|
#[test]
|
|
fn function_inline_simple_args() {
|
|
test(" foo a = x", block![(Function (Ident foo) #((() (Ident a) () ())) "=" (Ident x))]);
|
|
#[rustfmt::skip]
|
|
test("foo a b = x",
|
|
block![(Function (Ident foo) #((() (Ident a) () ()) (() (Ident b) () ())) "=" (Ident x))]);
|
|
#[rustfmt::skip]
|
|
test(
|
|
"foo a b c = x", block![
|
|
(Function (Ident foo)
|
|
#((() (Ident a) () ()) (() (Ident b) () ()) (() (Ident c) () ()))
|
|
"=" (Ident x))],
|
|
);
|
|
test(" foo _ = x", block![(Function (Ident foo) #((() (Wildcard -1) () ())) "=" (Ident x))]);
|
|
}
|
|
|
|
#[test]
|
|
fn function_block_noargs() {
|
|
test("foo =", block![(Function (Ident foo) #() "=" ())]);
|
|
}
|
|
|
|
#[test]
|
|
fn function_block_simple_args() {
|
|
test("foo a =", block![(Function (Ident foo) #((() (Ident a) () ())) "=" ())]);
|
|
#[rustfmt::skip]
|
|
test("foo a b =", block![(Function (Ident foo) #((() (Ident a) () ())
|
|
(() (Ident b) () ())) "=" ())]);
|
|
#[rustfmt::skip]
|
|
test("foo a b c =", block![
|
|
(Function (Ident foo) #((() (Ident a) () ()) (() (Ident b) () ()) (() (Ident c) () ())) "="
|
|
())]);
|
|
}
|
|
|
|
#[test]
|
|
fn function_qualified() {
|
|
test("Id.id x = x", block![
|
|
(Function (OprApp (Ident Id) (Ok ".") (Ident id)) #((() (Ident x) () ())) "=" (Ident x))]);
|
|
}
|
|
|
|
|
|
// === Named arguments ===
|
|
|
|
#[test]
|
|
fn named_arguments() {
|
|
let cases = [
|
|
("f x=y", block![(NamedApp (Ident f) x "=" (Ident y))]),
|
|
("f (x = y)", block![(NamedApp (Ident f) x "=" (Ident y))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Default arguments ===
|
|
|
|
#[test]
|
|
fn default_app() {
|
|
let cases = [("f default", block![(DefaultApp (Ident f) default)])];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn default_arguments() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("f x=1 = x", block![
|
|
(Function (Ident f) #((() (Ident x) () ("=" (Number () "1" ())))) "=" (Ident x))]),
|
|
("f (x = 1) = x", block![
|
|
(Function (Ident f) #((() (Ident x) () ("=" (Number () "1" ())))) "=" (Ident x))]),
|
|
// Pattern in LHS:
|
|
("f ~x=1 = x", block![
|
|
(Function (Ident f)
|
|
#(("~" (Ident x) () ("=" (Number () "1" ()))))
|
|
"=" (Ident x))]),
|
|
("f (~x = 1) = x", block![
|
|
(Function (Ident f)
|
|
#(("~" (Ident x) () ("=" (Number () "1" ()))))
|
|
"=" (Ident x))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Code Blocks ===
|
|
|
|
#[test]
|
|
fn code_block_body() {
|
|
let code = ["main =", " x"];
|
|
test(&code.join("\n"), block![(Function (Ident main) #() "=" (BodyBlock #((Ident x))))]);
|
|
let code = ["main =", " ", " x"];
|
|
test(&code.join("\n"), block![(Function (Ident main) #() "=" (BodyBlock #(() (Ident x))))]);
|
|
let code = ["main =", " ", " x"];
|
|
test(&code.join("\n"), block![(Function (Ident main) #() "=" (BodyBlock #(() (Ident x))))]);
|
|
let code = ["main =", " ", " x"];
|
|
test(&code.join("\n"), block![(Function (Ident main) #() "=" (BodyBlock #(() (Ident x))))]);
|
|
let code = ["main =", "", " x"];
|
|
test(&code.join("\n"), block![(Function (Ident main) #() "=" (BodyBlock #(() (Ident x))))]);
|
|
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"main =",
|
|
" +x",
|
|
" print x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expect = block![
|
|
(Function (Ident main) #() "=" (BodyBlock #(
|
|
(OprSectionBoundary 1 (OprApp () (Ok "+") (Ident x)))
|
|
(App (Ident print) (Ident x)))))
|
|
];
|
|
test(&code.join("\n"), expect);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_operator() {
|
|
let code = ["value = nums", " * each random", " + constant"];
|
|
let expect = block![
|
|
(Assignment (Ident value) "="
|
|
(OperatorBlockApplication (Ident nums)
|
|
#(((Ok "*") (App (Ident each) (Ident random)))
|
|
((Ok "+") (Ident constant)))
|
|
#()))
|
|
];
|
|
test(&code.join("\n"), expect);
|
|
}
|
|
|
|
#[test]
|
|
//#[ignore] // WIP
|
|
fn dot_operator_blocks() {
|
|
let code = ["rect1", " . width = 7", " . center", " + x"];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(OperatorBlockApplication (Ident rect1)
|
|
#(((Ok ".") (OprApp (Ident width) (Ok "=") (Number () "7" ())))
|
|
((Ok ".") (OperatorBlockApplication (Ident center)
|
|
#(((Ok "+") (Ident x))) #()))) #())];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_argument_list() {
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"value = foo",
|
|
" bar",
|
|
];
|
|
let expect = block![
|
|
(Assignment (Ident value) "=" (ArgumentBlockApplication (Ident foo) #((Ident bar))))
|
|
];
|
|
test(&code.join("\n"), expect);
|
|
|
|
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"value = foo",
|
|
" +x",
|
|
" bar",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expect = block![
|
|
(Assignment (Ident value) "="
|
|
(ArgumentBlockApplication (Ident foo) #(
|
|
(OprSectionBoundary 1 (OprApp () (Ok "+") (Ident x)))
|
|
(Ident bar))))
|
|
];
|
|
test(&code.join("\n"), expect);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_empty() {
|
|
// The first line here should parse as a function with no body expression (which is an error).
|
|
// No input would parse as an empty `ArgumentBlock` or `OperatorBlock`, because those types are
|
|
// distinguished from a body continuation by the presence of non-empty indented lines.
|
|
let code = ["foo =", "bar"];
|
|
test(&code.join("\n"), block![(Function (Ident foo) #() "=" ()) (Ident bar)]);
|
|
// This parses similarly to above; a line with no non-whitespace content does not create a code
|
|
// block.
|
|
let code = ["foo =", " ", "bar"];
|
|
test(&code.join("\n"), block![(Function (Ident foo) #() "=" ()) () (Ident bar)]);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_bad_indents1() {
|
|
let code = ["main =", " foo", " bar", " baz"];
|
|
let expected = block![
|
|
(Function (Ident main) #() "=" (BodyBlock #((Ident foo) (Ident bar) (Ident baz))))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_bad_indents2() {
|
|
let code = ["main =", " foo", " bar", "baz"];
|
|
let expected = block![
|
|
(Function (Ident main) #() "=" (BodyBlock #((Ident foo) (Ident bar))))
|
|
(Ident baz)
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn code_block_with_following_statement() {
|
|
let code = ["main =", " foo", "bar"];
|
|
let expected = block![
|
|
(Function (Ident main) #() "=" (BodyBlock #((Ident foo))))
|
|
(Ident bar)
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn operator_block_nested() {
|
|
let code = ["foo", " + bar", " - baz"];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(OperatorBlockApplication (Ident foo)
|
|
#(((Ok "+") (OperatorBlockApplication (Ident bar) #(((Ok "-") (Ident baz))) #())))
|
|
#())];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn operator_section_in_operator_block() {
|
|
let code = ["foo", " + bar +"];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(OperatorBlockApplication (Ident foo)
|
|
#(((Ok "+") (OprSectionBoundary 1 (OprApp (Ident bar) (Ok "+") ()))))
|
|
#())];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
|
|
// === Binary Operators ===
|
|
|
|
#[test]
|
|
fn multiple_operator_error() {
|
|
let code = ["x + + x"];
|
|
let expected = block![
|
|
(OprApp (Ident x) (Err (#("+" "+"))) (Ident x))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
let code = ["x + + + x"];
|
|
let expected = block![
|
|
(OprApp (Ident x) (Err (#("+" "+" "+"))) (Ident x))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn precedence() {
|
|
let code = ["x * y + z"];
|
|
let expected = block![
|
|
(OprApp (OprApp (Ident x) (Ok "*") (Ident y)) (Ok "+") (Ident z))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn right_associative_operators() {
|
|
let code = ["x --> y ---> z"];
|
|
let expected = block![
|
|
(OprApp (Ident x) (Ok "-->") (OprApp (Ident y) (Ok "--->") (Ident z)))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn pipeline_operators() {
|
|
test("f <| a", block![(OprApp (Ident f) (Ok "<|") (Ident a))]);
|
|
test("a |> f", block![(OprApp (Ident a) (Ok "|>") (Ident f))]);
|
|
}
|
|
|
|
#[test]
|
|
fn accessor_operator() {
|
|
// Test that the accessor operator `.` is treated like any other operator.
|
|
let cases = [
|
|
("Console.", block![(OprSectionBoundary 1 (OprApp (Ident Console) (Ok ".") ()))]),
|
|
(".", block![(OprSectionBoundary 2 (OprApp () (Ok ".") ()))]),
|
|
(".log", block![(OprSectionBoundary 1 (OprApp () (Ok ".") (Ident log)))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn operator_sections() {
|
|
#[rustfmt::skip]
|
|
test(".map (+2 * 3) *7", block![
|
|
(OprSectionBoundary 1
|
|
(App (App (OprApp () (Ok ".") (Ident map))
|
|
(Group
|
|
(OprSectionBoundary 1 (OprApp (OprApp () (Ok "+") (Number () "2" ()))
|
|
(Ok "*") (Number () "3" ())))))
|
|
(OprSectionBoundary 1 (OprApp () (Ok "*") (Number () "7" ())))))]);
|
|
#[rustfmt::skip]
|
|
test(".sum 1", block![
|
|
(OprSectionBoundary 1 (App (OprApp () (Ok ".") (Ident sum)) (Number () "1" ())))]);
|
|
#[rustfmt::skip]
|
|
test("+1 + x", block![
|
|
(OprSectionBoundary 1 (OprApp (OprApp () (Ok "+") (Number () "1" ()))
|
|
(Ok "+") (Ident x)))]);
|
|
#[rustfmt::skip]
|
|
test("increment = 1 +", block![
|
|
(Assignment (Ident increment) "="
|
|
(OprSectionBoundary 1 (OprApp (Number () "1" ()) (Ok "+") ())))]);
|
|
}
|
|
|
|
#[test]
|
|
fn template_functions() {
|
|
#[rustfmt::skip]
|
|
test("_.map (_+2 * 3) _*7", block![
|
|
(TemplateFunction 1
|
|
(App (App (OprApp (Wildcard 0) (Ok ".") (Ident map))
|
|
(Group
|
|
(TemplateFunction 1
|
|
(OprApp (OprApp (Wildcard 0) (Ok "+") (Number () "2" ()))
|
|
(Ok "*") (Number () "3" ())))))
|
|
(TemplateFunction 1 (OprApp (Wildcard 0) (Ok "*") (Number () "7" ())))))]);
|
|
#[rustfmt::skip]
|
|
test("_.sum 1", block![
|
|
(TemplateFunction 1 (App (OprApp (Wildcard 0) (Ok ".") (Ident sum)) (Number () "1" ())))]);
|
|
#[rustfmt::skip]
|
|
test("_+1 + x", block![
|
|
(TemplateFunction 1 (OprApp (OprApp (Wildcard 0) (Ok "+") (Number () "1" ()))
|
|
(Ok "+") (Ident x)))]);
|
|
}
|
|
|
|
|
|
// === Unary Operators ===
|
|
|
|
#[test]
|
|
fn unevaluated_argument() {
|
|
let code = ["main ~foo = x"];
|
|
let expected = block![
|
|
(Function (Ident main) #(("~" (Ident foo) () ())) "=" (Ident x))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn unary_operator_missing_operand() {
|
|
let code = ["main ~ = x"];
|
|
let expected = block![
|
|
(Function (Ident main) #((() (UnaryOprApp "~" ()) () ())) "=" (Ident x))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn unary_operator_at_end_of_expression() {
|
|
let code = ["foo ~"];
|
|
let expected = block![
|
|
(App (Ident foo) (UnaryOprApp "~" ()))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn plus_negative() {
|
|
let code = ["x = x+-x"];
|
|
let expected = block![
|
|
(Assignment (Ident x) "=" (OprApp (Ident x) (Ok "+") (UnaryOprApp "-" (Ident x))))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn minus_binary() {
|
|
let cases = [
|
|
("x - x", block![(OprApp (Ident x) (Ok "-") (Ident x))]),
|
|
("x-x", block![(OprApp (Ident x) (Ok "-") (Ident x))]),
|
|
("x.-y", block![(OprApp (Ident x) (Ok ".") (UnaryOprApp "-" (Ident y)))]),
|
|
("x.~y", block![(OprApp (Ident x) (Ok ".") (UnaryOprApp "~" (Ident y)))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn minus_section() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("- x", block![(OprSectionBoundary 1 (OprApp () (Ok "-") (Ident x)))]),
|
|
("(- x)", block![(Group (OprSectionBoundary 1 (OprApp () (Ok "-") (Ident x))))]),
|
|
("- (x * x)", block![
|
|
(OprSectionBoundary 1 (OprApp () (Ok "-")
|
|
(Group (OprApp (Ident x) (Ok "*") (Ident x)))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn minus_unary() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("f -x", block![(App (Ident f) (UnaryOprApp "-" (Ident x)))]),
|
|
("-x", block![(UnaryOprApp "-" (Ident x))]),
|
|
("(-x)", block![(Group (UnaryOprApp "-" (Ident x)))]),
|
|
("-(x * x)", block![
|
|
(UnaryOprApp "-" (Group (OprApp (Ident x) (Ok "*") (Ident x))))]),
|
|
("x=-x", block![(Assignment (Ident x) "=" (UnaryOprApp "-" (Ident x)))]),
|
|
("-x+x", block![(OprApp (UnaryOprApp "-" (Ident x)) (Ok "+") (Ident x))]),
|
|
("-x*x", block![(OprApp (UnaryOprApp "-" (Ident x)) (Ok "*") (Ident x))]),
|
|
("-1.x", block![(OprApp (UnaryOprApp "-" (Number () "1" ())) (Ok ".") (Ident x))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Import/Export ===
|
|
|
|
#[test]
|
|
fn import() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("import project.IO", block![
|
|
(Import () () ((Ident import) (OprApp (Ident project) (Ok ".") (Ident IO))) () () ())]),
|
|
("import Standard.Base as Enso_List", block![
|
|
(Import () ()
|
|
((Ident import) (OprApp (Ident Standard) (Ok ".") (Ident Base)))
|
|
()
|
|
((Ident as) (Ident Enso_List))
|
|
())]),
|
|
("from Standard.Base import all", block![
|
|
(Import ()
|
|
((Ident from) (OprApp (Ident Standard) (Ok ".") (Ident Base)))
|
|
((Ident import) ())
|
|
all () ())]),
|
|
("from Standard.Base import all hiding Number, Boolean", block![
|
|
(Import ()
|
|
((Ident from) (OprApp (Ident Standard) (Ok ".") (Ident Base)))
|
|
((Ident import) ())
|
|
all
|
|
()
|
|
((Ident hiding) (OprApp (Ident Number) (Ok ",") (Ident Boolean))))]),
|
|
("polyglot java import java.lang.Float", block![
|
|
(Import
|
|
((Ident polyglot) (Ident java))
|
|
()
|
|
((Ident import)
|
|
(OprApp (OprApp (Ident java) (Ok ".") (Ident lang)) (Ok ".") (Ident Float)))
|
|
() () ())]),
|
|
("polyglot java import java.net.URI as Java_URI", block![
|
|
(Import
|
|
((Ident polyglot) (Ident java))
|
|
()
|
|
((Ident import)
|
|
(OprApp (OprApp (Ident java) (Ok ".") (Ident net)) (Ok ".") (Ident URI)))
|
|
()
|
|
((Ident as) (Ident Java_URI))
|
|
())]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn export() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("export prj.Data.Foo", block![
|
|
(Export ()
|
|
((Ident export)
|
|
(OprApp (OprApp (Ident prj) (Ok ".") (Ident Data)) (Ok ".") (Ident Foo)))
|
|
() () ())]),
|
|
("export Foo as Bar", block![
|
|
(Export () ((Ident export) (Ident Foo)) () ((Ident as) (Ident Bar)) ())]),
|
|
("from Foo export Bar, Baz", block![
|
|
(Export
|
|
((Ident from) (Ident Foo))
|
|
((Ident export) (OprApp (Ident Bar) (Ok ",") (Ident Baz)))
|
|
() () ())]),
|
|
("from Foo export all hiding Bar, Baz", block![
|
|
(Export
|
|
((Ident from) (Ident Foo))
|
|
((Ident export) ())
|
|
all
|
|
()
|
|
((Ident hiding) (OprApp (Ident Bar) (Ok ",") (Ident Baz))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Metadata ===
|
|
|
|
|
|
#[test]
|
|
fn metadata_raw() {
|
|
let code = [
|
|
"x",
|
|
"#### METADATA ####",
|
|
r#"[[{"index":{"value":7},"size":{"value":8}},"5bad897e-099b-4b00-9348-64092636746d"]]"#,
|
|
];
|
|
let code = code.join("\n");
|
|
let (_meta, code) = enso_parser::metadata::parse(&code).unwrap();
|
|
let expected = block![
|
|
(Ident x)
|
|
()
|
|
];
|
|
test(code, expected);
|
|
}
|
|
|
|
#[test]
|
|
fn metadata_parsing() {
|
|
let code = metadata::ORDERS_WITH_METADATA;
|
|
let (meta, code) = enso_parser::metadata::parse(code).unwrap();
|
|
let _ast = enso_parser::Parser::new().run(code);
|
|
let _meta: enso_parser::metadata::Metadata = meta.unwrap();
|
|
}
|
|
|
|
|
|
// === Type annotations and signatures ===
|
|
|
|
#[test]
|
|
fn type_signatures() {
|
|
let cases = [
|
|
("val : Bool", block![(TypeSignature (Ident val) ":" (Ident Bool))]),
|
|
("val : List Int", block![(TypeSignature (Ident val) ":" (App (Ident List) (Ident Int)))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn type_annotations() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("val = x : Int", block![
|
|
(Assignment (Ident val) "=" (TypeAnnotated (Ident x) ":" (Ident Int)))]),
|
|
("val = foo (x : Int)", block![
|
|
(Assignment (Ident val) "="
|
|
(App (Ident foo)
|
|
(Group (TypeAnnotated (Ident x) ":" (Ident Int)))))]),
|
|
("(x : My_Type _)", block![
|
|
(Group (TypeAnnotated (Ident x) ":" (App (Ident My_Type) (Wildcard -1))))]),
|
|
("x : List Int -> Int", block![
|
|
(TypeSignature (Ident x) ":"
|
|
(OprApp (App (Ident List) (Ident Int)) (Ok "->") (Ident Int)))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Text Literals ===
|
|
|
|
#[test]
|
|
fn inline_text_literals() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
(r#""I'm an inline raw text!""#, block![
|
|
(TextLiteral #((Section "I'm an inline raw text!")))]),
|
|
(r#"zero_length = """#, block![
|
|
(Assignment (Ident zero_length) "=" (TextLiteral #()))]),
|
|
(r#""type""#, block![(TextLiteral #((Section "type")))]),
|
|
(r#"unclosed = ""#, block![(Assignment (Ident unclosed) "=" (TextLiteral #()))]),
|
|
(r#"unclosed = "a"#, block![
|
|
(Assignment (Ident unclosed) "=" (TextLiteral #((Section "a"))))]),
|
|
(r#"'Other quote type'"#, block![(TextLiteral #((Section "Other quote type")))]),
|
|
(r#""Non-escape: \n""#, block![(TextLiteral #((Section "Non-escape: \\n")))]),
|
|
(r#""String with \" escape""#, block![
|
|
(TextLiteral
|
|
#((Section "String with ") (Escape '\"') (Section " escape")))]),
|
|
(r#"'\u0915\u094D\u0937\u093F'"#, block![(TextLiteral #(
|
|
(Escape '\u{0915}') (Escape '\u{094D}') (Escape '\u{0937}') (Escape '\u{093F}')))]),
|
|
(r#"('\n')"#, block![(Group (TextLiteral #((Escape '\n'))))]),
|
|
(r#"`"#, block![(Invalid)]),
|
|
(r#"(")")"#, block![(Group (TextLiteral #((Section ")"))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn multiline_text_literals() {
|
|
test("'''", block![(TextLiteral #())]);
|
|
let code = r#""""
|
|
part of the string
|
|
3-spaces indented line, part of the Text Block
|
|
this does not end the string -> '''
|
|
|
|
`also` part of the string
|
|
|
|
x"#;
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TextLiteral
|
|
#((Section "part of the string\n")
|
|
(Section " 3-spaces indented line, part of the Text Block\n")
|
|
(Section "this does not end the string -> '''\n")
|
|
(Section "\n")
|
|
(Section "`also` part of the string\n")))
|
|
(Ident x)
|
|
];
|
|
test(code, expected);
|
|
let code = r#""""
|
|
multiline string that doesn't end in a newline
|
|
x"#;
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TextLiteral #((Section "multiline string that doesn't end in a newline")))
|
|
(Ident x)
|
|
];
|
|
test(code, expected);
|
|
}
|
|
|
|
#[test]
|
|
fn interpolated_literals_in_inline_text() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
(r#"'Simple case.'"#, block![(TextLiteral #((Section "Simple case.")))]),
|
|
(r#"'With a `splice`.'"#, block![(TextLiteral
|
|
#((Section "With a ")
|
|
(Splice (Ident splice))
|
|
(Section ".")))]),
|
|
(r#"'` SpliceWithLeadingWhitespace`'"#, block![(TextLiteral
|
|
#((Splice (Ident SpliceWithLeadingWhitespace))))]),
|
|
(r#"'String with \n escape'"#, block![
|
|
(TextLiteral
|
|
#((Section "String with ") (Escape '\n') (Section " escape")))]),
|
|
(r#"'\x0Aescape'"#, block![
|
|
(TextLiteral #((Escape '\n') (Section "escape")))]),
|
|
(r#"'\u000Aescape'"#, block![
|
|
(TextLiteral #((Escape '\n') (Section "escape")))]),
|
|
(r#"'\u{0000A}escape'"#, block![
|
|
(TextLiteral #((Escape '\n') (Section "escape")))]),
|
|
(r#"'\U0000000Aescape'"#, block![
|
|
(TextLiteral #((Escape '\n') (Section "escape")))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn interpolated_literals_in_multiline_text() {
|
|
let code = r#"'''
|
|
`splice` at start"#;
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TextLiteral #((Splice (Ident splice)) (Section " at start")))];
|
|
test(code, expected);
|
|
|
|
let code = r#"'''
|
|
text with a `splice`
|
|
and some \u000Aescapes\'"#;
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(TextLiteral
|
|
#((Section "text with a ") (Splice (Ident splice)) (Section "\n")
|
|
(Section "and some ") (Escape '\n') (Section "escapes") (Escape '\'')))];
|
|
test(code, expected);
|
|
}
|
|
|
|
|
|
// === Lambdas ===
|
|
|
|
#[test]
|
|
fn new_lambdas() {
|
|
let cases = [
|
|
(r#"\v -> v"#, block![(Lambda "\\" (OprApp (Ident v) (Ok "->") (Ident v)))]),
|
|
(r#"\a b -> x"#, block![
|
|
(Lambda "\\" (OprApp (App (Ident a) (Ident b)) (Ok "->") (Ident x)))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn old_lambdas() {
|
|
let cases = [("v -> v", block![(OprApp (Ident v) (Ok "->") (Ident v))])];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Pattern Matching ===
|
|
|
|
#[test]
|
|
fn pattern_irrefutable() {
|
|
let code = "Point x_val = my_point";
|
|
let expected = block![(Assignment (App (Ident Point) (Ident x_val)) "=" (Ident my_point))];
|
|
test(code, expected);
|
|
|
|
test("Vector _ = x", block![(Assignment (App (Ident Vector) (Wildcard -1)) "=" (Ident x))]);
|
|
}
|
|
|
|
#[test]
|
|
fn case_expression() {
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"case a of",
|
|
" Some -> x",
|
|
" Int ->",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(CaseOf (Ident a) #(
|
|
(((Ident Some) "->" (Ident x)))
|
|
(((Ident Int) "->" ()))))
|
|
];
|
|
test(&code.join("\n"), expected);
|
|
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"case a of",
|
|
" Vector_2d x y -> x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(CaseOf (Ident a) #(
|
|
(((App (App (Ident Vector_2d) (Ident x)) (Ident y)) "->" (Ident x)))))];
|
|
test(&code.join("\n"), expected);
|
|
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"case self of",
|
|
" Vector_2d -> x",
|
|
" _ -> x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(CaseOf (Ident self) #(
|
|
(((Ident Vector_2d) "->" (Ident x)))
|
|
(((Wildcard -1) "->" (Ident x)))))];
|
|
test(&code.join("\n"), expected);
|
|
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"case foo of",
|
|
" v:My_Type -> x",
|
|
" v:(My_Type _ _) -> x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(CaseOf (Ident foo) #(
|
|
(((TypeAnnotated (Ident v) ":" (Ident My_Type)) "->" (Ident x)))
|
|
(((TypeAnnotated (Ident v) ":"
|
|
(Group (App (App (Ident My_Type) (Wildcard -1)) (Wildcard -1))))
|
|
"->" (Ident x)))))];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
#[test]
|
|
fn pattern_match_auto_scope() {
|
|
#[rustfmt::skip]
|
|
let code = [
|
|
"case self of",
|
|
" Vector_2d ... -> x",
|
|
];
|
|
#[rustfmt::skip]
|
|
let expected = block![
|
|
(CaseOf (Ident self) #((((App (Ident Vector_2d) (AutoScope)) "->" (Ident x)))))];
|
|
test(&code.join("\n"), expected);
|
|
}
|
|
|
|
|
|
// === Array/tuple literals ===
|
|
|
|
#[test]
|
|
fn array_literals() {
|
|
let cases = [
|
|
("[]", block![(Array () #())]),
|
|
("[x]", block![(Array (Ident x) #())]),
|
|
("[x, y]", block![(Array (Ident x) #(("," (Ident y))))]),
|
|
("[x, y, z]", block![(Array (Ident x) #(("," (Ident y)) ("," (Ident z))))]),
|
|
("[ x , y ]", block![(Array (Ident x) #(("," (Ident y))))]),
|
|
("[ x , y , z ]", block![(Array (Ident x) #(("," (Ident y)) ("," (Ident z))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn tuple_literals() {
|
|
let cases = [
|
|
("{}", block![(Tuple () #())]),
|
|
("{x}", block![(Tuple (Ident x) #())]),
|
|
("{x, y}", block![(Tuple (Ident x) #(("," (Ident y))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Numeric literals ===
|
|
|
|
#[test]
|
|
fn numbers() {
|
|
let cases = [
|
|
("100_000", block![(Number () "100_000" ())]),
|
|
("10_000.99", block![(Number () "10_000" ("." "99"))]),
|
|
("1 . 0", block![(OprApp (Number () "1" ()) (Ok ".") (Number () "0" ()))]),
|
|
("1 .0", block![(App (Number () "1" ()) (OprSectionBoundary 1 (OprApp () (Ok ".") (Number () "0" ()))))]),
|
|
("1. 0", block![(OprSectionBoundary 1 (App (OprApp (Number () "1" ()) (Ok ".") ()) (Number () "0" ())))]),
|
|
("0b10101010", block![(Number "0b" "10101010" ())]),
|
|
("0o122137", block![(Number "0o" "122137" ())]),
|
|
("0xAE2F14", block![(Number "0x" "AE2F14" ())]),
|
|
("pi = 3.14", block![(Assignment (Ident pi) "=" (Number () "3" ("." "14")))])
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Whitespace ===
|
|
|
|
#[test]
|
|
fn trailing_whitespace() {
|
|
let cases = [
|
|
("a ", block![(Ident a) ()]),
|
|
("a \n", block![(Ident a) ()]),
|
|
("a = \n x", block![(Function (Ident a) #() "=" (BodyBlock #((Ident x))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
// === Annotations ===
|
|
|
|
#[test]
|
|
fn annotation_syntax() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("foo@bar", block![(OprApp (Ident foo) (Ok "@") (Ident bar))]),
|
|
("foo @ bar", block![(OprApp (Ident foo) (Ok "@") (Ident bar))]),
|
|
("@Bar", block![(Annotated "@" Bar #() ())]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn inline_annotations() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("@Tail_Call go t", block![(Annotated "@" Tail_Call #() (App (Ident go) (Ident t)))]),
|
|
("@Tail_Call go\n a\n b", block![
|
|
(Annotated "@" Tail_Call #()
|
|
(ArgumentBlockApplication (Ident go) #((Ident a) (Ident b))))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
#[test]
|
|
fn multiline_annotations() {
|
|
#[rustfmt::skip]
|
|
let cases = [
|
|
("@Builtin_Type\ntype Date", block![
|
|
(Annotated "@" Builtin_Type #(()) (TypeDef type Date #() #() #()))]),
|
|
];
|
|
cases.into_iter().for_each(|(code, expected)| test(code, expected));
|
|
}
|
|
|
|
|
|
|
|
// ====================
|
|
// === Test Support ===
|
|
// ====================
|
|
|
|
/// Given a block of input Enso code, test that:
|
|
/// - The given code parses to the AST represented by the given S-expression.
|
|
/// - The AST pretty-prints back to the original code.
|
|
/// - Rust's deserialization is compatible with Rust's serialization for the type. (The Java format
|
|
/// tests check Java's deserialization against Rust's deserialization).
|
|
///
|
|
/// The S-expression format is as documented for [`enso_metamodel_lexpr`], with some
|
|
/// postprocessing:
|
|
/// - For concision, field names are stripped (as if all structs were tuple structs).
|
|
/// - Most token types are represented as their contents, rather than as a token struct. For
|
|
/// example, a `token::Number` may be represented like: `sexp![10]`, and a `token::Ident` may look
|
|
/// like `sexp![foo]`.
|
|
fn test(code: &str, expect: lexpr::Value) {
|
|
let ast = enso_parser::Parser::new().run(code);
|
|
let ast_s_expr = to_s_expr(&ast, code);
|
|
assert_eq!(ast_s_expr.to_string(), expect.to_string(), "{:?}", &ast);
|
|
assert_eq!(ast.code(), code, "{:?}", &ast);
|
|
let serialized = enso_parser::serialization::serialize_tree(&ast).unwrap();
|
|
let deserialized = enso_parser::serialization::deserialize_tree(&serialized);
|
|
deserialized.unwrap();
|
|
}
|