summaryrefslogtreecommitdiffstats
path: root/src/parse/ast.rs
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2022-01-08 17:18:02 -0500
committerJesse Luehrs <doy@tozt.net>2022-01-08 17:19:18 -0500
commitfe1fc9d45a1aa107d1fae27627b3ea698f774193 (patch)
tree27281214f971820e486d4af005e290138167da82 /src/parse/ast.rs
parent98617b70d8e85053c1ca56f26c58d49d880a0ce1 (diff)
downloadnbsh-fe1fc9d45a1aa107d1fae27627b3ea698f774193.tar.gz
nbsh-fe1fc9d45a1aa107d1fae27627b3ea698f774193.zip
pull tests out into their own file again
Diffstat (limited to 'src/parse/ast.rs')
-rw-r--r--src/parse/ast.rs354
1 files changed, 2 insertions, 352 deletions
diff --git a/src/parse/ast.rs b/src/parse/ast.rs
index 3e67273..ba13bc1 100644
--- a/src/parse/ast.rs
+++ b/src/parse/ast.rs
@@ -318,355 +318,5 @@ fn strip_basic_escape(s: &str) -> String {
}
#[cfg(test)]
-macro_rules! c {
- ($input_string:expr, $($pipelines:expr),*) => {
- Commands {
- pipelines: vec![$($pipelines),*],
- input_string: $input_string.to_string(),
- }
- };
- }
-
-#[cfg(test)]
-macro_rules! p {
- ($input_string:expr, $($exes:expr),*) => {
- Pipeline {
- exes: vec![$($exes),*],
- input_string: $input_string.to_string(),
- }
- };
- }
-
-#[cfg(test)]
-macro_rules! e {
- ($word:expr) => {
- Exe {
- exe: $word,
- args: vec![],
- redirects: vec![],
- }
- };
- ($word:expr, $($args:expr),*) => {
- Exe {
- exe: $word,
- args: vec![$($args),*],
- redirects: vec![],
- }
- };
- ($word:expr ; $($redirects:expr),*) => {
- Exe {
- exe: $word,
- args: vec![],
- redirects: vec![$($redirects),*],
- }
- };
- ($word:expr, $($args:expr),* ; $($redirects:expr),*) => {
- Exe {
- exe: $word,
- args: vec![$($args),*],
- redirects: vec![$($redirects),*],
- }
- };
- }
-
-#[cfg(test)]
-macro_rules! r {
- ($from:literal, $to:expr, $dir:ident) => {
- Redirect {
- from: $from,
- to: $to,
- dir: super::Direction::$dir,
- }
- };
-}
-
-#[cfg(test)]
-macro_rules! w {
- ($word:literal) => {
- Word {
- parts: vec![WordPart::Bareword($word.to_string())],
- }
- };
- ($($word:expr),*) => {
- Word {
- parts: vec![$($word),*],
- }
- }
-}
-
-#[cfg(test)]
-macro_rules! wpv {
- ($var:literal) => {
- WordPart::Var($var.to_string())
- };
-}
-
-#[cfg(test)]
-macro_rules! wpb {
- ($bareword:literal) => {
- WordPart::Bareword($bareword.to_string())
- };
-}
-
-#[cfg(test)]
-macro_rules! wpd {
- ($doublequoted:literal) => {
- WordPart::DoubleQuoted($doublequoted.to_string())
- };
-}
-
-#[cfg(test)]
-macro_rules! wps {
- ($singlequoted:literal) => {
- WordPart::SingleQuoted($singlequoted.to_string())
- };
-}
-
-#[cfg(test)]
-macro_rules! parse_eq {
- ($line:literal, $parsed:expr) => {
- assert_eq!(&Commands::parse($line).unwrap(), &$parsed)
- };
-}
-
-#[test]
-fn test_basic() {
- parse_eq!("foo", c!("foo", p!("foo", e!(w!("foo")))));
- parse_eq!(
- "foo bar",
- c!("foo bar", p!("foo bar", e!(w!("foo"), w!("bar"))))
- );
- parse_eq!(
- "foo bar baz",
- c!(
- "foo bar baz",
- p!("foo bar baz", e!(w!("foo"), w!("bar"), w!("baz")))
- )
- );
- parse_eq!(
- "foo | bar",
- c!("foo | bar", p!("foo | bar", e!(w!("foo")), e!(w!("bar"))))
- );
- parse_eq!(
- "command ls; perl -E 'say foo' | tr a-z A-Z; builtin echo bar",
- c!(
- "command ls; perl -E 'say foo' | tr a-z A-Z; builtin echo bar",
- p!("command ls", e!(w!("command"), w!("ls"))),
- p!(
- "perl -E 'say foo' | tr a-z A-Z",
- e!(w!("perl"), w!("-E"), w!(wps!("say foo"))),
- e!(w!("tr"), w!("a-z"), w!("A-Z"))
- ),
- p!("builtin echo bar", e!(w!("builtin"), w!("echo"), w!("bar")))
- )
- );
-}
-
-#[test]
-fn test_whitespace() {
- parse_eq!(" foo ", c!("foo", p!("foo", e!(w!("foo")))));
- parse_eq!(
- " foo # this is a comment",
- c!("foo", p!("foo", e!(w!("foo"))))
- );
- parse_eq!("foo#comment", c!("foo", p!("foo", e!(w!("foo")))));
- parse_eq!(
- "foo;bar|baz;quux#comment",
- c!(
- "foo;bar|baz;quux",
- p!("foo", e!(w!("foo"))),
- p!("bar|baz", e!(w!("bar")), e!(w!("baz"))),
- p!("quux", e!(w!("quux")))
- )
- );
- parse_eq!(
- "foo | bar ",
- c!(
- "foo | bar",
- p!("foo | bar", e!(w!("foo")), e!(w!("bar")))
- )
- );
- parse_eq!(
- " abc def ghi |jkl mno| pqr stu; vwxyz # comment",
- c!(
- "abc def ghi |jkl mno| pqr stu; vwxyz",
- p!(
- "abc def ghi |jkl mno| pqr stu",
- e!(w!("abc"), w!("def"), w!("ghi")),
- e!(w!("jkl"), w!("mno")),
- e!(w!("pqr"), w!("stu"))
- ),
- p!("vwxyz", e!(w!("vwxyz")))
- )
- );
- parse_eq!(
- "foo 'bar # baz' \"quux # not a comment\" # comment",
- c!(
- "foo 'bar # baz' \"quux # not a comment\"",
- p!(
- "foo 'bar # baz' \"quux # not a comment\"",
- e!(
- w!("foo"),
- w!(wps!("bar # baz")),
- w!(wpd!("quux # not a comment"))
- )
- )
- )
- );
-}
-
-#[test]
-fn test_redirect() {
- parse_eq!(
- "foo > bar",
- c!(
- "foo > bar",
- p!("foo > bar", e!(w!("foo") ; r!(1, w!("bar"), Out)))
- )
- );
- parse_eq!(
- "foo <bar",
- c!(
- "foo <bar",
- p!("foo <bar", e!(w!("foo") ; r!(0, w!("bar"), In)))
- )
- );
- parse_eq!(
- "foo > /dev/null 2>&1",
- c!(
- "foo > /dev/null 2>&1",
- p!(
- "foo > /dev/null 2>&1",
- e!(
- w!("foo") ;
- r!(1, w!("/dev/null"), Out), r!(2, w!("&1"), Out)
- )
- )
- )
- );
- parse_eq!(
- "foo >>bar",
- c!(
- "foo >>bar",
- p!("foo >>bar", e!(w!("foo") ; r!(1, w!("bar"), Append)))
- )
- );
- parse_eq!(
- "foo >> bar",
- c!(
- "foo >> bar",
- p!("foo >> bar", e!(w!("foo") ; r!(1, w!("bar"), Append)))
- )
- );
- parse_eq!(
- "foo > 'bar baz'",
- c!(
- "foo > 'bar baz'",
- p!(
- "foo > 'bar baz'",
- e!(w!("foo") ; r!(1, w!(wps!("bar baz")), Out))
- )
- )
- );
-}
-
-#[test]
-fn test_escape() {
- parse_eq!(
- "foo\\ bar",
- c!("foo\\ bar", p!("foo\\ bar", e!(w!("foo bar"))))
- );
- parse_eq!(
- "'foo\\ bar'",
- c!("'foo\\ bar'", p!("'foo\\ bar'", e!(w!(wps!("foo\\ bar")))))
- );
- parse_eq!(
- "\"foo\\ bar\"",
- c!(
- "\"foo\\ bar\"",
- p!("\"foo\\ bar\"", e!(w!(wpd!("foo bar"))))
- )
- );
- parse_eq!(
- "\"foo\\\"bar\"",
- c!(
- "\"foo\\\"bar\"",
- p!("\"foo\\\"bar\"", e!(w!(wpd!("foo\"bar"))))
- )
- );
- parse_eq!(
- "'foo\\'bar\\\\'",
- c!(
- "'foo\\'bar\\\\'",
- p!("'foo\\'bar\\\\'", e!(w!(wps!("foo'bar\\"))))
- )
- );
- parse_eq!(
- "foo > bar\\ baz",
- c!(
- "foo > bar\\ baz",
- p!("foo > bar\\ baz", e!(w!("foo") ; r!(1, w!("bar baz"), Out)))
- )
- );
-}
-
-#[test]
-fn test_parts() {
- parse_eq!(
- "echo \"$HOME/bin\"",
- c!(
- "echo \"$HOME/bin\"",
- p!(
- "echo \"$HOME/bin\"",
- e!(w!("echo"), w!(wpv!("HOME"), wpd!("/bin")))
- )
- )
- );
- parse_eq!(
- "echo $HOME/bin",
- c!(
- "echo $HOME/bin",
- p!(
- "echo $HOME/bin",
- e!(w!("echo"), w!(wpv!("HOME"), wpb!("/bin")))
- )
- )
- );
- parse_eq!(
- "echo '$HOME/bin'",
- c!(
- "echo '$HOME/bin'",
- p!("echo '$HOME/bin'", e!(w!("echo"), w!(wps!("$HOME/bin"))))
- )
- );
- parse_eq!(
- "echo \"foo\"\"bar\"",
- c!(
- "echo \"foo\"\"bar\"",
- p!(
- "echo \"foo\"\"bar\"",
- e!(w!("echo"), w!(wpd!("foo"), wpd!("bar")))
- )
- )
- );
- parse_eq!(
- "echo $foo$bar$baz",
- c!(
- "echo $foo$bar$baz",
- p!(
- "echo $foo$bar$baz",
- e!(w!("echo"), w!(wpv!("foo"), wpv!("bar"), wpv!("baz")))
- )
- )
- );
- parse_eq!(
- "perl -E'say \"foo\"'",
- c!(
- "perl -E'say \"foo\"'",
- p!(
- "perl -E'say \"foo\"'",
- e!(w!("perl"), w!(wpb!("-E"), wps!("say \"foo\"")))
- )
- )
- );
-}
+#[path = "test_ast.rs"]
+mod test;