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

//! Tests for parallel/concurrency APIs (pchannel, ppool, etc.) via the interpreter.

use crate::run;

#[test]
fn test_pchannel_interpreter_roundtrip() {
    let code = r#"
        my ($tx, $rx) = pchannel()
        $tx->send(42)
        $rx->recv()
    "#;
    assert_eq!(run(code).expect("run").to_int(), 42);
}

#[test]
fn test_pchannel_bounded() {
    let _code = r#"
        my ($tx, $rx) = pchannel(1);
        $tx->send(10);
        # second send would block if we were in a different thread, 
        # but here we just test it works and returns truth
        $tx->send(20) ? 0 : 1; 
    "#;
}

#[test]
fn test_pselect_interpreter() {
    let code = r#"
        my ($tx1, $rx1) = pchannel()
        my ($tx2, $rx2) = pchannel()
        $tx2->send("ok")
        my ($val, $idx) = pselect($rx1, $rx2)
        "$val:$idx"
    "#;
    assert_eq!(run(code).expect("run").to_string(), "ok:1");
}

#[test]
fn test_ppool_interpreter() {
    let code = r#"
        my $pool = ppool(2)
        for my $i (1..3) {
            $pool->submit(sub { $_ * 10 }, $i)
        }
        my @res = $pool->collect()
        join(",", sort { $a <=> $b } @res)
    "#;
    assert_eq!(run(code).expect("run").to_string(), "10,20,30");
}

#[test]
fn test_pwatch_helpers() {
    // pwatch is hard to test without real FS events, but we can test the error cases.
    let code = r#"
        sub cb { 1 }
        my $failed = 0
        eval { pwatch("/no/such/dir/likely/*.log", \&cb) }
        if ($@) { $failed = 1; }
        $failed
    "#;
    assert_eq!(run(code).expect("run").to_int(), 1);
}