pascal 0.1.8

A modern Pascal compiler with build/intepreter/package manager built with 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

//! Interpreter edge-case integration tests.

use pascal::ast::{Block, Expr, Literal, Program, SimpleType, Statement, Type, VariableDecl};
use pascal::interpreter::Interpreter;

fn run_program(program: &Program) -> Result<(), anyhow::Error> {
    let mut interp = Interpreter::new(false);
    interp.run_program(program).map_err(|e| e.into())
}

#[test]
fn test_empty_program_body() {
    let program = Program {
        name: "Empty".to_string(),
        uses: vec![],
        block: Block::with_statements(vec![]),
    };
    assert!(run_program(&program).is_ok());
}

#[test]
fn test_nested_if_else() {
    let program = Program {
        name: "Nested".to_string(),
        uses: vec![],
        block: Block {
            vars: vec![VariableDecl {
                name: "x".to_string(),
                variable_type: Type::Simple(SimpleType::Integer),
                initial_value: None,
                visibility: pascal::ast::FieldVisibility::Public,
                is_absolute: false,
                absolute_address: None,
            }],
            statements: vec![
                Statement::Assignment {
                    target: Expr::Variable("x".to_string()),
                    value: Expr::Literal(Literal::Integer(5)),
                },
                Statement::If {
                    condition: Expr::BinaryOp {
                        operator: ">".to_string(),
                        left: Box::new(Expr::Variable("x".to_string())),
                        right: Box::new(Expr::Literal(Literal::Integer(0))),
                    },
                    then_branch: vec![Statement::Assignment {
                        target: Expr::Variable("x".to_string()),
                        value: Expr::Literal(Literal::Integer(1)),
                    }],
                    else_branch: Some(vec![Statement::Assignment {
                        target: Expr::Variable("x".to_string()),
                        value: Expr::Literal(Literal::Integer(0)),
                    }]),
                },
            ],
            ..Block::empty()
        },
    };
    assert!(run_program(&program).is_ok());
}

#[test]
fn test_division_by_zero_runtime_error() {
    let program = Program {
        name: "DivZero".to_string(),
        uses: vec![],
        block: Block::with_statements(vec![Statement::Assignment {
            target: Expr::Variable("x".to_string()),
            value: Expr::BinaryOp {
                operator: "/".to_string(),
                left: Box::new(Expr::Literal(Literal::Integer(1))),
                right: Box::new(Expr::Literal(Literal::Integer(0))),
            },
        }]),
    };
    assert!(run_program(&program).is_err());
}