From 2c0948f69b0923d1bcc0018d2c69f9d9939c227c Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Sun, 6 Feb 2022 08:20:25 -0500
Subject: [PATCH] Test Package-Config parse error in test_load

---
 compiler/load/tests/test_load.rs | 43 ++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/compiler/load/tests/test_load.rs b/compiler/load/tests/test_load.rs
index 8f0144df4d..4634f65d75 100644
--- a/compiler/load/tests/test_load.rs
+++ b/compiler/load/tests/test_load.rs
@@ -605,4 +605,47 @@ mod test_load {
             Ok(_) => unreachable!("we expect failure here"),
         }
     }
+
+    #[test]
+    fn platform_parse_error() {
+        let modules = vec![
+            (
+                "platform/Package-Config.roc",
+                indoc!(
+                    r#"
+                        platform "examples/hello-world"
+                            requires {} { main : Str }
+                            exposes []
+                            packages {}
+                            imports []
+                            provides [ mainForHost ]
+                            blah 1 2 3 # causing a parse error on purpose
+
+                        mainForHost : Str
+                    "#
+                ),
+            ),
+            (
+                "Main",
+                indoc!(
+                    r#"
+                        app "hello-world"
+                            packages { pf: "platform" }
+                            imports []
+                            provides [ main ] to pf
+
+                        main = "Hello, World!\n"
+                    "#
+                ),
+            ),
+        ];
+
+        match multiple_modules(modules) {
+            Err(report) => {
+                assert!(report.contains("NOT END OF FILE"));
+                assert!(report.contains("blah 1 2 3 # causing a parse error on purpose"));
+            }
+            Ok(_) => unreachable!("we expect failure here"),
+        }
+    }
 }