strykelang 0.8.13

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

use crate::common::*;

#[test]
fn string_is_empty() {
    assert_eq!(eval_int("is_empty('')"), 1);
    assert_eq!(eval_int("is_empty('abc')"), 0);
    assert_eq!(eval_int("is_empty(undef)"), 1);
}

#[test]
fn string_is_blank() {
    assert_eq!(eval_int("is_blank('')"), 1);
    assert_eq!(eval_int("is_blank('  ')"), 1);
    assert_eq!(eval_int("is_blank('\t\n')"), 1);
    assert_eq!(eval_int("is_blank(' a ')"), 0);
    assert_eq!(eval_int("is_blank(undef)"), 1);
}

#[test]
fn string_is_numeric() {
    assert_eq!(eval_int("is_numeric('123')"), 1);
    assert_eq!(eval_int("is_numeric('12.3')"), 1);
    assert_eq!(eval_int("is_numeric('-1.2e3')"), 1);
    assert_eq!(eval_int("is_numeric('abc')"), 0);
    assert_eq!(eval_int("is_numeric('')"), 0);
}

#[test]
fn string_case_predicates() {
    assert_eq!(eval_int("is_upper('ABC')"), 1);
    assert_eq!(eval_int("is_upper('AbC')"), 0);
    assert_eq!(eval_int("is_lower('abc')"), 1);
    assert_eq!(eval_int("is_lower('aBc')"), 0);
    assert_eq!(eval_int("is_alpha('abcABC')"), 1);
    assert_eq!(eval_int("is_alpha('abc1')"), 0);
    assert_eq!(eval_int("is_digit('123')"), 1);
    assert_eq!(eval_int("is_digit('12a')"), 0);
    assert_eq!(eval_int("is_alnum('abc123')"), 1);
    assert_eq!(eval_int("is_alnum('abc 123')"), 0);
}

#[test]
fn string_space_predicates() {
    assert_eq!(eval_int("is_space(' ')"), 1);
    assert_eq!(eval_int("is_space('\t\n\r ')"), 1);
    assert_eq!(eval_int("is_space('a')"), 0);
}

#[test]
fn string_search_helpers() {
    assert_eq!(eval_int("starts_with('hello world', 'hello')"), 1);
    assert_eq!(eval_int("sw('hello world', 'hello')"), 1);
    assert_eq!(eval_int("ends_with('hello world', 'world')"), 1);
    assert_eq!(eval_int("ew('hello world', 'world')"), 1);
    assert_eq!(eval_int("contains('hello world', 'o w')"), 1);
    assert_eq!(eval_int("contains('hello world', 'xyz')"), 0);
}

#[test]
fn string_transform_helpers() {
    assert_eq!(eval_string("capitalize('hello')"), "Hello");
    assert_eq!(eval_string("cap('world')"), "World");
    assert_eq!(eval_string("swap_case('aBcD')"), "AbCd");
    assert_eq!(eval_string("repeat('abc', 3)"), "abcabcabc");
    assert_eq!(eval_string("title_case('hello world')"), "Hello World");
    assert_eq!(eval_string("squish('  hello   world  ')"), "hello world");
}

#[test]
fn string_padding_helpers() {
    assert_eq!(eval_string("pad_left('abc', 5)"), "  abc");
    assert_eq!(eval_string("lpad('abc', 5, 'x')"), "xxabc");
    assert_eq!(eval_string("pad_right('abc', 5)"), "abc  ");
    assert_eq!(eval_string("rpad('abc', 5, 'y')"), "abcyy");
    assert_eq!(eval_string("center('abc', 7)"), "  abc  ");
    assert_eq!(eval_string("center('abc', 7, '=')"), "==abc==");
}

#[test]
fn string_truncate_and_reverse() {
    assert_eq!(eval_string("truncate_at('hello world', 5)"), "hell\u{2026}");
    assert_eq!(eval_string("shorten('hello world', 8)"), "hello w\u{2026}");
    assert_eq!(eval_string("reverse_str('abc')"), "cba");
    assert_eq!(eval_string("rev_str('hello')"), "olleh");
}