lazy tests

src/func/instances/lazy.rs

@@ -102,3 +102,31 @@ impl<'a> Monad<'a> for LazyInstance {
         Box::new(|| ffa()())
     }
 }
+
+#[cfg(test)]
+mod lazy_tests {
+    use super::{test_suite, tests, LazyInstance};
+
+    type T = LazyInstance;
+
+    impl<'a> tests::Eqr<'a> for T {
+        fn eqr<A: 'a + Send + PartialEq + std::fmt::Debug>(
+            name: &'a str,
+            left: Self::F<A>,
+            right: Self::F<A>,
+        ) -> tests::R {
+            tests::eqr(name, left(), right())
+        }
+    }
+
+    impl<'a> test_suite::FunctorTestSuite<'a> for T {
+        fn sample<A: 'a + Send, F: FnMut(&'a (dyn Send + Sync + Fn(A) -> Self::F<A>))>(mut f: F) {
+            f(&|a| Box::new(|| a));
+        }
+    }
+
+    #[test]
+    fn monad_follows_laws() {
+        test_suite::monad_follows_laws::<T>().unwrap();
+    }
+}