carray 1.4.0 → 1.5.5

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

data/test/test_CScalar.rb

@@ -1,91 +0,0 @@
-#
-# * scalar creation
-# * scalar?
-#
-#
-#
-
-$:.unshift("../lib", "..")
-
-require 'test/unit'
-require 'carray'
-
-class TestCScalar < Test::Unit::TestCase
-
-  def test_s_new
-    a = CScalar.int32 { 1 }
-    assert_equal(true, a.scalar?)
-    assert_equal(CA_INT32, a.data_type)
-    assert_equal(1, a.rank)
-    assert_equal(CArray.sizeof(CA_INT32), a.bytes)
-    assert_equal([1], a.dim)
-    assert_equal(1, a.elements)
-    assert_equal(CA_INT32(1), a)
-  end
-
-  def test_ref_scalar
-    a = CScalar.int32 { 0 }
-    assert_equal(true, a.scalar?)
-    assert_equal(true, a[].scalar?)
-    assert_equal(true, a.refer(CA_UINT32).scalar?)
-    assert_equal(true, a.fake(CA_UINT32).scalar?)
-    assert_equal(true, a.field(0,CA_UINT32).scalar?)
-    assert_equal(true, a[a].scalar?)
-    assert_equal(true, a[a.eq(0)].scalar?)
-    assert_equal(true, a[a.eq(1)].scalar?) 
-
-    assert_equal(false, a[nil].scalar?)
-  end
-
-  def test_scalar_operation
-    a = CScalar.int32 { 1 }
-    b = CScalar.int32 { 2 }
-    assert_instance_of(CScalar, -a)
-
-    assert_instance_of(CScalar, a.add(b))
-    assert_instance_of(CScalar, a + b)
-    assert_instance_of(CScalar, a < b)
-
-    assert_instance_of(CScalar, a.add(1))
-    assert_instance_of(CScalar, a + 1)
-    assert_instance_of(CScalar, a < 1)
-  end
-
-  def test_scalar_arith
-    a = CScalar.int32 {1}
-
-    a[] = 1
-    a = a + 1
-    assert_equal(2, a[0])
-
-    a[] = 1
-    a = 1 + a
-    assert_equal(2, a[0])
-
-    a[] = 1
-    a = a - 1
-    assert_equal(0, a[0])
-
-    a[] = 1
-    a = 1 - a
-    assert_equal(0, a[0])
-
-    a[] = 1
-    a = 2*a
-    assert_equal(2, a[0])
-
-    a[] = 1
-    a = a*2
-    assert_equal(2, a[0])
-
-    a[] = 4
-    a = a/2
-    assert_equal(2, a[0])
-
-    a[] = 2
-    a = 4/a
-    assert_equal(2, a[0])
-
-  end
-
-end