more test cases for the engine

Author: tonievictor

test/rexen_test.gleam

@@ -1,12 +1,30 @@
 import gleeunit
 import gleeunit/should
+import gleam/list
+import rexen
+import rexen/nfa/machine
 
 pub fn main() {
   gleeunit.main()
 }
 
-// gleeunit test functions end in `_test`
-pub fn hello_world_test() {
-  1
-  |> should.equal(1)
+pub fn compute_test() {
+  //new will not be tested because it is basically a wrapper over the shunt
+  //function that has already been tested
+  let assert Ok(nfa) = rexen.new("(a*b*)c(d|e)")
+  compute_loop(nfa, ["abcd", "abce", "aabbbcd", "aaaabbbbce", "bc", "bceeee"], [])
+  |> should.equal([True, True, True, True, False, False])
+}
+
+fn compute_loop(
+  nfa: machine.NFA,
+  input: List(String),
+  output: List(Bool),
+) -> List(Bool) {
+  case input {
+    [] -> output
+    [str, ..rest] -> {
+      compute_loop(nfa, rest, list.append(output, [rexen.compute(nfa, str)]))
+    }
+  }
 }