1
1
using Test, LinearAlgebra, SpecialFunctions
2
2
using Statistics: mean
3
+ using SparseArrays: nnz
3
4
@everywhere using SparseArrays: sprandn
4
5
5
6
@testset " test distribute and other constructors" begin
@@ -713,35 +714,35 @@ check_leaks()
713
714
@testset " test mapslices" begin
714
715
A = randn (5 ,5 ,5 )
715
716
D = distribute (A, procs = workers (), dist = [1 , 1 , min (nworkers (), 5 )])
716
- @test mapslices (svdvals, D, (1 ,2 )) ≈ mapslices (svdvals, A, (1 ,2 ))
717
- @test mapslices (svdvals, D, (1 ,3 )) ≈ mapslices (svdvals, A, (1 ,3 ))
718
- @test mapslices (svdvals, D, (2 ,3 )) ≈ mapslices (svdvals, A, (2 ,3 ))
719
- @test mapslices (sort, D, (1 ,)) ≈ mapslices (sort, A, (1 ,))
720
- @test mapslices (sort, D, (2 ,)) ≈ mapslices (sort, A, (2 ,))
721
- @test mapslices (sort, D, (3 ,)) ≈ mapslices (sort, A, (3 ,))
717
+ @test mapslices (svdvals, D, dims = (1 ,2 )) ≈ mapslices (svdvals, A, dims = (1 ,2 ))
718
+ @test mapslices (svdvals, D, dims = (1 ,3 )) ≈ mapslices (svdvals, A, dims = (1 ,3 ))
719
+ @test mapslices (svdvals, D, dims = (2 ,3 )) ≈ mapslices (svdvals, A, dims = (2 ,3 ))
720
+ @test mapslices (sort, D, dims = (1 ,)) ≈ mapslices (sort, A, dims = (1 ,))
721
+ @test mapslices (sort, D, dims = (2 ,)) ≈ mapslices (sort, A, dims = (2 ,))
722
+ @test mapslices (sort, D, dims = (3 ,)) ≈ mapslices (sort, A, dims = (3 ,))
722
723
723
724
# issue #3613
724
- B = mapslices (sum, dones (Float64, (2 ,3 ,4 ), workers (), [1 ,1 ,min (nworkers (),4 )]), [1 ,2 ])
725
+ B = mapslices (sum, dones (Float64, (2 ,3 ,4 ), workers (), [1 ,1 ,min (nworkers (),4 )]), dims = [1 ,2 ])
725
726
@test size (B) == (1 ,1 ,4 )
726
727
@test all (B.== 6 )
727
728
728
729
# issue #5141
729
- C1 = mapslices (x-> maximum (- x), D, [])
730
+ C1 = mapslices (x-> maximum (- x), D, dims = [])
730
731
@test C1 == - D
731
732
732
733
# issue #5177
733
734
c = dones (Float64, (2 ,3 ,4 ,5 ), workers (), [1 ,1 ,1 ,min (nworkers (),5 )])
734
- m1 = mapslices (x-> ones (2 ,3 ), c, [1 ,2 ])
735
- m2 = mapslices (x-> ones (2 ,4 ), c, [1 ,3 ])
736
- m3 = mapslices (x-> ones (3 ,4 ), c, [2 ,3 ])
735
+ m1 = mapslices (x-> ones (2 ,3 ), c, dims = [1 ,2 ])
736
+ m2 = mapslices (x-> ones (2 ,4 ), c, dims = [1 ,3 ])
737
+ m3 = mapslices (x-> ones (3 ,4 ), c, dims = [2 ,3 ])
737
738
@test size (m1) == size (m2) == size (m3) == size (c)
738
739
739
- n1 = mapslices (x-> ones (6 ), c, [1 ,2 ])
740
- n2 = mapslices (x-> ones (6 ), c, [1 ,3 ])
741
- n3 = mapslices (x-> ones (6 ), c, [2 ,3 ])
742
- n1a = mapslices (x-> ones (1 ,6 ), c, [1 ,2 ])
743
- n2a = mapslices (x-> ones (1 ,6 ), c, [1 ,3 ])
744
- n3a = mapslices (x-> ones (1 ,6 ), c, [2 ,3 ])
740
+ n1 = mapslices (x-> ones (6 ), c, dims = [1 ,2 ])
741
+ n2 = mapslices (x-> ones (6 ), c, dims = [1 ,3 ])
742
+ n3 = mapslices (x-> ones (6 ), c, dims = [2 ,3 ])
743
+ n1a = mapslices (x-> ones (1 ,6 ), c, dims = [1 ,2 ])
744
+ n2a = mapslices (x-> ones (1 ,6 ), c, dims = [1 ,3 ])
745
+ n3a = mapslices (x-> ones (1 ,6 ), c, dims = [2 ,3 ])
745
746
@test (size (n1a) == (1 ,6 ,4 ,5 ) && size (n2a) == (1 ,3 ,6 ,5 ) && size (n3a) == (2 ,1 ,6 ,5 ))
746
747
@test (size (n1) == (6 ,1 ,4 ,5 ) && size (n2) == (6 ,3 ,1 ,5 ) && size (n3) == (2 ,6 ,1 ,5 ))
747
748
close (D)
@@ -757,22 +758,22 @@ check_leaks()
757
758
c = drand (20 ,20 )
758
759
d = convert (Array, c)
759
760
760
- @testset " $f " for f in (:+ , :- , :.+ , : .- , : . * , :. / , :. % )
761
+ @testset " $f " for f in (:+ , :- , :* , :/ , :% )
761
762
x = rand ()
762
- @test @eval ($ f)($ a, $ x) == ($ f)($ b, $ x)
763
- @test @eval ($ f)($ x, $ a) == ($ f)($ x, $ b)
764
- @test @eval ($ f)($ a, $ c) == ($ f)($ b, $ d)
763
+ @test @eval ($ f). ($ a, $ x) == ($ f). ($ b, $ x)
764
+ @test @eval ($ f). ($ x, $ a) == ($ f). ($ x, $ b)
765
+ @test @eval ($ f). ($ a, $ c) == ($ f). ($ b, $ d)
765
766
end
766
767
767
768
close (a)
768
769
close (c)
769
770
770
771
a = dones (Int, 20 , 20 )
771
772
b = convert (Array, a)
772
- @testset " $f " for f in (:. << , :. >> )
773
- @test @eval ($ f)($ a, 2 ) == ($ f)($ b, 2 )
774
- @test @eval ($ f)(2 , $ a) == ($ f)(2 , $ b)
775
- @test @eval ($ f)($ a, $ a) == ($ f)($ b, $ b)
773
+ @testset " $f " for f in (:<< , :>> )
774
+ @test @eval ($ f). ($ a, 2 ) == ($ f). ($ b, 2 )
775
+ @test @eval ($ f). (2 , $ a) == ($ f). (2 , $ b)
776
+ @test @eval ($ f). ($ a, $ a) == ($ f). ($ b, $ b)
776
777
end
777
778
778
779
@testset " $f " for f in (:rem ,)
@@ -792,7 +793,7 @@ check_leaks()
792
793
nrows = 20 * nwrkrs
793
794
ncols = 10 * nwrkrs
794
795
a = drand ((nrows,ncols), wrkrs, (1 , nwrkrs))
795
- m = mean (a, 1 )
796
+ m = mean (a, dims = 1 )
796
797
c = a .- m
797
798
d = convert (Array, a) .- convert (Array, m)
798
799
@test c == d
@@ -854,7 +855,7 @@ check_leaks()
854
855
R[:, i] = convert (Array, A)[:, :, i]* convert (Array, B)[:, i]
855
856
end
856
857
@test convert (Array, ppeval (* , A, B)) ≈ R
857
- @test sum (ppeval (eigvals, A)) ≈ sum (ppeval (eigvals, A, eye ( 10 , 10 )))
858
+ @test sum (ppeval (eigvals, A)) ≈ sum (ppeval (eigvals, A, Matrix {Float64} (I, 10 ,10 )))
858
859
close (A)
859
860
close (B)
860
861
d_closeall () # close the temporaries created above
887
888
d_closeall () # close the temporaries created above
888
889
end
889
890
890
- @testset " sort, T = $T " for i in 0 : 6 , T in [Int, Float64]
891
+ @testset " sort, T = $T , 10^ $i elements " for i in 0 : 6 , T in [Int, Float64]
891
892
d = DistributedArrays. drand (T, 10 ^ i)
892
893
@testset " sample = $sample " for sample in Any[true , false , (minimum (d),maximum (d)), rand (T, 10 ^ i> 512 ? 512 : 10 ^ i)]
893
894
d2 = DistributedArrays. sort (d; sample= sample)
0 commit comments