Add more tests for eigs

Fix path for test_utf8.j

test/Makefile

@@ -1,3 +1,5 @@
+testall: test test-utf8 test-perf
+
 unittests:
 	../julia unittests.j
 
@@ -10,5 +12,3 @@ test-utf8:
 
 test-perf:
 	../julia perf.j
-
-testall: test test-utf8 test-perf

test/test_utf8.j

@@ -1,5 +1,5 @@
-str1 = CharString(read(open("test/unicode/UTF-32LE.txt"), Char, 1112065)[2:]);
-str2 = UTF8String(read(open("test/unicode/UTF-8.txt"), Uint8, 4382595)[4:]);
+str1 = CharString(read(open("unicode/UTF-32LE.txt"), Char, 1112065)[2:]);
+str2 = UTF8String(read(open("unicode/UTF-8.txt"), Uint8, 4382595)[4:]);
 @assert str1 == str2
 
 str1 = "∀ ε > 0, ∃ δ > 0: |x-y| < δ ⇒ |f(x)-f(y)| < ε"

test/tests.j

@@ -771,6 +771,13 @@ x = triu(a) \ b
 x = tril(a) \ b
 @assert sum(tril(a)*x-b) < 1e-8
 
+# arpack
+(d,v) = eigs(asym, 3)
+@assert sum(asym*v[:,1]-d[1,1]*v[:,1]) < 1e-8
+
+(d,v) = eigs(a,3)
+@assert abs(sum(a*v[:,2]-d[2,2]*v[:,2])) < 1e-8
+
 # hash table
 h = HashTable()
 for i=1:10000
@@ -814,6 +821,3 @@ end
 a = rand(8) + im*rand(8)
 @assert norm((1/length(a))*ifft(fft(a)) - a) < 1e-8
 
-# arpack
-(d,v) = eigs(asym, 3)
-@assert sum(asym*v[:,1]-d[1]*v[:,1]) < 1e-8

test/unittests.j

@@ -189,9 +189,8 @@ a = rand(n,n)
 @assert sum(l[p,:]*u - a) < 1e-8
 
 # arpack
-asym = a+a'
-(d,v) = eigs(asym, 3)
-@assert sum(asym*v[:,1]-d[1]*v[:,1]) < 1e-8
+(d,v) = eigs(a, 3)
+@assert abs(sum(a*v[:,1]-d[1,1]*v[:,1])) < 1e-8
 
 # hash table
 h = HashTable()