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
macro_rules! opt_complete(
    ($i:expr, $submac:ident!( $($args:tt)* )) => ({
        use ::nom::IResult;
        match $submac!($i, $($args)*) {
            IResult::Done(i, o)    => IResult::Done(i, Some(o)),
            IResult::Error(_)      => IResult::Done($i, None),
            IResult::Incomplete(_) => IResult::Done($i, None)
        }
    });
    ($i:expr, $f:expr) => (
        opt_complete!($i, call!($f));
    );
);

macro_rules! assert_done {
    ($res:expr) => (
        match $res {
            ::nom::IResult::Done("", _) => {},
            r @ _ => panic!("fail: {:?}", r),
        }
    );
    ($res:expr, $expected:expr) => (
        match $res {
            ::nom::IResult::Done("", v @ _) => {
                assert_eq!(v, $expected);
            },
            r @ _ => panic!("fail: {:?}", r),
        }
    );
}

macro_rules! assert_done_vec {
    ($res:expr, $num:expr) => (
        match $res {
            ::nom::IResult::Done("", v @ _) => {
                assert_eq!(v.len(), $num);
            },
            r @ _ => panic!("fail: {:?}", r),
        }
    );
}

macro_rules! assert_fail {
    ($res:expr) => (
        match $res {
            ::nom::IResult::Done("", r @ _) => {
                panic!("should fail: {:?} got {:?}", $res, r)
            },
            _ => {},
        }
    );
}