nmatrix 0.0.9 → 0.1.0.rc1

data/spec/01_enum_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -37,6 +37,10 @@ describe "NMatrix enumeration for" do
         @m = @n[1..4,1..3]
       end
 
+      #after :each do
+      #  GC.start
+      #end
+
       if stype == :yale
         it "should iterate properly along each row of a slice" do
           vv = []
@@ -178,7 +182,17 @@ describe "NMatrix enumeration for" do
 
       end
 
+      if stype == :list or stype == :dense then
+        it "should correctly map to a matrix with a single element" do 
+          nm = N.new([1], [2.0], stype: stype)
+          nm.map { |e| e**2 }.should eq N.new([1], [4.0], stype: stype)
+        end
 
+        it "should correctly map to a matrix with multiple elements" do
+          nm = N.new([2], [2.0, 2.0], stype: stype)
+          nm.map { |e| e**2 }.should eq N.new([2], [4.0, 4.0], stype: stype)
+        end
+      end
     end
   end
-end
+end

data/spec/02_slice_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -34,10 +34,14 @@ describe "Slice operation" do
   [:dense, :list, :yale].each do |stype|
     context "for #{stype}" do
       before :each do
-        GC.start # don't have to do this, but it helps to make sure we've cleaned up our pointers properly.
+        #GC.start # don't have to do this, but it helps to make sure we've cleaned up our pointers properly.
         @m = create_matrix(stype)
       end
 
+      #after :each do
+      #  GC.start
+      #end
+
       it "should correctly return a row of a reference-slice" do
         @n = create_rectangular_matrix(stype)
         @m = @n[1..4,1..3]
@@ -256,6 +260,10 @@ describe "Slice operation" do
           @m[0..2,0..2].should == @m[0...3,0...3]
         end
 
+        it 'should correctly handle :* slice notation' do
+          @m[:*,0].should eq @m[0...@m.shape[0], 0]
+        end
+
         if stype == :dense
           [:byte,:int8,:int16,:int32,:int64,:float32,:float64,:rational64,:rational128].each do |left_dtype|
             [:byte,:int8,:int16,:int32,:int64,:float32,:float64,:rational64,:rational128].each do |right_dtype|

data/spec/blas_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -29,6 +29,9 @@
 require File.join(File.dirname(__FILE__), "spec_helper.rb")
 
 describe NMatrix::BLAS do
+  #after :each do
+  #  GC.start
+  #end
 
   [:rational32, :rational64, :rational128, :float32, :float64, :complex64, :complex128].each do |dtype|
     context dtype do

data/spec/elementwise_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -29,6 +29,9 @@
 require File.join(File.dirname(__FILE__), "spec_helper.rb")
 
 describe NMatrix do
+  #after :each do
+  #  GC.start
+  #end
 
   context "yale" do
     before :each do

data/spec/io_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -24,9 +24,21 @@
 #
 # Basic tests for NMatrix::IO.
 #
+require "tmpdir" # Used to avoid cluttering the repository.
+
 require "./lib/nmatrix"
 
 describe NMatrix::IO do
+  before :each do
+    @tmp_dir = Dir.mktmpdir
+    @test_out = File.join(@tmp_dir, "test-out")
+  end
+
+  after :each do
+    File.delete(@test_out) if File.file?(@test_out)
+    Dir.rmdir(@tmp_dir)
+  end
+
   it "repacks a string" do
     NMatrix::IO::Matlab.repack("hello", :miUINT8, :byte).should == "hello"
   end
@@ -83,57 +95,55 @@ describe NMatrix::IO do
 
   it "reads and writes NMatrix dense" do
     n = NMatrix.new(:dense, [4,3], [0,1,2,3,4,5,6,7,8,9,10,11], :int32)
-    n.write("test-out")
+    n.write(@test_out)
 
