From ddc15fd2ea11b7bb6801425db3949dd1b312e6b9 Mon Sep 17 00:00:00 2001 From: Chad Stearns Date: Mon, 24 Aug 2020 03:35:25 -0400 Subject: [PATCH] Added some tests that should work some day --- compiler/gen/tests/gen_list.rs | 35 +++++++++++++++++++++++++++++++++- 1 file changed, 34 insertions(+), 1 deletion(-) diff --git a/compiler/gen/tests/gen_list.rs b/compiler/gen/tests/gen_list.rs index 32d12f950c..4afb502eee 100644 --- a/compiler/gen/tests/gen_list.rs +++ b/compiler/gen/tests/gen_list.rs @@ -179,7 +179,40 @@ mod gen_list { &[true, true, false, true, true], &'static [bool] ); - // assert_evals_to!("List.map [] (\\a -> a)", &[], &'static [i64]); + + // assert_evals_to!( + // indoc!( + // r#" + // main = \{} -> + // nonEmpty : List Int + // nonEmpty = + // [ 1, 1, -4, 1, 2 ] + // + // greaterThanOne : Int -> Bool + // greaterThanOne i = + // i > 0 + // + // List.map nonEmpty greaterThanOne + // + // main {} + // "# + // ), + // &[true, true, false, true, true], + // &'static [bool] + // ); + + // assert_evals_to!( + // indoc!( + // r#" + // main = \{} -> + // List.map [] (\x -> x > 0) + // + // main {} + // "# + // ), + // &[], + // &'static [bool] + // ); } #[test]