carray 1.3.5 → 1.5.2

data/spec/CArray/object/s_new_spec.rb

@@ -1,31 +0,0 @@
-
-require "carray"
-
-describe "CArray.new" do
-
-  it "should return a CA_INT type carray if CA_INT is specified as data_type" do
-    ca = CArray.new(CA_INT, [2,3,4])
-    ( ca.class ).should == CArray
-    ( ca.data_type ).should == CA_INT
-  end
-
-  it "should return a CA_FIXLEN type carray if CA_FIXLEN is specified as data_type" do
-    ca = CArray.new(CA_FIXLEN, [2,3,4], :bytes=>3)
-    ( ca.class ).should == CArray
-    ( ca.data_type ).should == CA_FIXLEN
-    ( ca.bytes ).should == 3
-  end
-
-  it "should return a carray filled by 0 when data_type == CA_INT" do
-    ca = CArray.new(CA_INT, [2,3,4])
-    ( ca[0] ).should == 0
-    ( ca.all_equal?(0) ).should == true
-  end
-
-  it "should return a carray filled by string filled by 0 when data_type == CA_FIXLEN" do
-    ca = CArray.new(CA_FIXLEN, [2,3,4], :bytes=>3)
-    ( ca[0] ).should == "\0\0\0"
-    ( ca.all_equal?("\0\0\0") ).should == true
-  end
-
-end

data/spec/CArray/serialize/Serialization_spec.rb

@@ -1,89 +0,0 @@
-require "carray"
-
-describe CArray do
-
-  describe "loaded from binary format (int32 type)" do
-
-    before do
-      @original = CArray.int32(10,10) { 10 }
-      @original[5,5] = UNDEF
-      CArray.save(@original, "test.ca")
-      @it = CArray.load("test.ca")
-    end
-
-    it "should equal to original" do
-      ( @it ).should == @original
-      ( @it.has_mask? ).should == true
-    end
-
-    it "should dump string of same contents with file from which it was loaded" do 
-      ( CArray.dump(@it) ).should == File.read("test.ca")
-    end
-
-    after do
-      File.unlink("test.ca")
-    end
-
-  end
-
-  describe "loaded from binary format (object type)" do
-
-    before do
-      @original = CArray.object(10,10) { 3.times { Time.now } }
-      @original[5,5] = UNDEF
-      CArray.save(@original, "test.ca")
-      @it = CArray.load("test.ca")
-    end
-
-    it "should equal to original" do
-      ( @it ).should == @original
-      ( @it.has_mask? ).should == true
-    end
-
-    after do
-      File.unlink("test.ca")
-    end
-
-  end
-
-  describe "loaded by marshal (int32 type)" do
-    
-    before do
-      @original = CArray.int32(10,10) { 10 }
-      @original[5,5] = UNDEF
-      open("test.ca", "w") { |io| Marshal.dump(@original, io) }
-      @it = open("test.ca") { |io| Marshal.load(io) }
-    end
-
-    it "should equal to original" do
-      ( @it ).should == @original
-      ( @it.has_mask? ).should == true
-    end
-
-    after do
-      File.unlink("test.ca")
-    end
-
-  end
-
-  describe "loaded by marshal (object type)" do
-    
-    before do
-      @original = CArray.object(10,10) { 3.times { Time.now } }
-      @original[5,5] = UNDEF
-      open("test.ca", "w") { |io| Marshal.dump(@original, io) }
-      @it = open("test.ca") { |io| Marshal.load(io) }
-    end
-
-    it "should equal to original" do
-      ( @it ).should == @original
-      ( @it.has_mask? ).should == true
-    end
-
-    after do
-      File.unlink("test.ca")
-    end
-
-  end
-
-end

data/test/test_130.rb

@@ -1,23 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class Test130 < Test::Unit::TestCase
-
-  def test_float_arithmetic
-    assert_equal((CA_FLOAT([100])+1)[0], 101.0)
-  end
-  
-  def test_int64
-    assert_raise(RangeError) { CA_INT64([0xffffffffffffffff]) }
-    assert_equal(CA_INT64([0x7fffffffffffffff])[0], 
-                           0x7fffffffffffffff)
-    assert_equal(CA_INT64([0x7fffffffffffffff])+1,
-                 CA_INT64([-0x8000000000000000]))
-    assert_equal(CA_INT64([0x7fffffffffffffff, 0x7fffffffffffffff]).sum,
-                 (2*0x7fffffffffffffff).to_f)
-  end
-
-
-end

data/test/test_ALL.rb

