Add yet another unit test (#59)

Author: DilumAluthge

Project.toml

@@ -1,7 +1,7 @@
 name = "CoverageTools"
 uuid = "c36e975a-824b-4404-a568-ef97ca766997"
 authors = ["Iain Dunning <iaindunning@gmail.com>"]
-version = "1.2.6"
+version = "1.2.7"
 
 [compat]
 julia = "0.7, 1"

test/runtests.jl

@@ -241,4 +241,22 @@ end # testset
     end
 end
 
+@testset "CoverageTools.jl" begin
+    @testset "clean_file" begin
+        mktempdir() do tmp_dir
+            cd(tmp_dir) do
+                source_file = joinpath(tmp_dir, "foo.jl")
+                cov_file = joinpath(tmp_dir, "foo.jl.12345.cov")
+                touch(source_file)
+                touch(cov_file)
+                @test isfile(source_file)
+                @test isfile(cov_file)
+                CoverageTools.clean_file(source_file)
+                @test isfile(source_file)
+                @test !isfile(cov_file)
+            end
+        end
+    end
+end
+
 end # withenv