Fix PermutedDimsArrays typo

(cherry picked from commit 6ed3bb8)
ref #17895

Author: timholy

base/permuteddimsarray.jl

@@ -17,7 +17,7 @@ immutable PermutedDimsArray{T,N,perm,iperm,AA<:AbstractArray} <: AbstractArray{T
 end
 
 function PermutedDimsArray{T,N}(data::AbstractArray{T,N}, perm)
-    length(perm) == N || throw(ArgumentError(string(p, " is not a valid permutation of dimensions 1:", N)))
+    length(perm) == N || throw(ArgumentError(string(perm, " is not a valid permutation of dimensions 1:", N)))
     iperm = invperm(perm)
     PermutedDimsArray{T,N,(perm...,),(iperm...,),typeof(data)}(data)
 end

test/arrayops.jl

@@ -446,7 +446,12 @@ s = view(a,:,[1,2,4],[1,5])
 c = convert(Array, s)
 for p in ([1,2,3], [1,3,2], [2,1,3], [2,3,1], [3,1,2], [3,2,1])
     @test permutedims(s, p) == permutedims(c, p)
+    @test Base.PermutedDimsArrays.PermutedDimsArray(s, p) == permutedims(c, p)
 end
+@test_throws ArgumentError permutedims(a, (1,1,1))
+@test_throws ArgumentError permutedims(s, (1,1,1))
+@test_throws ArgumentError Base.PermutedDimsArrays.PermutedDimsArray(a, (1,1,1))
+@test_throws ArgumentError Base.PermutedDimsArrays.PermutedDimsArray(s, (1,1,1))
 
 ## ipermutedims ##