Fix Bernstein Fun (#268)

* Speed up ChebyshevDirichlet leftendpoint indexing

* fix Bernstein Fun

Author: jishnub

src/Spaces/CurveSpace.jl

@@ -44,8 +44,10 @@ spacescompatible(a::Bernstein{O,T},b::Bernstein{O,T}) where {O,T}=domainscompati
 
 setdomain(S::Bernstein{O},d::Domain) where {O}=Bernstein{O}(d)
 
-Fun(::typeof(identity), B::Bernstein{order,T}) where {order,T} =
+function Fun(::typeof(identity), B::Bernstein{order,D}) where {order,D}
+    T = eltype(domain(B))
     Fun(B,collect(-one(T):2one(T)/order:one(T)))
+end
 
 evaluate(f::AbstractVector,S::Bernstein,z) = decasteljau(f,S,tocanonical(S,z))
 

test/SpacesTest.jl

@@ -36,6 +36,10 @@ using ApproxFunBaseTest: testbandedoperator, testraggedbelowoperator,
 
         @test norm(([B;L]\[[1.,0],0])-([Dirichlet(d);L]\[[1.,0],0])) <10eps()
     end
+    @testset "Bernstein" begin
+        f = Fun(Bernstein{1}())
+        @test Fun(f, Chebyshev()) == Fun(Chebyshev())
+    end
 
     @testset "PiecewiseSpace" begin
         x = Fun(identity,UnionDomain(-1..0, 0..1))