show for constant array space (#324)

* show for constant array space

* fix test

Author: jishnub

src/show.jl

@@ -10,14 +10,10 @@ function show(io::IO, f::Fun)
     print(io,")")
 end
 
-function show(io::IO,f::Fun{<:ConstantSpace})
-    print(io, only(coefficients(f)))
+function show(io::IO,f::Fun{<:Union{ConstantSpace, ArraySpace{<:ConstantSpace}}})
     d = domain(f)
-    if d isa AnyDomain
-        print(io, " anywhere")
-    else
-        print(io, " on ", d)
-    end
+    print(io, f(d isa AnyDomain ? 0.0 : leftendpoint(d)))
+    print(io, d isa AnyDomain ? " anywhere" : " on " * string(d))
 end
 
 ## MultivariateFun

test/show.jl

@@ -44,11 +44,14 @@
 		@test contains(s, repr(coefficients(f)))
 
 		f = Fun(ConstantSpace(0..1), [2])
-		@test contains(repr(f), repr(coefficient(f, 1)))
+		@test contains(repr(f), repr(f(0)))
 		@test contains(repr(f), repr(domain(f)))
 
 		f = Fun(ConstantSpace(), [2])
-		@test contains(repr(f), repr(coefficient(f, 1)))
+		@test contains(repr(f), repr(f(0)))
+
+		f = Fun(ApproxFunBase.ArraySpace([ConstantSpace(0..1)]), [3])
+		@test contains(repr(f), repr(f(0)))
 	end
 	@testset "Operator" begin
 		@testset "QuotientSpace" begin