From 2ef37adc74383bda93c54e7d4c0c2bcad7ac6441 Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Wed, 22 Jul 2020 19:38:15 -0400
Subject: [PATCH] Add some more List.append tests

---
 compiler/gen/tests/gen_list.rs | 63 ++++++++++++++++++++++++++++++++++
 1 file changed, 63 insertions(+)

diff --git a/compiler/gen/tests/gen_list.rs b/compiler/gen/tests/gen_list.rs
index aa494a8154..e5d440ba89 100644
--- a/compiler/gen/tests/gen_list.rs
+++ b/compiler/gen/tests/gen_list.rs
@@ -163,6 +163,69 @@ mod gen_list {
         );
     }
 
+    fn assert_append_worked(num_elems1: i64, num_elems2: i64) {
+        let vec1: Vec<i64> = (0..num_elems1)
+            .map(|i| 12345 % (i + num_elems1 + num_elems2 + 1))
+            .collect();
+        let vec2: Vec<i64> = (0..num_elems2)
+            .map(|i| 54321 % (i + num_elems1 + num_elems2 + 1))
+            .collect();
+        let slice_str1 = format!("{:?}", vec1);
+        let slice_str2 = format!("{:?}", vec2);
+        let mut expected = vec1;
+
+        expected.extend(vec2);
+
+        let expected_slice: &[i64] = expected.as_ref();
+
+        assert_evals_to!(
+            &format!("List.append {} {}", slice_str1, slice_str2),
+            expected_slice,
+            &'static [i64]
+        );
+    }
+
+    #[test]
+    fn list_append_empty_list() {
+        assert_append_worked(0, 0);
+        assert_append_worked(1, 0);
+        assert_append_worked(2, 0);
+        assert_append_worked(3, 0);
+        assert_append_worked(4, 0);
+        assert_append_worked(7, 0);
+        assert_append_worked(8, 0);
+        assert_append_worked(9, 0);
+        assert_append_worked(25, 0);
+        assert_append_worked(150, 0);
+        assert_append_worked(0, 1);
+        assert_append_worked(0, 2);
+        assert_append_worked(0, 3);
+        assert_append_worked(0, 4);
+        assert_append_worked(0, 7);
+        assert_append_worked(0, 8);
+        assert_append_worked(0, 9);
+        assert_append_worked(0, 25);
+        assert_append_worked(0, 150);
+    }
+
+    #[test]
+    fn list_append_nonempty_lists() {
+        assert_append_worked(1, 1);
+        assert_append_worked(1, 2);
+        assert_append_worked(1, 3);
+        assert_append_worked(2, 3);
+        assert_append_worked(2, 1);
+        assert_append_worked(2, 2);
+        assert_append_worked(3, 1);
+        assert_append_worked(3, 2);
+        assert_append_worked(2, 3);
+        assert_append_worked(3, 3);
+        assert_append_worked(4, 4);
+        assert_append_worked(150, 150);
+        assert_append_worked(129, 350);
+        assert_append_worked(350, 129);
+    }
+
     #[test]
     fn empty_list_len() {
         assert_evals_to!("List.len []", 0, usize);