From 64fd2d7f5093b36fbc5ed1807a127a5232f5a907 Mon Sep 17 00:00:00 2001
From: Mark Farrell <markfarr2011@gmail.com>
Date: Sun, 31 May 2020 19:04:07 +0000
Subject: [PATCH] RESOLVE #17 (/markfarrell/3tier/issues/17)

---
 test/Main.purs | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/test/Main.purs b/test/Main.purs
index 90b7389..648b176 100644
--- a/test/Main.purs
+++ b/test/Main.purs
@@ -34,7 +34,7 @@ import Test.Text.Parsing.Linux.Audit  as L
 {-- todo: issue data type --}
 data IssueCategory = DependenciesFFI | ParsingValidation | RisksAvailability
 
-data Status = Tracked | Resolved | Pending
+data Status = Tracked | Pending | Expired | Complete
 
 data Priority = None | Low | Medium | High | Top
 
@@ -55,7 +55,7 @@ main = void $ launchAff $ do
   _ <- render (issue Tracked Top ParsingValidation 18)
   _ <- L.suite
   {-- PARSING/VALIDATION --}
-  _ <- render (issue Pending High ParsingValidation 5)
+  _ <- render (issue Expired High ParsingValidation 5)
   _ <- Alert.suite
   _ <- Audit.suite
   _ <- Traffic.suite
@@ -65,8 +65,9 @@ main = void $ launchAff $ do
   {-- PARSING/VALIDATION --}
   _ <- render (issue Tracked Medium ParsingValidation 16)
   {-- PARSING/VALIDATION --}
-  _ <- render (issue Pending Medium ParsingValidation 17)
+  _ <- render (issue Complete Medium ParsingValidation 17)
   _ <- Flow.suite
+  {-- PARSING/VALIDATION --}
   _ <- NetFlowv9.suite
   {-- PARSING/VALIDATION --}
   _ <- render (issue Tracked High ParsingValidation 19)
@@ -83,9 +84,10 @@ main = void $ launchAff $ do
       Low    -> bold $ fgGreen   "LOW   "
       None   -> bold $ fgWhite   "NONE  "
     status        = \x -> case x of 
-      Tracked  -> bold $ fgYellow    "TRACKED  "
-      Pending  -> bold $ fgGreen     "PENDING  "
-      Resolved -> bold $ fgWhite     "RESOLVED "
+      Tracked  -> bold $ fgYellow  "ASSIGNED "
+      Pending  -> bold $ fgGreen   "ASSIGNED "
+      Expired  -> bold $ fgMagenta "RESOLVED "
+      Complete -> bold $ fgGreen   "RESOLVED "
     issueCategory = \x -> case x of
       DependenciesFFI   -> bold $ fgWhite "DEPENDENCIES/FFI  "
       ParsingValidation -> bold $ fgWhite "PARSING/VALIDATION"