Update tests

tests/test_closed.diff

@@ -259,3 +259,22 @@ hello_world <- function() {
 -    #  This function should probably do something more interesting
 -    #  labels: help wanted
 }
+diff --git a/src/Swarm/Game/example.hs b/src/Swarm/Game/example.hs
+index 525e25d..ba4e68d 100644
+--- a/src/Swarm/Game/example.hs
++++ b/src/Swarm/Game/example.hs
+@@ -1,14 +0,0 @@
+--- | Standard devices that are always installed.
+---
+--- TODO: Remove standard devices
+---  In the future, make a way to build these and just start the base
+---  out with a large supply of each?
+---  labels: redesign
+-stdDeviceList =
+-  ["treads", "grabber", "solar panel", "scanner", "plasma cutter"]
+-
+-{- | Very complicated function.
+-
+-TODO: Create an issue for TODO
+--}
+-sum a b = a + b

tests/test_todo_parser.py

@@ -73,6 +73,7 @@ class NewIssueTests(unittest.TestCase):
     def test_haskell_issues(self):
         self.assertEqual(count_issues_for_file_type(self.raw_issues, 'haskell'), 2)
 
+
 class ClosedIssueTests(unittest.TestCase):
     # Check for removed TODOs across the files specified.
     def setUp(self):
@@ -131,6 +132,10 @@ class ClosedIssueTests(unittest.TestCase):
     def test_r_issues(self):
         self.assertEqual(count_issues_for_file_type(self.raw_issues, 'r'), 2)
 
+    def test_haskell_issues(self):
+        self.assertEqual(count_issues_for_file_type(self.raw_issues, 'haskell'), 2)
+
+
 class IgnorePatternTests(unittest.TestCase):
 
     def test_single_ignore(self):