blr-lang 0.1.0

A language implementation that provides type safe dataframes
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

use std::path::PathBuf;

use expect_test::expect_file;
use snafu::Report;
use test_log::test;
use tokio::{fs::File, io::AsyncReadExt as _};
use tracing::debug;

macro_rules! test_case {
    ($name:ident) => {
        #[test(tokio::test)]
        async fn $name() {
            let prefix = stringify!($name);
            blr_run(&prefix).await
        }
    };
}

async fn blr_run(prefix: &str) {
    // Filepath is relative to Cargo root
    let mut filepath = PathBuf::from("tests/integration").join(prefix);
    filepath.set_extension("blr");
    // Filepath_out is relative to the current test file.
    let mut filepath_out = PathBuf::from("integration").join(prefix);
    filepath_out.set_extension("out");
    debug!(?filepath, ?filepath_out, "paths");
    let mut src = String::new();
    File::open(&filepath)
        .await
        .expect("should be able open test file")
        .read_to_string(&mut src)
        .await
        .expect("should be able to read test file");

    match blr_lang::run(&src, "..").await {
        Ok(value) => {
            expect_file![filepath_out].assert_eq(&blr_lang::val_to_string(value));
        }
        Err(e) => {
            expect_file![filepath_out].assert_eq(&Report::from_error(e).to_string());
        }
    }
}

test_case!(binary_ops);
test_case!(closure);
test_case!(df);
test_case!(external);
test_case!(external_record);
test_case!(external_nested_record);
test_case!(explicit_main);
test_case!(first_class_record_func);
test_case!(import);
test_case!(one_plus_one);
test_case!(partial_app);
// Ignore print till we get more complete cm+gc support
test_case!(print);
test_case!(poly_id);
test_case!(poly_item);
test_case!(record_value);
test_case!(record_concat);
test_case!(record_func);
test_case!(record_nested);
test_case!(record_poly);
test_case!(record_poly_simple);
test_case!(record_select);
test_case!(return_one);
test_case!(string);
test_case!(sums);