2018-08-30 12:18:55 +00:00
|
|
|
//@ run-pass
|
2019-05-22 03:52:47 +00:00
|
|
|
|
2018-09-25 21:51:35 +00:00
|
|
|
#![allow(unused_mut)]
|
2019-05-22 03:52:47 +00:00
|
|
|
|
|
|
|
// Check that when `?` is followed by what looks like a Kleene operator (?, +, and *)
|
|
|
|
// then that `?` is not interpreted as a separator. In other words, `$(pat)?+` matches `pat +`
|
|
|
|
// or `+` but does not match `pat` or `pat ? pat`.
|
2018-01-29 22:26:11 +00:00
|
|
|
|
2019-05-18 06:24:56 +00:00
|
|
|
//@ edition:2015
|
2018-06-16 02:49:00 +00:00
|
|
|
|
2018-01-19 03:17:27 +00:00
|
|
|
macro_rules! foo {
|
2019-05-22 03:52:47 +00:00
|
|
|
// Check for `?`.
|
|
|
|
($($a:ident)? ? $num:expr) => {
|
|
|
|
foo!($($a)? ; $num);
|
|
|
|
};
|
|
|
|
// Check for `+`.
|
|
|
|
($($a:ident)? + $num:expr) => {
|
|
|
|
foo!($($a)? ; $num);
|
|
|
|
};
|
|
|
|
// Check for `*`.
|
|
|
|
($($a:ident)? * $num:expr) => {
|
|
|
|
foo!($($a)? ; $num);
|
|
|
|
};
|
|
|
|
// Check for `;`, not a kleene operator.
|
|
|
|
($($a:ident)? ; $num:expr) => {
|
2018-01-29 22:26:11 +00:00
|
|
|
let mut x = 0;
|
|
|
|
|
|
|
|
$(
|
|
|
|
x += $a;
|
2019-05-22 03:52:47 +00:00
|
|
|
)?
|
2018-01-29 22:26:11 +00:00
|
|
|
|
|
|
|
assert_eq!(x, $num);
|
2019-05-22 03:52:47 +00:00
|
|
|
};
|
2018-01-19 03:17:27 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
pub fn main() {
|
2018-01-29 22:26:11 +00:00
|
|
|
let a = 1;
|
|
|
|
|
2019-05-22 03:52:47 +00:00
|
|
|
// Accept 0 repetitions.
|
2018-01-29 22:26:11 +00:00
|
|
|
foo!( ; 0);
|
2019-05-22 03:52:47 +00:00
|
|
|
foo!( + 0);
|
|
|
|
foo!( * 0);
|
|
|
|
foo!( ? 0);
|
|
|
|
|
|
|
|
// Accept 1 repetition.
|
2018-01-29 22:26:11 +00:00
|
|
|
foo!(a ; 1);
|
2019-05-22 03:52:47 +00:00
|
|
|
foo!(a + 1);
|
|
|
|
foo!(a * 1);
|
|
|
|
foo!(a ? 1);
|
2018-01-19 03:17:27 +00:00
|
|
|
}
|