From fe1fc9d45a1aa107d1fae27627b3ea698f774193 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 8 Jan 2022 17:18:02 -0500
Subject: pull tests out into their own file again

---
 src/parse/ast.rs      | 354 +-------------------------------------------------
 src/parse/test_ast.rs | 345 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 347 insertions(+), 352 deletions(-)
 create mode 100644 src/parse/test_ast.rs

(limited to 'src/parse')

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;
diff --git a/src/parse/test_ast.rs b/src/parse/test_ast.rs
new file mode 100644
index 0000000..18a8f89
--- /dev/null
+++ b/src/parse/test_ast.rs
@@ -0,0 +1,345 @@
+use super::*;
+
+macro_rules! c {
+    ($input_string:expr, $($pipelines:expr),*) => {
+        Commands {
+            pipelines: vec![$($pipelines),*],
+            input_string: $input_string.to_string(),
+        }
+    };
+}
+
+macro_rules! p {
+    ($input_string:expr, $($exes:expr),*) => {
+        Pipeline {
+            exes: vec![$($exes),*],
+            input_string: $input_string.to_string(),
+        }
+    };
+}
+
+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),*],
+        }
+    };
+}
+
+macro_rules! r {
+    ($from:literal, $to:expr, $dir:ident) => {
+        Redirect {
+            from: $from,
+            to: $to,
+            dir: super::super::Direction::$dir,
+        }
+    };
+}
+
+macro_rules! w {
+    ($word:literal) => {
+        Word {
+            parts: vec![WordPart::Bareword($word.to_string())],
+        }
+    };
+    ($($word:expr),*) => {
+        Word {
+            parts: vec![$($word),*],
+        }
+    }
+}
+
+macro_rules! wpv {
+    ($var:literal) => {
+        WordPart::Var($var.to_string())
+    };
+}
+
+macro_rules! wpb {
+    ($bareword:literal) => {
+        WordPart::Bareword($bareword.to_string())
+    };
+}
+
+macro_rules! wpd {
+    ($doublequoted:literal) => {
+        WordPart::DoubleQuoted($doublequoted.to_string())
+    };
+}
+
+macro_rules! wps {
+    ($singlequoted:literal) => {
+        WordPart::SingleQuoted($singlequoted.to_string())
+    };
+}
+
+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\"")))
+            )
+        )
+    );
+}
-- 
cgit v1.2.3-54-g00ecf