glasses 0.1.1

Macros for writing lots of tests (or specs!)
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

pub trait Harness {
    type Builder;
    fn new_builder() -> Self::Builder;
    fn run_test(case: Self::Builder);
}

#[macro_export]
macro_rules! glasses_make_case_helper {
    ($harness_name: ty, $acc: expr) => {{
        use $crate::Harness;
        let case = <$harness_name>::new_builder();
        ($acc)(case)
    }};
    ($harness_name: ty, $acc: expr, $head_mod: ident $($head_arg: expr)* $(, $mod: ident $($arg: expr)*)*) => {{
        $crate::glasses_make_case_helper!(
            $harness_name,
            |case: <$harness_name as Harness>::Builder | $acc(case).$head_mod($($head_arg , )*)
            $(, $mod $( $arg )* )*
        )
    }};
}

#[macro_export]
macro_rules! glasses_make_case {
    ($harness_name: ty $(, $mod: ident $($arg: expr)*)*) => {
        $crate::glasses_make_case_helper!($harness_name, |case: <$harness_name as Harness>::Builder| case $(, $mod $( $arg )* )* )
    }
}

#[macro_export]
macro_rules! glasses_harness {
    ($harness_name: ident, $builder_type: ty, $test_body: expr) => {
        $crate::glasses_harness!($harness_name, $builder_type, <$builder_type>::default(), $test_body);
    };
    ($harness_name: ident, $builder_type: ty, $builder: expr, $test_body: expr) => {
        pub struct $harness_name;

        impl glasses::Harness for $harness_name {
            type Builder = $builder_type;
            fn new_builder() -> $builder_type {
                $builder
            }
            fn run_test(case: $builder_type) {
                $test_body(case)
            }
        }
    }
}

#[macro_export]
macro_rules! glasses_test {
    (
        $harness_name: ty,
        $name: ident
        $(, [ $attr: meta ] )*
        $(, $mod: ident $($arg: expr)*)*
    ) => {
        #[test]
        $(#[$attr])*
        fn $name() {
            use $crate::Harness;
            let case: <$harness_name as Harness>::Builder = $crate::glasses_make_case!($harness_name $(, $mod $( $arg )* )* );
            <$harness_name>::run_test(case)
        }
    }
}