require File.expand_path(File.join(File.dirname(__FILE__), "../spec_helper.rb"))

describe "initialization of matrix" do
  before(:all) do
    MPFR.set_default_prec(128)
    @sizes = [[1, 2], [2, 3], [8, 5], [7, 3]]
    @matrixes = @sizes.map{ |a| MPFR::Matrix.new(*a) }
  end

  it "should be same as MPFR::Matrix method" do
    @matrixes.each_with_index do |a, i|
      MPFR::Matrix(*@sizes[i]).should == a
    end
  end
  
  it "should has size which equals size of array." do
    @matrixes.each_with_index do |a, i|
      a.size.should == (@sizes[i][0] * @sizes[i][1])
    end
  end

  it "should has size of row which equals size of array." do
    @matrixes.each_with_index do |a, i|
      a.row_size.should == @sizes[i][0]
    end
  end

  it "should has size of column which equals size of array." do
    @matrixes.each_with_index do |a, i|
      a.column_size.should == @sizes[i][1]
    end
  end

  it "should have MPFR instances as elements." do
    @matrixes.each do |m|
      m.each { |a| a.should be_an_instance_of MPFR }
    end
  end
  
end

describe "argument error raises for invalid initialization argument" do
  before(:all) do
    MPFR.set_default_prec(256)
    @data = [[[1, 2, 3], [0, 0]],
             [[MPFR.new(0)], [MPFR.new(1), 3]]]
  end
  
  it "should make error for invalid array argument" do
    @data.each do |ary|
      lambda { MPFR::Matrix.new(ary) }.should raise_error ArgumentError
    end
  end
end

describe "when methods of matrix 'dup' and 'transpose' are executed" do
  before(:all) do
    MPFR.set_default_prec(256)
    @data = [[[1, 2], [3, 3]],
             [[-1, 0.8], ['1.2342', 99]],
             [[36.237582938, 7122], ['-1e7', 8237]],
             [[-2.2738, 8.23, 9.237482], [11, '8237.2374', '1239']],
             [[MPFR.new('23'), MPFR.new('123.23')], [MPFR.new(-3.2378), MPFR.new('1.2837')]]]
    @matrixes = @data.map{ |a| MPFR::Matrix.new(a) }
  end

  it "should have MPFR instances as elements." do
    @matrixes.each do |m|
      m.each { |a| a.should be_an_instance_of MPFR }
    end
  end  

  it "should create matrix which has same values as original and different object id." do
    @matrixes.each do |m|
      new = m.dup
      m.object_id.should_not == new.object_id
      m.should == new
    end
  end
  
  it "should has transposed values." do
    @matrixes.each do |m|
      id = m.object_id
      old = m.dup
      new = m.transpose
      m.transpose!
      m.should_not == old
      m.should == new
      m.object_id.should == id
      m.object_id.should_not == new.object_id
      m.column_size.should == old.row_size
      m.row_size.should == old.column_size
    end
  end
end

describe "when methods of vector 'dup' and 'transpose' are executed" do
  before(:all) do
    MPFR.set_default_prec(768)
    @data = [[1, 2, 3, 3],
             [-1, 0.8, '1.2342', 99],
             [36.237582938, 7122, '-1e7', 8237],
             [-2.2738, 8.23, 9.237482, '8237.2374', '1239'],
             [MPFR.new('23'), MPFR.new('123.23'), MPFR.new(-3.2378), MPFR.new('1.2837')]]
    @column = @data.map{ |a| MPFR::ColumnVector.new(a) }
    @row = @data.map{ |a| MPFR::RowVector.new(a) }
  end

  it "should create matrix which has same values as original and different object id." do
    (@column + @row).each do |m|
      new = m.dup
      m.object_id.should_not == new.object_id
      m.should == new
    end
  end

  it "should change row vector to column vector and make the opposite changes" do
    (@column + @row).each do |m|
      id = m.object_id
      old = m.dup
      new = m.transpose
      m.transpose!
      m.should_not == old
      m.should == new
      m.object_id.should == id
      m.object_id.should_not == new.object_id
      m.column_size.should == old.row_size
      m.row_size.should == old.column_size
    end
  end
  
end