strykelang 0.7.9

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

//! Extra tests for advanced regex features and match variables.

use crate::run;

#[test]
fn test_regex_lookarounds() {
    // fancy_regex / pcre2 should handle lookarounds
    let code = r#"
        "foobar" =~ /foo(?=bar)/ ? "ok" : "fail";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ok");

    let code2 = r#"
        "foobar" =~ /foo(?!baz)/ ? "ok" : "fail";
    "#;
    assert_eq!(run(code2).expect("run").to_string(), "ok");
}

#[test]
fn test_regex_non_capturing_groups() {
    let code = r#"
        "abc" =~ /(?:a)b(c)/;
        $1;
    "#;
    assert_eq!(run(code).expect("run").to_string(), "c");
}

#[test]
fn test_regex_p_flag_match_vars() {
    // Stryke supports /p for ${^MATCH}, ${^PREMATCH}, ${^POSTMATCH}
    let code = r#"
        "abc123def" =~ /(\d+)/p;
        "${^PREMATCH}:${^MATCH}:${^POSTMATCH}";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "abc:123:def");
}

#[test]
fn test_regex_named_captures_in_perl() {
    let code = r#"
        "2026-04-20" =~ /(?<year>\d+)-(?<month>\d+)-(?<day>\d+)/;
        "$+{year}:$+{month}:$+{day}";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "2026:04:20");
}

#[test]
fn test_regex_multiline() {
    let code = r#"
        "abc\ndef" =~ /^def/m ? "ok" : "fail";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ok");
}

#[test]
fn test_regex_substitution_g() {
    let code = r#"
        my $s = "a b c";
        $s =~ s/\s/-/g;
        $s;
    "#;
    assert_eq!(run(code).expect("run").to_string(), "a-b-c");
}

#[test]
fn test_regex_substitution_eval_first() {
    // s///e support - testing single substitution for now
    let code = r#"
        my $s = "10";
        $s =~ s/(\d+)/$1 * 2/e;
        $s;
    "#;
    assert_eq!(run(code).expect("run").to_string(), "20");
}

#[test]
fn test_regex_backreferences() {
    let code = r#"
        "abcabc" =~ /(abc)\1/ ? "ok" : "fail";
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ok");
}