carray 1.3.5 → 1.5.2

data/test/test_CAField.rb

@@ -1,40 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAField < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3)
-    b = a.field(0,CA_INT8)
-    r = b.parent
-    assert_instance_of(CAField, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-  def test_attributes
-    #
-    a = CArray.int16(3,3) { 0x1122 }
-    b = a.field(0, CA_INT8)
-    assert_equal(CA_INT8, b.data_type)
-    assert_equal([3,3], b.dim)
-  end
-
-  def test_endian
-    #
-    a = CArray.int16(3,3) { 0x1122 }
-    b = CArray.int8(3,3) { 0x11 }
-    c = CArray.int8(3,3) { 0x22 }
-    if CArray.big_endian?
-      assert_equal(b, a.field(0, CA_INT8))
-      assert_equal(c, a.field(1, CA_INT8))
-    else
-      assert_equal(b, a.field(1, CA_INT8))
-      assert_equal(c, a.field(0, CA_INT8))
-    end
-  end
-
-
-end

data/test/test_CAGrid.rb

@@ -1,76 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAGrid < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3)
-    i = CArray.int(3).seq
-    b = a[i, 0..1]
-    r = b.parent
-    assert_instance_of(CAGrid, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-  def test_basic_features
-    # ---
-    a = CArray.int(3,3).seq
-    i = CA_INT([1,2,0])
-    assert_equal(CA_INT([[3,4,5],
-                         [6,7,8],
-                         [0,1,2]]), a[i,nil])
-    assert_equal(CA_INT([[1,2,0],
-                         [4,5,3],
-                         [7,8,6]]), a[nil,i])
-    assert_equal(CA_INT([[4,5,3],
-                         [7,8,6],
-                         [1,2,0]]), a[i,i])
-    # ---
-    a = CArray.int(3,3).seq
-    i = CA_INT([-1,-2,-3])
-    assert_equal(CA_INT([[6,7,8],
-                         [3,4,5],
-                         [0,1,2]]), a[i,nil])
-    assert_equal(CA_INT([[2,1,0],
-                         [5,4,3],
-                         [8,7,6]]), a[nil,i])
-    assert_equal(CA_INT([[8,7,6],
-                         [5,4,3],
-                         [2,1,0]]), a[i,i])
-  end
-
-  def test_invalid_args
-    # ---
-    a = CArray.int(3,3).seq
-    i = CA_INT([0,1,2])
-    assert_raise(ArgumentError) { a.grid(i) }
-
-    # ---
-    a = CArray.int(3,3).seq
-    i = CA_INT([0,1,2])
-    i[0] = UNDEF
-    assert_equal(CA_INT([[3,4,5],[6,7,8]]), a.grid(i, nil))
-
-    # ---
-    a = CArray.int(3,3).seq
-    i = CA_INT([])
-    assert_equal(CArray.int(0,3), a.grid(i, nil))
-    assert_equal(CArray.int(3,0), a.grid(nil, i))
-  end
-
-  def test_out_of_index
-    # ---
-    a = CArray.int(3,3).seq
-    i1 = CA_INT([1,2,3])
-    i2 = CA_INT([-4,-3,-2])
-    assert_raise(IndexError) { a[i1,nil] }
-    assert_raise(IndexError) { a[nil,i1] }
-    assert_raise(IndexError) { a[i2,nil] }
-    assert_raise(IndexError) { a[nil,i2] }
-  end
-
-
-end

data/test/test_CAMmap.rb

@@ -1,11 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAMmap < Test::Unit::TestCase
-
-  def test_default
-  end
-
-end

data/test/test_CARefer.rb

@@ -1,94 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCARefer < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3)
-    b = a.refer(CA_INT,[9])
-    r = b.parent
-    assert_instance_of(CARefer, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-  def test_basic_features
-    # ---
-    a = CArray.int(3,2).seq!
-    r = a.reshape(2,3)
-    assert_equal(a.data_type, r.data_type)
-    assert_equal([2,3], r.dim)
-    assert_equal(CA_INT([[0,1,2],
-                         [3,4,5]]), r)
-
-    # ---
-    # less data number
-    a = CArray.int(3,2).seq!
-    r = a.reshape(2,2)
-    assert_equal(CA_INT([[0,1],
-                         [2,3]]), r)
-
-    # ---
-    # data type change (int -> float)
-    a = CArray.int(3,2).seq!
-    r = a.refer(CA_FLOAT32, [2,3])
-    rr = r.refer(CA_INT32, [3,2])
-    assert_equal(CA_FLOAT, r.data_type)
-    assert_equal(a, rr)
-  end
-
-  def test_refer_to_virtual_array
-    # ---
-    a = CArray.int(3,3).seq!
-    b = a[1..2,1..2]
-    r = b.reshape(4)
-    assert_equal(CA_INT([4,5,7,8]), r)
-
-    # ---
-    a = CArray.int(3).seq!
-    b = a[:%,3]
-    r = b.reshape(9)
-    assert_equal(CA_INT([0,0,0,1,1,1,2,2,2]), r)
-
-  end
-
-  def test_invalid_args
-    # ---
-    a = CArray.int8(3,3).seq!
-    assert_raise(RuntimeError) { a.reshape(10) } ### too large data num
-    assert_raise(RuntimeError) { a.refer(CA_INT,[9]) }
-                                                   ### larger data type bytes
-
-  end
-
-  def test_flatten
-    a = CArray.int(3,3).seq!
-    b = CArray.int(9).seq!
-
-    # ---
-    assert_equal(b, a.flatten)
-    assert_equal(b, a.flattened)
-
-    # ---
-    c = a.reverse
-    a.flattened.reverse!
-    assert_equal(c, a)
-  end
-
-  def test_refer_variant
-    a = CArray.fixlen(4, :bytes=>4) {"abcd"}
-    b = CA_FIXLEN([["ab", "cd"],
-                   ["ab", "cd"],
-                   ["ab", "cd"],
-                   ["ab", "cd"]], :bytes=>2)
-    c = CA_FIXLEN(["abcdabcd", "abcdabcd"], :bytes=>8)
-
-    # ---
-    assert_equal(b, a.refer(CA_FIXLEN, [4,2], :bytes=>2))
-    assert_equal(c, a.refer(CA_FIXLEN, [2], :bytes=>8))
-
-  end
-
-end

data/test/test_CARepeat.rb

@@ -1,66 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCARepeat < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3)
-    b = a[:%,3]
-    r = b.parent
-    assert_instance_of(CARepeat, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(true, b.read_only?)
-    assert_equal(false, b.attached?)
-    assert_equal(a, r)
-  end
-
-  def test_basic_feature
-    # ---
-    a = CArray.int(3).seq!
-    r1 = a[3,:%]
-    r2 = a[:%,3]
-    assert_equal(CA_INT([[0,1,2],
-                         [0,1,2],
-                         [0,1,2]]), r1)
-    assert_equal(CA_INT([[0,0,0],
-                         [1,1,1],
-                         [2,2,2]]), r2)
-    # ---
-    b = CArray.int(2,2).seq!
-    assert_equal(CA_INT([[[ 0, 1 ],
-                          [ 0, 1 ]],
-                         [[ 2, 3 ],
-                          [ 2, 3 ]]]), b[:%,2,:%])
-  end
-
-  def test_store
-    a = CArray.int(3).seq!
-    r1 = a[3,:%]
-    assert_raise(RuntimeError) { r1[1,1] = 1 }
-    assert_raise(RuntimeError) { r1.seq! }    
-    r2 = a[:%,3]
-    assert_raise(RuntimeError) { r1[1,1] = 1 }
-    assert_raise(RuntimeError) { r1.seq! }    
-  end
-
-  def test_mask_repeat
-    a = CArray.int(3).seq!
-    a[1] = UNDEF
-    r1 = a[3,:%]
-    x1 = r1.to_ca
-    assert_equal(3, r1.count_masked)
-    assert_equal(3, r1[nil,1].count_masked)
-    assert_equal(3, x1.count_masked)
-    assert_equal(3, x1[nil,1].count_masked)
-    
-    r2 = a[:%,3]
-    x2 = r2.to_ca
-    assert_equal(3, r2.count_masked)
-    assert_equal(3, r2[1,nil].count_masked)
-    assert_equal(3, x2.count_masked)
-    assert_equal(3, x2[1,nil].count_masked)
-  end
-
-end

data/test/test_CASelect.rb

@@ -1,23 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCASelect < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3) { 0 }
-    b = a[a.eq(0)]
-    r = b.parent
-    assert_instance_of(CASelect, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-  def test_select_to_a
-    a = CArray.int(3,3).seq!
-    s = a[a >= 4]
-    assert_equal([4, 5, 6, 7, 8], a[s].to_a)
-  end
-
-end

data/test/test_CAShift.rb

@@ -1,17 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAShift < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3)
-    b = a.shifted(1,1)
-    r = b.parent
-    assert_instance_of(CAShift, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-end

data/test/test_CAWindow.rb

@@ -1,55 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAWindow < Test::Unit::TestCase
-
-  def test_virtual_array
-    a = CArray.int(3,3).seq!
-    b = a.window(-1..1, -1..1)
-    r = b.parent
-    assert_instance_of(CAWindow, b)
-    assert_equal(true, b.virtual?)
-    assert_equal(a, r)
-  end
-
-
-  def test_basic_features
-    # ---
-    a = CArray.int(3,3).seq!
-    b = a.window(-1..1, -1..1)
-    assert_equal(CA_INT([[0,0,0],
-                         [0,0,1],
-                         [0,3,4]]), b)
-
-    # ---
-    a = CArray.int(3,3).seq!
-    b = a.window(-1..1, -1..1) { UNDEF}
-    _ = UNDEF
-    assert_equal(CA_INT([[_,_,_],
-                         [_,0,1],
-                         [_,3,4]]), b)
-  end
-
-  def test_invalid_args
-    # ---
-    a = CArray.int(3,3).seq
-    assert_raise(ArgumentError) { a.window(1) }
-    assert_raise(ArgumentError) { a.window([nil]) }
-    assert_raise(ArgumentError) { a.window(nil, [nil,2]) }
-    assert_raise(ArgumentError) { a.window(1..-1, nil) }
-  end
-
-  def test_out_of_index
-    # ---
-    a = CArray.int(3,3).seq
-    i1 = CA_INT([1,2,3])
-    i2 = CA_INT([-4,-3,-2])
-    assert_raise(IndexError) { a[i1,nil] }
-    assert_raise(IndexError) { a[nil,i1] }
-    assert_raise(IndexError) { a[i2,nil] }
-    assert_raise(IndexError) { a[nil,i2] }
-  end
-
-end

data/test/test_CAWrap.rb

@@ -1,9 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCArrayCAWrap < Test::Unit::TestCase
-  def test_default
-  end
-end

data/test/test_CComplex.rb

@@ -1,83 +0,0 @@
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCComplex < Test::Unit::TestCase
-
-  def test_new
-    c = CComplex.new(1,2)
-    assert_equal(c.real, 1)
-    assert_equal(c.imag, 2)
-    c = CComplex.new(1)
-    assert_equal(c.real, 1)
-    assert_equal(c.imag, 0)
-  end
-
-  def test_inspect
-    c = CComplex.new(1,2)
-    assert_equal(c.inspect, "1.0+2.0i")
-    c = CComplex.new(1,-2)
-    assert_equal(c.inspect, "1.0-2.0i")
-    c = CComplex.new(1)
-    assert_equal(c.inspect, "1.0+0.0i")
-    c = CComplex.new(0,2)
-    assert_equal(c.inspect, "0.0+2.0i")
-    c = CComplex.new(0,-2)
-    assert_equal(c.inspect, "0.0-2.0i")
-  end
-
-  def test_to_i
-    c = CComplex.new(23.5, 2)
-    assert_raise(NoMethodError) {
-      c.to_i
-    }
-  end
-
-  def test_conj
-    c = CComplex.new(1, 1)
-    d = CComplex.new(1, -1)
-    assert_equal(c.conj, d)
-    assert_equal(d.conj, c)
-  end
-
-  def test_arg
-    c = CComplex.new(1, 1)
-    assert_equal(c.arg, Math::PI/4)
-  end
-
-  def test_abs
-    c = CComplex.new(1, 1)
-    assert_equal(c.abs, Math::sqrt(2))
-  end
-
-  def test_plus
-    a = CComplex.new(1, 1)
-    b = CComplex.new(-1,-1)
-    assert_equal(a + b, 0)
-  end
-
-  def test_minus
-    a = CComplex.new(1, 1)
-    assert_equal(a - a, 0)
-  end
-
-  def test_asterisk
-    a = CComplex.new(1, 1)
-    b = CComplex.new(1, -1)
-    assert_equal(a * b, 2)
-  end
-
-  def test_slash
-    a = CComplex.new(1, 1)
-    b = CComplex.new(1, -1)
-    assert_equal(a / b, CComplex.new(0,1))
-  end
-
-  def test_star2
-    a = CComplex.new(1, 1)
-    b = CComplex.new(1, -1)
-    # assert_equal(a ** 2, 2*CComplex.new(0,1))
-  end
-
-end