Add tests

Author: omus

stdlib/Test/src/Test.jl

@@ -1648,6 +1648,7 @@ julia> @testset let logi = log(im)
        end
 Test Failed at none:3
   Expression: !(iszero(real(logi)))
+   Evaluated: !(iszero(0.0))
      Context: logi = 0.0 + 1.5707963267948966im
 
 ERROR: There was an error during testing

stdlib/Test/test/runtests.jl

@@ -163,6 +163,10 @@ let fails = @testset NoThrowTestSet begin
         @test_throws r"sqrt\([Cc]omplx" sqrt(-1)
         @test_throws str->occursin("a T", str) error("a test")
         @test_throws ["BoundsError", "acquire", "1-element", "at index [2]"] [1][2]
+        # 27 - Fail - issetequal
+        a = [1, 2]
+        b = [1, 3]
+        @test issetequal(a, b)
     end
     for fail in fails
         @test fail isa Test.Fail
@@ -298,6 +302,11 @@ let fails = @testset NoThrowTestSet begin
         @test occursin(r"Message: \"BoundsError.* 1-element.*at index \[2\]", str)
     end
 
+    let str = sprint(show, fails[27])
+        @test occursin("Expression: issetequal(a, b)", str)
+        @test occursin("Evaluated: issetequal([1, 2], [1, 3])", str)
+    end
+
 end
 
 struct BadError <: Exception end