strykelang 0.8.5

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

//! Extra tests for error handling and die with values.

use crate::run;

#[test]
fn test_die_string() {
    let code = r#"
        eval { die "custom error\n" };
        $@;
    "#;
    assert_eq!(run(code).expect("run").to_string(), "custom error\n");
}

#[test]
fn test_die_reference() {
    let code = r#"
        eval { die { msg => "nested", code => 500 } };
        ref($@) . ":" . $@->{msg} . ":" . $@->{code};
    "#;
    assert_eq!(run(code).expect("run").to_string(), "HASH:nested:500");
}

#[test]
fn test_die_array_reference() {
    let code = r#"
        eval { die [1, 2, 3] };
        ref($@) . ":" . join(",", @$@);
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ARRAY:1,2,3");
}

#[test]
fn test_try_catch_basic() {
    // Stryke supports try/catch extension
    let code = r#"
        my $res = "none";
        try {
            die "oops";
        } catch ($e) {
            $res = "caught:$e";
        }
        $res;
    "#;
    // Perl runtime errors often append " at -e line ..."
    assert!(run(code).expect("run").to_string().contains("caught:oops"));
}

#[test]
fn test_division_by_zero_error() {
    let code = r#"
        eval { 1 / 0 };
        $@ =~ /division by zero/i ? "ok" : "fail:$@";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ok");
}