-    m = NMatrix.read("test-out")
+    m = NMatrix.read(@test_out)
     n.should == m
   end
 
   it "reads and writes NMatrix dense as symmetric" do
     n = NMatrix.new(:dense, 3, [0,1,2,1,3,4,2,4,5], :int16)
-    n.write("test-out", :symmetric)
+    n.write(@test_out, :symmetric)
 
-    m = NMatrix.read("test-out")
+    m = NMatrix.read(@test_out)
     n.should == m
   end
 
   it "reads and writes NMatrix dense as skew" do
     n = NMatrix.new(:dense, 3, [0,1,2,-1,3,4,-2,-4,5], :float64)
-    n.write("test-out", :skew)
+    n.write(@test_out, :skew)
 
-    m = NMatrix.read("test-out")
+    m = NMatrix.read(@test_out)
     n.should == m
   end
 
   it "reads and writes NMatrix dense as hermitian" do
     n = NMatrix.new(:dense, 3, [0,1,2,1,3,4,2,4,5], :complex64)
-    n.write("test-out", :hermitian)
+    n.write(@test_out, :hermitian)
 
-    m = NMatrix.read("test-out")
+    m = NMatrix.read(@test_out)
     n.should == m
   end
 
   it "reads and writes NMatrix dense as upper" do
     n = NMatrix.new(:dense, 3, [-1,1,2,3,4,5,6,7,8], :int32)
-    n.write("test-out", :upper)
+    n.write(@test_out, :upper)
 
     m = NMatrix.new(:dense, 3, [-1,1,2,0,4,5,0,0,8], :int32) # lower version of the same
 
-    o = NMatrix.read("test-out")
+    o = NMatrix.read(@test_out)
     o.should == m
     o.should_not == n
   end
 
   it "reads and writes NMatrix dense as lower" do
     n = NMatrix.new(:dense, 3, [-1,1,2,3,4,5,6,7,8], :int32)
-    n.write("test-out", :lower)
+    n.write(@test_out, :lower)
 
     m = NMatrix.new(:dense, 3, [-1,0,0,3,4,0,6,7,8], :int32) # lower version of the same
 
-    o = NMatrix.read("test-out")
+    o = NMatrix.read(@test_out)
     o.should == m
     o.should_not == n
   end
-
-
-end
+end

data/spec/lapack_spec.rb

@@ -8,8 +8,8 @@
 #
 # == Copyright Information
 #
-# SciRuby is Copyright (c) 2010 - 2012, Ruby Science Foundation
-# NMatrix is Copyright (c) 2012, Ruby Science Foundation
+# SciRuby is Copyright (c) 2010 - 2014, Ruby Science Foundation
+# NMatrix is Copyright (c) 2012 - 2014, John Woods and the Ruby Science Foundation
 #
 # Please see LICENSE.txt for additional copyright notices.
 #
@@ -29,6 +29,10 @@
 require File.join(File.dirname(__FILE__), "spec_helper.rb")
 
 describe NMatrix::LAPACK do
+  #after :each do
+  #  GC.start
+  #end
+
   # where integer math is allowed
   [:byte, :int8, :int16, :int32, :int64, :rational32, :rational64, :rational128, :float32, :float64, :complex64, :complex128].each do |dtype|
     context dtype do
@@ -55,7 +59,23 @@ describe NMatrix::LAPACK do
   # where integer math is not allowed
   [:rational32, :rational64, :rational128, :float32, :float64, :complex64, :complex128].each do |dtype|
     context dtype do
