Add test for colorful output

Author: giordano

test/runtests.jl

@@ -230,4 +230,31 @@ end
     @test contains(str, "SUCCESS")
 end
 
+# Issue <https://github.com/JuliaTesting/ParallelTestRunner.jl/issues/69>.
+@testset "Colorful output" begin
+    testsuite = Dict(
+        "color" => quote
+            printstyled("Roses Are Red"; color=:red)
+        end
+    )
+    io = IOBuffer()
+    ioc = IOContext(io, :color=>true)
+    runtests(ParallelTestRunner, String[]; testsuite, stdout=ioc, stderr=ioc)
+    str = String(take!(io))
+    @test contains(str, "\e[31mRoses Are Red\e[39m")
+    @test contains(str, "SUCCESS")
+
+    testsuite = Dict(
+        "no color" => quote
+            printstyled("Violets are blue"; color=:blue)
+        end
+    )
+    io = IOBuffer()
+    runtests(ParallelTestRunner, String[]; testsuite, stdout=io, stderr=io)
+    str = String(take!(io))
+    @test contains(str, "Violets are blue")
+    @test !contains(str, "\e[39m")
+    @test contains(str, "SUCCESS")
+end
+
 end