Make random tests reproducible

Author: lkdvos

test/Project.toml

@@ -9,5 +9,6 @@ LinearAlgebra = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"
 Random = "9a3f8284-a2c9-5f02-9a11-845980a1fd5c"
 SafeTestsets = "1bc83da4-3b8d-516f-aca4-4fe02f6d838f"
 SparseArraysBase = "0d5efcca-f356-4864-8770-e1ed8d78f208"
+StableRNGs = "860ef19b-820b-49d6-a774-d7a799459cd3"
 Suppressor = "fd094767-a336-5f1f-9728-57cf17d0bbfb"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"

test/basics/test_linalg.jl

@@ -1,13 +1,16 @@
 using SparseArraysBase: SparseArrayDOK
 using LinearAlgebra: mul!
-using Random
+using Random: Random
+using StableRNGs: StableRNG
+
+const rng = StableRNG(123)
 
 # TODO: add this to main package
-function sprand(::Type{T}, sz::Base.Dims; p::Real=0.5) where {T}
+function sprand(rng::Random.AbstractRNG, ::Type{T}, sz::Base.Dims; p::Real=0.5) where {T}
   A = SparseArrayDOK{T}(undef, sz)
   for I in eachindex(A)
-    if rand() < p
-      A[I] = rand(T)
+    if rand(rng) < p
+      A[I] = rand(rng, T)
     end
   end
   return A
@@ -20,15 +23,15 @@ end
   szC = (szA[1], szB[2])
 
   for p in 0.0:0.25:1
-    C = sprand(T, szC; p)
-    A = sprand(T, szA; p)
-    B = sprand(T, szB; p)
+    C = sprand(rng, T, szC; p)
+    A = sprand(rng, T, szA; p)
+    B = sprand(rng, T, szB; p)
 
     check1 = mul!(Array(C), Array(A), Array(B))
     @test mul!(copy(C), A, B) ≈ check1
 
-    α = rand()
-    β = rand()
+    α = rand(rng, T)
+    β = rand(rng, T)
     check2 = mul!(Array(C), Array(A), Array(B), α, β)
     @test mul!(copy(C), A, B, α, β) ≈ check2
   end