-      it "exposes clapack getrf" do
+
+      it "exposes clapack_gesv" do
+        a = NMatrix[[1.quo(1), 2, 3], [0,1.quo(2),4],[3,3,9]].cast(dtype: dtype)
+        b = NMatrix[[1.quo(1)],[2],[3]].cast(dtype: dtype)
+        err = case dtype
+                when :float32, :complex64
+                  1e-6
+                when :float64, :complex128
+                  1e-8
+                else
+                  1e-64
+              end
+        NMatrix::LAPACK::clapack_gesv(:row,a.shape[0],b.shape[1],a,a.shape[0],b,b.shape[0]).should be_within(err).of(NMatrix[[-1.quo(2)], [0], [1.quo(2)]].cast(dtype: dtype))
+      end
+
+
+      it "exposes clapack_getrf" do
         a = NMatrix.new(3, [4,9,2,3,5,7,8,1,6], dtype: dtype)
         NMatrix::LAPACK::clapack_getrf(:row, 3, 3, a, 3)
 
@@ -80,7 +100,7 @@ describe NMatrix::LAPACK do
         a[2,2].should be_within(err).of(360.quo(53))
       end
 
-      it "exposes clapack potrf" do
+      it "exposes clapack_potrf" do
         # first do upper
         begin
           a = NMatrix.new(:dense, 3, [25,15,-5, 0,18,0, 0,0,11], dtype)
@@ -99,7 +119,7 @@ describe NMatrix::LAPACK do
       end
 
       # Together, these calls are basically xGESV from LAPACK: http://www.netlib.org/lapack/double/dgesv.f
-      it "exposes clapack getrs" do
+      it "exposes clapack_getrs" do
         a     = NMatrix.new(3, [-2,4,-3,3,-2,1,0,-4,3], dtype: dtype)
         ipiv  = NMatrix::LAPACK::clapack_getrf(:row, 3, 3, a, 3)
         b     = NMatrix.new([3,1], [-1, 17, -9], dtype: dtype)
@@ -111,7 +131,7 @@ describe NMatrix::LAPACK do
         b[2].should == -13
       end
 
-      it "exposes clapack getri" do
+      it "exposes clapack_getri" do
         a = NMatrix.new(:dense, 3, [1,0,4,1,1,6,-3,0,-10], dtype)
         ipiv = NMatrix::LAPACK::clapack_getrf(:row, 3, 3, a, 3) # get pivot from getrf, use for getri
 
@@ -125,7 +145,7 @@ describe NMatrix::LAPACK do
         end
       end
 
