úÎ!¶ ø     Defines the Test datatype.(c) Christopher Wells, 2016MITcwellsny@nycap.rr.comNone bRepresents the results of a single test, including if it passed or failed, and the actual output.IRepresents a single test, with a name, a command, and an expected result.The name of the Test.'The command the to be run for the Test.1The expected result of the output of the command.{Runs the command of a Test and checks to see if the output of the command is the same as the expected output of the Test.½If the result of running the command is equal to the expected result, then True will be returned. However, if the expected and actual results are not equal, then False will be returned.qThe actual output of the test is also returned, so that it can be printed out in the case where the test fails.=runTest (Test "Hello" "echo 'Hello, World!'" "Hello, World!")(True,"Hello, World!")?runTest (Test "Hello" "echo 'Goodbye, World!'" "Hello, World!")(False,"Goodbye, World!")mReturns a String showing the results of the Test. Includes the name of the Test and if it passed or failed.Blet test = Test "HelloTest" "echo 'Hello, World!'" "Hello, World!"result <- runTest testshowResults test result"HelloTest: Passed"Flet test = Test "GoodbyeTest" "echo 'Goodbye, World!'" "Hello, World!"result <- runTest testshowResults test resultM"GoodbyeTest: Failed\n Expected: Hello, World!\n Actual: Goodbye, World!"Converts JSON into Test. -Shows the contents of the values of the Test.     Runs the program.(c) Christopher Wells, 2016MITcwellsny@nycap.rr.comNone <Gets the files to be tested and runs the tests they contain. IRuns the tests contained in the given file, and prints out their results. —Prints out the results of the given test with a color based on the results. Passing tests are printed in green, and failing tests are printed in red. ˆHandles the ending of the program. Prints out the number of tests that failed, if any. Also gives an exit failure if any tests failed.         syste_0xDNbRUUARkETu4e1GWTNETest.SystemTest.TestTest.SystemTest.Main TestResultsTestnamecommandexpectedOutputrunTest showResults$fFromJSONTest $fShowTestprogMaintestFile printResults endProgram