strykelang 0.7.11

A highly parallel Perl 5 interpreter written in Rust
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

//! Extra tests for `Parser` to ensure correct AST generation and precedence.

use crate::ast::{BinOp, ExprKind, StmtKind};
use crate::parse;

fn first_expr_kind(code: &str) -> ExprKind {
    let p = parse(code).expect("parse");
    let sk = &p.statements[0].kind;
    match sk {
        StmtKind::Expression(e) => e.kind.clone(),
        _ => panic!("expected expression stmt"),
    }
}

#[test]
fn test_precedence_arithmetic() {
    // 2 + 3 * 4 should be 2 + (3 * 4)
    let k = first_expr_kind("2 + 3 * 4;");
    if let ExprKind::BinOp { op, left, right } = k {
        assert_eq!(op, BinOp::Add);
        assert!(matches!(left.kind, ExprKind::Integer(2)));
        if let ExprKind::BinOp { op, .. } = right.kind {
            assert_eq!(op, BinOp::Mul);
        } else {
            panic!("expected Mul on right");
        }
    } else {
        panic!("expected Add at top level");
    }
}

#[test]
fn test_precedence_logical() {
    // 1 || 0 && 0 should be 1 || (0 && 0) if && is higher than ||
    let k = first_expr_kind("1 || 0 && 0;");
    if let ExprKind::BinOp { op, right, .. } = k {
        assert_eq!(op, BinOp::LogOr);
        if let ExprKind::BinOp { op, .. } = right.kind {
            assert_eq!(op, BinOp::LogAnd);
        }
    }
}

#[test]
fn test_nested_structures_parsing() {
    // my $x = [ { a => 1 } ];
    let p = parse("my $x = [ { a => 1 } ];").expect("parse");
    let StmtKind::My(decls) = &p.statements[0].kind else {
        panic!("expected my")
    };
    let init = decls[0].initializer.as_ref().unwrap();
    assert!(matches!(init.kind, ExprKind::ArrayRef(_)));
}

#[test]
fn test_pipe_forward_basic_desugaring() {
    // 42 |> say  should desugar to say(42)
    let k = first_expr_kind("42 |> say;");
    if let ExprKind::Say { args, .. } = k {
        assert_eq!(args.len(), 1);
        assert!(matches!(args[0].kind, ExprKind::Integer(42)));
    } else {
        panic!(
            "expected Say (desugared from PipeForward) at top level, got {:?}",
            k
        );
    }
}

#[test]
fn test_ternary_precedence() {
    // $a ? $b : $c || $d  should be $a ? $b : ($c || $d)
    let k = first_expr_kind("$a ? $b : $c || $d;");
    if let ExprKind::Ternary { else_expr, .. } = k {
        assert!(matches!(
            else_expr.kind,
            ExprKind::BinOp {
                op: BinOp::LogOr,
                ..
            }
        ));
    } else {
        panic!("expected Ternary");
    }
}

#[test]
fn test_sub_call_no_parens() {
    let k = first_expr_kind("say 42;");
    if let ExprKind::Say { args, .. } = k {
        assert_eq!(args.len(), 1);
    } else {
        panic!("expected Say");
    }
}