-      it "exposes lapack gesdd" do
+      it "exposes lapack_gesdd" do
         if [:float32, :float64].include? dtype
           a = NMatrix.new([5,6], %w|8.79 9.93 9.83 5.45 3.16
                                     6.11 6.91 5.04 -0.27 7.98
@@ -160,6 +180,7 @@ describe NMatrix::LAPACK do
           #http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/cgesvd_ex.c.htm
           pending "Example may be wrong"
         else
+          pending "Not implemented for non-LAPACK dtypes"
           a = NMatrix.new([4,3], dtype: dtype)
         end
         err = case dtype
@@ -173,7 +194,7 @@ describe NMatrix::LAPACK do
         err = err *5e1
         begin
 
-          info = NMatrix::LAPACK::lapack_gesvd(:a, :a, a.shape[0], a.shape[1], a, a.shape[0], s, u, ldu, vt, ldvt, 500)
+          info = NMatrix::LAPACK::lapack_gesdd(:a, a.shape[0], a.shape[1], a, a.shape[0], s, u, ldu, vt, ldvt, 500)
 
         rescue NotImplementedError => e
           pending e.to_s
@@ -186,7 +207,7 @@ describe NMatrix::LAPACK do
       end
 
 
-      it "exposes lapack gesvd" do
+     it "exposes lapack_gesvd" do
         # http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/dgesvd_ex.c.htm
         if [:float32, :float64].include? dtype
           a = NMatrix.new([5,6], %w|8.79 9.93 9.83 5.45 3.16
@@ -257,6 +278,133 @@ describe NMatrix::LAPACK do
         s.transpose.should be_within(err).of(s_true.row(0))
 
       end
+ 
+      it "exposes the convenience gesvd method" do
+        # http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/dgesvd_ex.c.htm
+        if [:float32, :float64].include? dtype
+          a = NMatrix.new([5,6], %w|8.79 9.93 9.83 5.45 3.16
+                                    6.11 6.91 5.04 -0.27 7.98
+                                    -9.15 -7.93 4.86 4.85 3.01
+                                    9.57 1.64 8.83 0.74 5.80
+                                    -3.49 4.02 9.80 10.00 4.27
+                                    9.84 0.15 -8.99 -6.02 -5.31|.map(&:to_f), dtype: dtype)
+          s_true = NMatrix.new([1,5], [27.468732418221848, 22.643185009774697, 8.558388228482576, 5.985723201512133, 2.014899658715756], dtype: dtype)
+          right_true = NMatrix.new([5,6], [0.5911423764124365, 0.2631678147140568, 0.35543017386282716, 0.3142643627269275, 0.2299383153647484, 0.0, 0.39756679420242547, 0.24379902792633046, -0.22239000068544604, -0.7534661509534584, -0.36358968669749664, 0.0, 0.03347896906244727, -0.6002725806935828, -0.45083926892230763, 0.23344965724471425, -0.3054757327479317, 0.0, 0.4297069031370182, 0.23616680628112555, -0.6858628638738117, 0.3318600182003095, 0.1649276348845103, 0.0, 0.4697479215666587, -0.350891398883702, 0.38744460309967327, 0.15873555958215635, -0.5182574373535355, 0.0, -0.29335875846440357, 0.57626211913389, -0.020852917980871258, 0.3790776670601607, -0.6525516005923976, 0.0], dtype: dtype)
+          #right_true = NMatrix.new([5,6],
+          # %w|-0.59 0.26   0.36   0.31   0.23
+          #   -0.40   0.24  -0.22  -0.75  -0.36
+          #   -0.03  -0.60  -0.45   0.23  -0.31
+          #   -0.43   0.24  -0.69   0.33   0.16
+          #   -0.47  -0.35   0.39   0.16  -0.52
+          #    0.29   0.58  -0.02   0.38  -0.65|.map(&:to_f),
+          #  dtype)
+          left_true = NMatrix.new([5,5], [0.25138279272049635, 0.3968455517769292, 0.6921510074703637, 0.3661704447722309, 0.4076352386533525, 0.814836686086339, 0.3586615001880027, -0.24888801115928438, -0.3685935379446176, -0.09796256926688672, -0.2606185055842211, 0.7007682094072526, -0.22081144672043734, 0.38593848318854174, -0.49325014285102375, 0.3967237771305971, -0.4507112412166429, 0.2513211496937535, 0.4342486014366711, -0.6226840720358049, -0.21802776368654594, 0.14020994987112056, 0.5891194492399431, -0.6265282503648172, -0.4395516923423326], dtype: dtype)
+          #left_true = NMatrix.new([5,5],
+          #  %w|-0.25  -0.40  -0.69  -0.37  -0.41
+          #    0.81   0.36  -0.25  -0.37  -0.10
+          #   -0.26   0.70  -0.22   0.39  -0.49
+          #    0.40  -0.45   0.25   0.43  -0.62
+          #   -0.22   0.14   0.59  -0.63  -0.44|.map(&:to_f),
+          # dtype)
+          s   = NMatrix.new([5,1], 0, dtype: dtype)
+          u   = NMatrix.new([5,5], 0, dtype: dtype)
+          ldu = 5
+          vt  = NMatrix.new([6,6], 0, dtype: dtype)
+          ldvt= 6
+        elsif [:complex64, :complex128].include? dtype
+          #http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/cgesvd_ex.c.htm
+          pending "Example may be wrong"
+          a = NMatrix.new([4,3], [[  5.91, -5.69], [  7.09,  2.72], [  7.78, -4.06], [ -0.79, -7.21], [ -3.15, -4.08], [ -1.89,  3.27], [  4.57, -2.07], [ -3.88, -3.30], [ -4.89,  4.20], [  4.10, -6.70], [  3.28, -3.84], [  3.84,  1.19]].map {|e| Complex(*e) } , dtype: dtype)
+          s_true = NMatrix.new([3,1], [17.63, 11.61, 6.78], dtype: dtype)
+          left_true = NMatrix.new([4,4], [[-0.86, 0.0], [0.4, 0.0], [0.32, 0.0], [-0.35, 0.13], [-0.24, -0.21], [-0.63, 0.6], [0.15, 0.32], [0.61, 0.61], [-0.36, 0.1]].map {|e| Complex(*e)}, dtype: dtype)
+          right_true = NMatrix.new([4,3], [[ -0.22, 0.51], [ -0.37, -0.32], [ -0.53, 0.11], [ 0.15, 0.38], [ 0.31, 0.31], [ 0.09, -0.57], [ 0.18, -0.39], [ 0.38, -0.39], [ 0.53, 0.24], [ 0.49, 0.28], [ -0.47, -0.25], [ -0.15, 0.19]].map {|e| Complex *e} , dtype: dtype)
+
+          s   = NMatrix.new([3,1], 0, dtype: dtype)
+          u   = NMatrix.new([4,4], 0, dtype: dtype)
+          ldu = 4
+          vt  = NMatrix.new([3,3], 0, dtype: dtype)
+          ldvt= 3
+        else 
+          a = NMatrix.new([4,3], dtype: dtype)
+        end
+        err = case dtype
+              when :float32, :complex64
+                1e-6
+              when :float64, :complex128
+                1e-15
+              else
+                1e-64 # FIXME: should be 0, but be_within(0) does not work.
+              end
+        err = err *5e1
+        begin
+          u, s, vt = a.gesvd
+        rescue NotImplementedError => e
+          pending e.to_s
+        end
+        u.should be_within(err).of(left_true)
+        #FIXME: Is the next line correct?
+        vt[0...right_true.shape[0], 0...right_true.shape[1]-1].should be_within(err).of(right_true[0...right_true.shape[0],0...right_true.shape[1]-1])
+        s.transpose.should be_within(err).of(s_true.row(0))
+
+      end
+      it "exposes the convenience gesdd method" do
+        # http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/dgesvd_ex.c.htm
+        if [:float32, :float64].include? dtype
+          a = NMatrix.new([5,6], %w|8.79 9.93 9.83 5.45 3.16
+                                    6.11 6.91 5.04 -0.27 7.98
+                                    -9.15 -7.93 4.86 4.85 3.01
+                                    9.57 1.64 8.83 0.74 5.80
+                                    -3.49 4.02 9.80 10.00 4.27
+                                    9.84 0.15 -8.99 -6.02 -5.31|.map(&:to_f), dtype: dtype)
+          s_true = NMatrix.new([1,5], [27.468732418221848, 22.643185009774697, 8.558388228482576, 5.985723201512133, 2.014899658715756], dtype: dtype)
+          right_true = NMatrix.new([5,6], [0.5911423764124365, 0.2631678147140568, 0.35543017386282716, 0.3142643627269275, 0.2299383153647484, 0.0, 0.39756679420242547, 0.24379902792633046, -0.22239000068544604, -0.7534661509534584, -0.36358968669749664, 0.0, 0.03347896906244727, -0.6002725806935828, -0.45083926892230763, 0.23344965724471425, -0.3054757327479317, 0.0, 0.4297069031370182, 0.23616680628112555, -0.6858628638738117, 0.3318600182003095, 0.1649276348845103, 0.0, 0.4697479215666587, -0.350891398883702, 0.38744460309967327, 0.15873555958215635, -0.5182574373535355, 0.0, -0.29335875846440357, 0.57626211913389, -0.020852917980871258, 0.3790776670601607, -0.6525516005923976, 0.0], dtype: dtype)
+          left_true = NMatrix.new([5,5], [0.25138279272049635, 0.3968455517769292, 0.6921510074703637, 0.3661704447722309, 0.4076352386533525, 0.814836686086339, 0.3586615001880027, -0.24888801115928438, -0.3685935379446176, -0.09796256926688672, -0.2606185055842211, 0.7007682094072526, -0.22081144672043734, 0.38593848318854174, -0.49325014285102375, 0.3967237771305971, -0.4507112412166429, 0.2513211496937535, 0.4342486014366711, -0.6226840720358049, -0.21802776368654594, 0.14020994987112056, 0.5891194492399431, -0.6265282503648172, -0.4395516923423326], dtype: dtype)
+          u   = NMatrix.new([5,5], 0, dtype: dtype)
+          ldu = 5
+          vt  = NMatrix.new([6,6], 0, dtype: dtype)
+          ldvt= 6
+        elsif [:complex64, :complex128].include? dtype
+          #http://software.intel.com/sites/products/documentation/doclib/mkl_sa/11/mkl_lapack_examples/cgesvd_ex.c.htm
+          pending "Example may be wrong"
+          a = NMatrix.new([4,3], [[  5.91, -5.69], [  7.09,  2.72], [  7.78, -4.06], [ -0.79, -7.21], [ -3.15, -4.08], [ -1.89,  3.27], [  4.57, -2.07], [ -3.88, -3.30], [ -4.89,  4.20], [  4.10, -6.70], [  3.28, -3.84], [  3.84,  1.19]].map {|e| Complex(*e) } , dtype: dtype)
+          s_true = NMatrix.new([3,1], [17.63, 11.61, 6.78], dtype: dtype)
+          left_true = NMatrix.new([4,4], [[-0.86, 0.0], [0.4, 0.0], [0.32, 0.0], [-0.35, 0.13], [-0.24, -0.21], [-0.63, 0.6], [0.15, 0.32], [0.61, 0.61], [-0.36, 0.1]].map {|e| Complex(*e)}, dtype: dtype)
+          right_true = NMatrix.new([4,3], [[ -0.22, 0.51], [ -0.37, -0.32], [ -0.53, 0.11], [ 0.15, 0.38], [ 0.31, 0.31], [ 0.09, -0.57], [ 0.18, -0.39], [ 0.38, -0.39], [ 0.53, 0.24], [ 0.49, 0.28], [ -0.47, -0.25], [ -0.15, 0.19]].map {|e| Complex *e} , dtype: dtype)
+
+          s   = NMatrix.new([3,1], 0, dtype: dtype)
+          u   = NMatrix.new([4,4], 0, dtype: dtype)
+          ldu = 4
+          vt  = NMatrix.new([3,3], 0, dtype: dtype)
+          ldvt= 3
+        else 
+          a = NMatrix.new([4,3], dtype: dtype)
+        end
+        s   = NMatrix.new([5,1], 0, dtype: dtype)
+        u   = NMatrix.new([5,5], 0, dtype: dtype)
+        ldu = 5
+        vt  = NMatrix.new([6,6], 0, dtype: dtype)
+        ldvt= 6
+        err = case dtype
+              when :float32, :complex64
+                1e-6
+              when :float64, :complex128
+                1e-15
+              else
+                1e-64 # FIXME: should be 0, but be_within(0) does not work.
+              end
+        err = err *5e1
+        begin
+
+          u, s, vt = a.gesdd(500)
+
+        rescue NotImplementedError => e
+          pending e.to_s
+        end
+        u.should be_within(err).of(left_true)
+        #FIXME: Is the next line correct?
+        vt[0...right_true.shape[0], 0...right_true.shape[1]-1].should be_within(err).of(right_true[0...right_true.shape[0],0...right_true.shape[1]-1])
+        s.transpose.should be_within(err).of(s_true.row(0))
+      end
 
 
       it "exposes geev" do