Improves testing of ComputePackageVerificationCode() and ComputeFileC…

…hecksum()

test/runtests.jl

@@ -5,6 +5,7 @@ using Test
 using JSON
 using Dates
 using TimeZones
+using SHA
 
 @testset "Bool check" begin
     @test Bool(" True ")

test/test_checksums.jl

@@ -1,7 +1,14 @@
 @testset "checksums" begin
     verifcode= ComputePackageVerificationCode(pkgdir(SPDX), String["SPDX.spdx.json"], String[".git"])
     @test verifcode isa SpdxPkgVerificationCodeV2  # No good way to indepently verify that the calculation is correct.
+    @test issubset(["SPDX.spdx.json"], verifcode.ExcludedFiles)
 
     checksum= ComputeFileChecksum("SHA256", joinpath(pkgdir(SPDX), "Project.toml"))
-    @test checksum isa SpdxChecksumV2  # No good way to indepently verify that the calculation is correct.
+    @test checksum isa SpdxChecksumV2
+    @test checksum.Hash == open(joinpath(pkgdir(SPDX), "Project.toml")) do f 
+                                return bytes2hex(sha256(f))
+                            end
+
+    linktest_code= ComputePackageVerificationCode(joinpath(pkgdir(SPDX), "test", "test_package"))
+    @test issetequal(linktest_code.ExcludedFiles, ["dir_link", "file_link", "src/bad_link"])
 end

test/test_package/dir_link

@@ -0,0 +1 @@
+src

test/test_package/file1.txt

@@ -0,0 +1 @@
+This is a file.

test/test_package/file2.txt

@@ -0,0 +1 @@
+This is also a file

test/test_package/file_link

@@ -0,0 +1 @@
+file2.txt

test/test_package/src/bad_link

@@ -0,0 +1 @@
+../temp.txt

test/test_package/src/file3.txt

@@ -0,0 +1 @@
+This is a file as well.