From 449695dcf87d26b0d06a51ca27bbc8214338f954 Mon Sep 17 00:00:00 2001
From: Greg Brown <gmb60@cam.ac.uk>
Date: Wed, 21 Apr 2021 10:19:00 +0100
Subject: Add some comparison tests for Autochomp.

---
 autochomp/tests/compare/main.rs | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 autochomp/tests/compare/main.rs

(limited to 'autochomp/tests/compare/main.rs')

diff --git a/autochomp/tests/compare/main.rs b/autochomp/tests/compare/main.rs
new file mode 100644
index 0000000..5149881
--- /dev/null
+++ b/autochomp/tests/compare/main.rs
@@ -0,0 +1,26 @@
+use chewed::{IterWrapper, Parser};
+use chomp::{chomp::ast::{Function, NamedExpression}, nibble};
+
+fn chomp(input: &str) -> (Vec<Function>, NamedExpression) {
+    syn::parse_str::<nibble::cst::File>(&input).unwrap().convert().unwrap()
+}
+
+fn autonibble(input: &str) -> (Vec<Function>, NamedExpression) {
+    IterWrapper::new(input.chars()).parse::<autochomp::Ast>().unwrap().convert().unwrap()
+}
+
+macro_rules! compare {
+	  ($name:ident, $file:literal) => {
+		    #[test]
+        fn $name() {
+            let input = include_str!($file);
+            assert_eq!(chomp(input), autonibble(input))
+        }
+	  };
+}
+
+compare!(compare_sheep, "sheep.nb");
+compare!(compare_ratata, "ratata.nb");
+compare!(compare_regex, "regex.nb");
+compare!(compare_regex_fix, "regex_fix.nb");
+compare!(compare_nibble, "nibble_exp.nb");
-- 
cgit v1.2.3