@@ -1,51 +0,0 @@
-$:.unshift(File.dirname(__FILE__))
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-load 'test_CComplex.rb' if CArray::HAVE_COMPLEX
-#
-load 'test_CABitfield.rb'
-load 'test_CABlock.rb'
-load 'test_CAField.rb'
-load 'test_CAGrid.rb'
-load 'test_CAMapping.rb'
-load 'test_CAMmap.rb'
-load 'test_CARefer.rb'
-load 'test_CARepeat.rb'
-load 'test_CASelect.rb'
-load 'test_CAShift.rb'
-load 'test_CATranspose.rb'
-load 'test_CAWindow.rb'
-load 'test_CAWrap.rb'
-load 'test_CAVirtual.rb'
-load 'test_CArray.rb'
-load 'test_CScalar.rb'
-#
-load 'test_attribute.rb'
-load 'test_block_iterator.rb'
-load 'test_boolean.rb'
-load 'test_cast.rb'
-load 'test_class.rb'
-load 'test_complex.rb' if CArray::HAVE_COMPLEX
-load 'test_composite.rb'
-load 'test_convert.rb'
-load 'test_copy.rb'
-load 'test_element.rb'
-load 'test_extream.rb'
-load 'test_generate.rb'
-load 'test_index.rb'
-load 'test_mask.rb'
-load 'test_math.rb'
-load 'test_narray.rb' if defined?(CArray::HAVE_NARRAY)
-load 'test_order.rb'
-load 'test_random.rb'
-load 'test_ref_store.rb'
-load 'test_stat.rb'
-load 'test_struct.rb'
-load 'test_virtual.rb'
-#
-load 'test_creation.rb'
-#
-load 'test_130.rb'

data/test/test_CABitfield.rb

