From ad605699feb89bba938ee555436cba818b7a95a8 Mon Sep 17 00:00:00 2001
From: Lukas Pistrol <lukas@pistrol.com>
Date: Mon, 3 Oct 2022 21:34:43 +0200
Subject: [PATCH] added test case for haskell language

---
 Tests/CodeEditTextViewTests/CodeEditTextViewTests.swift | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Tests/CodeEditTextViewTests/CodeEditTextViewTests.swift b/Tests/CodeEditTextViewTests/CodeEditTextViewTests.swift
index 5d9a912ce..4b4a550da 100644
--- a/Tests/CodeEditTextViewTests/CodeEditTextViewTests.swift
+++ b/Tests/CodeEditTextViewTests/CodeEditTextViewTests.swift
@@ -125,6 +125,15 @@ final class CodeEditTextViewTests: XCTestCase {
         XCTAssertEqual(language.id, .goMod)
     }
 
+    // MARK: Haskell
+
+    func test_CodeLanguageHaskell() throws {
+        let url = URL(fileURLWithPath: "~/path/to/file.hs")
+        let language = CodeLanguage.detectLanguageFrom(url: url)
+
+        XCTAssertEqual(language.id, .haskell)
+    }
+
     // MARK: HTML
 
     func test_CodeLanguageHTML() throws {