srand -> seed!

Author: mohamed82008

test/runtests.jl

@@ -3,6 +3,12 @@ using Compat.SparseArrays, Compat.DelimitedFiles, Compat.Random
 using IterativeSolvers, FileIO, AlgebraicMultigrid
 import AlgebraicMultigrid: Pinv, Classical
 
+if VERSION < v"0.7-"
+    const seed! = srand
+else
+    using Random: seed!
+end
+
 include("sa_tests.jl")
 
 @testset "AlgebraicMultigrid Tests" begin
@@ -33,7 +39,7 @@ end
 # Ruge-Stuben splitting
 S = poisson(7)
 @test RS()(S) == [0, 1, 0, 1, 0, 1, 0]
-srand(0)
+seed!(0)
 S = sprand(10,10,0.1); S = S + S'
 @test RS()(S) ==  [0, 1, 1, 0, 0, 0, 0, 0, 1, 1]
 

test/sa_tests.jl

@@ -42,7 +42,7 @@ function generate_matrices()
     cases = []
 
     # Random matrices
-    srand(0)
+    seed!(0)
     for T in (Float32, Float64)
 
         for s in [2, 3, 5]
@@ -189,7 +189,7 @@ end
 function test_approximate_spectral_radius()
 
     cases = []
-    srand(0)
+    seed!(0)
 
     push!(cases, [2. 0.
                   0. 1.])