strykelang 0.9.1

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

//! String and comparison operators — parse acceptance (explicit tests; no batching).

fn p(src: &str) {
    stryke::parse(src).unwrap_or_else(|e| panic!("parse failed for {src:?}: {e}"));
}

#[test]
fn str_eq() {
    p(r#""a" eq "b""#);
}

#[test]
fn str_ne() {
    p(r#""a" ne "b""#);
}

#[test]
fn str_lt() {
    p(r#""a" lt "b""#);
}

#[test]
fn str_gt() {
    p(r#""b" gt "a""#);
}

#[test]
fn str_le() {
    p(r#""a" le "b""#);
}

#[test]
fn str_ge() {
    p(r#""b" ge "a""#);
}

#[test]
fn str_cmp() {
    p(r#""a" cmp "b""#);
}

#[test]
fn num_eq_ne_lt() {
    p("1 == 2");
    p("1 != 2");
    p("1 < 2");
}

#[test]
fn num_gt_le_ge() {
    p("2 > 1");
    p("1 <= 2");
    p("2 >= 2");
}

#[test]
fn spaceship_pair() {
    p("1 <=> 2");
    p("2 <=> 2");
}

#[test]
fn concat_two_literals() {
    p(r#""x" . "y""#);
}

#[test]
fn concat_assign_expanded() {
    p(r#"my $s = "a"; $s = $s . "b""#);
}

#[test]
fn lc_uc_pair() {
    p("lc 'HELLO'");
    p("uc 'hello'");
}

#[test]
fn lcfirst_ucfirst_pair() {
    p("lcfirst 'Hello'");
    p("ucfirst 'hello'");
}

#[test]
fn index_rindex_pair() {
    p("index 'abc', 'b'");
    p("rindex 'aba', 'a'");
}

#[test]
fn sprintf_two_args() {
    p(r#"sprintf "%d-%s", 1, "x""#);
}