Add passing tests for builder

Cargo.lock

@@ -235,6 +235,13 @@ dependencies = [
  "unicode-ident",
 ]
 
+[[package]]
+name = "program_builder"
+version = "0.1.0"
+dependencies = [
+ "uplc",
+]
+
 [[package]]
 name = "quote"
 version = "1.0.18"

Cargo.toml

@@ -1,2 +1,2 @@
 [workspace]
-members = ["crates/cli", "crates/flat", "crates/uplc"]
+members = ["crates/cli", "crates/flat", "crates/uplc", "crates/program_builder"]

crates/program_builder/Cargo.toml

@@ -0,0 +1,10 @@
+[package]
+name = "program_builder"
+version = "0.1.0"
+edition = "2021"
+
+# See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html
+
+[dependencies]
+# 1st party
+uplc = { path = '../uplc', version = "0.0.3" }

crates/program_builder/src/lib.rs

@@ -0,0 +1,32 @@
+use uplc::ast::{Constant, DeBruijn, Name, Program, Term};
+
+#[derive(Default)]
+pub struct Builder {
+    // version: (usize, usize, usize),
+}
+
+impl Builder {
+    pub fn build_named(&self) -> Program<Name> {
+        Program {
+            version: (11, 22, 33),
+            term: Term::Constant(Constant::Integer(11)),
+        }
+    }
+}
+
+#[cfg(test)]
+mod tests {
+    use crate::Builder;
+    use uplc::parser;
+
+    #[test]
+    fn it_works() {
+        let code = r"(program
+                           11.22.33
+                           (con integer 11)
+                         )";
+        let expected = parser::program(code).unwrap();
+        let actual = Builder::default().build_named();
+        assert_eq!(expected, actual);
+    }
+}