Make Haar symbolic tests dependent on GSL presence

Author: jiahao

src/HaarSymbolic.jl

@@ -64,8 +64,6 @@ end
 data(P::Ptr{gsl_permutation}) = [convert(Int64, x)+1 for x in
     pointer_to_array(permutation_data(P), (convert(Int64, permutation_size(P)) ,))]
 
-end #_HAVE_GSL
-
 immutable UniformHaar <: ContinuousMatrixDistribution
     beta::Float64
     N::Int
@@ -275,8 +273,6 @@ end
 
 expectedtrace(N::Integer, MyQ::Symbol, X::Expr)=expectation(N, MyQ, X, true)
 
-if _HAVE_GSL
-
 #Computes the Weingarten function for permutations
 function WeingartenUnitary(N::Integer, P::Ptr{gsl_permutation})
     C = cycle_structure(P)

test/Haar.jl

@@ -1,14 +1,15 @@
+if _HAVE_GSL 
 N=5
 A=randn(N,N)
 B=randn(N,N)
 Q=UniformHaar(2, N)
 
 #Test case where there are no symbolic Haar matrices
 @test_approx_eq eval(expectation(N, :Q, :(A*B))) A*B
- 
 #Test case where there is one pair of symbolic Haar matrices
 @test_approx_eq eval(expectedtrace(N, :Q, :(A*Q*B*Q'))) trace(A)*trace(B)/N 
 
 println("Case 3")
 println("E(A*Q*B*Q'*A*Q*B*Q') = ", eval(expectation(N, :Q, :(A*Q*B*Q'*A*Q*B*Q'))))
 
+end #_HAVE_GSL