Test cmp for ProgressString

Author: tkf

Project.toml

@@ -11,7 +11,8 @@ UUIDs = "cf7118a7-6976-5b1a-9a39-7adc72f591a4"
 julia = "0.7, 1"
 
 [extras]
+Random = "9a3f8284-a2c9-5f02-9a11-845980a1fd5c"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
 
 [targets]
-test = ["Test"]
+test = ["Test", "Random"]

test/test_progress_record.jl

@@ -0,0 +1,19 @@
+module TestProgressRecord
+
+using ProgressLogging: Progress, ProgressString
+using Random: shuffle!
+using Test
+using UUIDs: uuid4
+
+@testset "cmp: ProgressString" begin
+    strings = Any[
+        let s = string(i)
+            rand(Bool) ? s : ProgressString(Progress(uuid4(), 0.0; name = s))
+        end
+        for i in 10:99
+    ]
+    shuffle!(strings)
+    @test string.(sort!(strings)) == string.(10:99)
+end
+
+end  # module