@@ -1,59 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCABitfield < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3) { 1 }
-    b = a.bitfield(0)
-    r = b.parent
-    assert_instance_of(CABitfield, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-  def test_basic_features
-    # ---
-    a = CArray.int(3,3)
-    b = a.bitfield(0)
-    b[] = 1
-    assert_equal(a.template{1}, a)
-    assert_equal(b.template{1}, b)
-    b[] = 0
-    assert_equal(a.template{0}, a)    
-    assert_equal(b.template{0}, b)    
-    # ---
-    a = CArray.int(3,3)
-    b = a.bitfield(0..1)
-    b[] = 3
-    assert_equal(a.template{3}, a)
-    assert_equal(b.template{3}, b)
-    
-    # ---
-    a = CArray.int(3,3)
-    b = a.bitfield(5..6)
-    b[] = 3
-    assert_equal(a.template{3 << 5}, a)
-    assert_equal(b.template{3}, b)
-    
-    # ---
-    a = CArray.int(3,3)
-    b = a.bitfield(27..28)
-    b[] = 3
-    assert_equal(a.template{3 << 27}, a)
-    assert_equal(b.template{3}, b)
-  end
-  
-  def test_out_of_index
-    # ---
-    a = CArray.int8(3)
-    assert_raise(IndexError) { a.bitfield(-1..0) }
-    assert_raise(IndexError) { a.bitfield(0..16) }
-    assert_raise(IndexError) { a.bitfield([nil,2]) }
-    assert_nothing_raised    { a.bitfield([nil,1]) }
-  end
-
-  
-end

data/test/test_CABlock.rb

@@ -1,208 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCABlock < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3)
-    b = a[0..1,0..1]
-    r = b.parent
-    t = b.root_array
-    assert_instance_of(CABlock, b)
-    assert_instance_of(CArray, r)
-    assert_equal(a, r)
-    assert_equal(a, t)
-  end
-
-  def test_block
-    a = CArray.int32(3, 3) { 1 }
-    b = CArray.int32(3) { 1 }
-
-    assert_equal(a[nil, 1], b)
-    assert_equal(a[1, nil], b)
-
-    a[nil, 1].seq!
-    b.seq!
-    assert_equal(a[nil, 1], b)
-
-    a[1, nil].seq!
-    b.seq!
-    assert_equal(a[1, nil], b)
-  end
-
-  def test_CABlock
-    a = CArray.int32(4, 4)
-
-    a.seq!
-    b = a[1..2, 1..2]
-
-    assert_instance_of(CABlock, b)
-    assert_equal(b.rank, a.rank)
-    assert_equal(b.dim, [2,2])
-    assert_equal(b.elements, 4)
-
-    c = CArray.int32(2, 2){ [[5,6],[9,10]] }
-    assert_equal(b, c)
-
-    d = a.clone
-    d[1..2, 1..2] = 1
-    b[] = 1
-    assert_equal(a, d)
-
-    a.seq!
-    assert_equal(b, c)
-  end
-
-
-  def test_s_new
-    a = CArray.int32(4, 4) { 1 }
-    b = a[0..2, 0..2]
-    assert_equal(b.data_type, CA_INT32)
-    assert_equal(b.rank, 2)
-    assert_equal(b.bytes, CArray.sizeof(CA_INT32))
-    assert_equal(b.size0, [4, 4])
-    assert_equal(b.dim, [3, 3])
-    assert_equal(b.start, [0, 0])
-    assert_equal(b.step, [1, 1])
-    assert_equal(b.count, [3, 3])
-    assert_equal(b.elements, 9)
-    assert_equal(b, CArray.int32(3,3){1})
-  end
-
-  def test_block_of_block
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[0..2, 0..2]
-    c = b[0..1, 0..1]
-
-    assert_equal(b, CArray.int32(3, 3) {
-       [
-         [0, 1, 2],
-         [4, 5, 6],
-         [8, 9, 10],
-       ]
-     })
-
-    assert_equal(c, CArray.int32(2, 2) {
-       [
-         [0, 1],
-         [4, 5],
-       ]
-     })
-  end
-
-  def test_block_of_block_set_value
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[0..2, 0..2]
-    c = b[0..1, 0..1]
-
-    a[0..1, 0..1] = 1
-
-    assert_equal(b, CArray.int32(3, 3) {
-       [
-         [1, 1, 2],
-         [1, 1, 6],
-         [8, 9, 10],
-       ]
-     })
-
-    assert_equal(c, CArray.int32(2, 2) {
-       [
-         [1, 1],
-         [1, 1],
-       ]
-     })
-
-    c[] = 2
-
-    assert_equal(b, CArray.int32(3, 3) {
-       [
-         [2, 2, 2],
-         [2, 2, 6],
-         [8, 9, 10],
-       ]
-     })
-
-    assert_equal(a[0..1, 0..1], CArray.int32(2, 2) {
-       [
-         [2, 2],
-         [2, 2],
-       ]
-     })
-  end
-
-  def test_block_of_block_downrank
-    a = CArray.new(CA_INT32, [4, 4, 4]) { 0 }
-    b = a[0..2, 0..2, 1]
-    c = b[0..1, 1]
-
-    b.seq!
-
-    assert_equal(b, a[0..2, 0..2, 1])
-    assert_equal(c, CArray.int32(2) { [1, 4] })
-
-    c[] = 1
-
-    assert_equal(a[0..1, 1, 1], CArray.int(2) {1})
-  end
-
-  def test_block_of_block_ref_address
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[0..2, 0..2]
-    c = b[1..0, 0..1]
-
-    assert_equal(c[2], 0)
-    assert_equal(c[[2]], CArray.int32(1) { [0] })
-    assert_equal(c[nil], CArray.int32(4) { [4, 5, 0, 1] })
-    assert_equal(c[1..2], CArray.int32(2) { [5, 0] })
-    assert_equal(c[[nil,2]], CArray.int32(2) { [4, 0] })
-    assert_equal(c[[1..-1,2]], CArray.int32(2) { [5, 1] })
-
-    c[nil] = 1
-    assert_equal(a[0..1,0..1], CArray.int32(2,2) { 1 })
-  end
-
-  def test_refer_of_block
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[nil, 0..2]
-    c = b.reshape(2, 6)
-#    assert_equal(b.to_a.flatten, c.to_a.flatten)
-
-    c[0, 0] = 3
-    assert_equal(b[0, 0], 3)
-    assert_equal(a[0, 0], 3)
-  end
-
-  def test_refer_of_block_cast
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[nil, 0..2]
-    c = b.reshape(2, 6)
-    assert_equal(c.float32[0, 1], 1.0)
-    assert_equal(c.float64[0, 1], 1.0)
-  end
-
-  def test_block_of_block_self_asign
-    a = CArray.new(CA_INT32, [4, 4]).seq!
-    b = a[0..2, 0..2]
-    b[0..1, 0..1] = a[0..1, 0..1]
-  end
-
-  def test_block_move
-    a = CArray.int(10, 10).seq!
-    b = a[0..2, 0..2]
-
-    assert_equal(b, CArray.int(3, 3){[[0,1,2],[10,11,12],[20,21,22]]})
-
-    b.move(1,1)
-    assert_equal(b, CArray.int(3, 3){[[11,12,13],[21,22,23],[31,32,33]]})
-
-    b.move(7,7)
-    assert_equal(b, CArray.int(3, 3){[[77,78,79],[87,88,89],[97,98,99]]})
-
-    assert_raise(ArgumentError) {
-      b.move(8,8)
-    }
-  end
-  
-end