carray 1.1.4 → 1.1.5

data/test/test_CAMapping.rb

@@ -0,0 +1,106 @@
+$:.unshift("../lib", "..")
+
+require 'test/unit'
+require 'carray'
+
+class TestCArrayCAMapping < Test::Unit::TestCase
+
+  def test_virtual_array
+    a = CArray.int(3,3)
+    idx = CArray.int(3,3).seq!
+    b = a[idx]
+    r = b.parent
+    assert_instance_of(CAMapping, b)
+    assert_equal(true, b.virtual?)
+    assert_equal(a, r)
+  end
+
+  def test_basic_features
+    # ---
+    a   = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { 4 }
+    assert_equal(CA_INT([[4,4,4],
+                         [4,4,4],
+                         [4,4,4]]), a[idx])
+    # ---
+    a   = CArray.int(3,3).seq!
+    idx = CArray.int(3,3).seq!.reverse!
+    assert_equal(CA_INT([[8,7,6],
+                         [5,4,3],
+                         [2,1,0]]), a[idx])
+    a[idx].seq!
+    assert_equal(CA_INT([[8,7,6],
+                         [5,4,3],
+                         [2,1,0]]), a)
+  end
+
+  def test_invalid_args
+    # ---
+    a   = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { 4 }
+    idx[1,1] = UNDEF
+    assert_raise(ArgumentError) { a[idx] }
+  end
+
+  def test_out_of_range
+    # ---
+    a = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { 9 }
+    assert_raise(IndexError) { a[idx] }
+
+    # ---
+    a = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { -1 }
+    assert_equal(CA_INT([[8,8,8],
+                         [8,8,8],
+                         [8,8,8]]), a[idx])
+  end
+
+  def test_mask
+    _ = UNDEF
+    # ---
+    a = CArray.int(3,3).seq!
+    idx = CArray.int(3,3).seq!
+    a[1,1] = UNDEF
+    assert_equal(CA_INT([[0,1,2],
+                         [3,_,5],
+                         [6,7,8]]), a[idx])
+    a[idx][1,1] = -1
+    assert_equal(CA_INT([[0,1,2],
+                         [3,-1,5],
+                         [6,7,8]]), a)
+  end
+
+  def test_fill
+    _ = UNDEF
+    # ---
+    a = CArray.int(3,3).seq!
+    idx = CArray.int(3,3).seq!
+    a[idx] = 9
+    assert_equal(CA_INT([[9,9,9],
+                         [9,9,9],
+                         [9,9,9]]), a)
+    a[idx] = UNDEF
+    assert_equal(CA_INT([[_,_,_],
+                         [_,_,_],
+                         [_,_,_]]), a)
+  end
+
+  def test_sync
+    # ---
+    a   = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { 4 }
+    a[idx] = -1                     ### not recomended usage
+    assert_equal(CA_INT([[0,1,2],
+                         [3,-1,5],
+                         [6,7,8]]), a)
+    # ---
+    a   = CArray.int(3,3).seq!
+    idx = CArray.int(3,3) { 4 }
+    a[idx].seq!                     ### not recomended usage
+    assert_equal(CA_INT([[0,1,2],
+                         [3,8,5],
+                         [6,7,8]]), a)
+  end
+
+end

data/test/test_CAMmap.rb

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

data/test/test_CARefer.rb

@@ -0,0 +1,94 @@
+$:.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

@@ -0,0 +1,66 @@
+$:.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

@@ -0,0 +1,23 @@
+$:.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

@@ -0,0 +1,17 @@
+$:.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_CATranspose.rb

@@ -0,0 +1,61 @@
+$:.unshift("../lib", "..")
+
+require 'test/unit'
+require 'carray'
+
+class TestCArrayCATranspose < Test::Unit::TestCase
+
+  def test_virtual_array
+    a = CArray.int(3,3)
+    b = a.transposed
+    r = b.parent
+    assert_instance_of(CATranspose, b)
+    assert_equal(true, b.virtual?)
+    assert_equal(a, r)
+  end
+
+  def test_basic_feature
+    # ---
+    a = CArray.int(3,3).seq!
+    t = a.transposed
+    assert_equal(CA_INT([[0,3,6],
+                         [1,4,7],
+                         [2,5,8]]), t)
+
+    # ---
+    a = CArray.int(2,2,2).seq!
+    t1 = a.transposed(0,1,2)
+    t2 = a.transposed(0,2,1) # 1 <-> 2
+    t3 = a.transposed(2,1,0) # 0 <-> 2
+    t4 = a.transposed(1,0,2) # 0 <-> 1
+    assert_equal(CA_INT([[[0,1],
+                          [2,3]],
+                         [[4,5],
+                          [6,7]]]), t1)
+    assert_equal(CA_INT([[[0,2],
+                          [1,3]],
+                         [[4,6],
+                          [5,7]]]), t2)
+    assert_equal(CA_INT([[[0,4],
+                          [2,6]],
+                         [[1,5],
+                          [3,7]]]), t3)
+    assert_equal(CA_INT([[[0,1],
+                          [4,5]],
+                         [[2,3],
+                          [6,7]]]), t4)
+
+    # ---
+    a = CArray.int(2,2,2).seq!
+
+    x1 = a.transposed(1,2,0) # 0 -> 2, 1 -> 0, 2 -> 1
+    y1 = a.transposed(2,1,0).transposed(1,0,2) # 1 <-> 2; 0 <-> 1
+    assert_equal(y1, x1)
+
+    x2 = a.transposed(2,0,1) # 0 -> 1, 1 -> 2, 2 -> 0
+    y2 = a.transposed(2,1,0).transposed(0,2,1) # 0 <-> 2; 1 <-> 2
+    assert_equal(y2, x2)
+
+  end
+
+end

data/test/test_CAVirtual.rb

@@ -0,0 +1,214 @@
+$:.unshift("../lib", "..")
+
+require 'test/unit'
+require 'carray'
+
+module TestCAVirtualMixin
+
+  def test_fetch_index
+    10.times do 
+      idx = @ref.dim.map{|x| rand(x)}
+      assert_equal(@ref[*idx], @obj[*idx])
+    end
+  end
+
+  def test_fetch_addr
+    10.times do 
+      addr = rand(@ref.elements)
+      assert_equal(@ref[addr], @obj[addr])
+    end
+  end
+
+  def test_store_index
+    unless @obj.read_only?
+      10.times do 
+        idx = @ref.dim.map{|x| rand(x)}
+        v = rand(10)
+        @ref[*idx] = v
+        @obj[*idx] = v
+        assert_equal(@ref[*idx], @obj[*idx])
+      end
+      assert_equal(@ref, @obj)
+    end
+  end
+
+  def test_store_addr
+    unless @obj.read_only?
+      10.times do 
+        addr = rand(@ref.elements)
+        @ref[addr] = @obj[addr] = rand(10)
+        assert_equal(@ref[addr], @obj[addr])
+      end
+      assert_equal(@ref, @obj)
+    end
+  end
+
+  def test_attach
+    assert_equal(@ref, @obj)
+  end
+
+  def test_sync
+    unless @obj.read_only?
+      assert_equal(@ref.seq!, @obj.seq!)
+    end
+  end
+
+  def test_copy_data
+    assert_equal(@ref, @obj.to_ca)
+  end
+
+  def test_sync_data
+    unless @obj.read_only?
+      val = @ref.reverse
+      @ref[] = val
+      @obj[] = val
+      assert_equal(@ref, @obj)
+    end
+  end
+
+  def test_fill_data
+    unless @obj.read_only?
+      @obj[] = 1
+      assert_equal(@ref.template{1}, @obj)
+    end
+  end
+
+  def test_create_mask
+    unless @obj.read_only?
+      5.times do 
+        addr = rand(@ref.elements)
+        @ref[addr] = UNDEF
+        @obj[addr] = UNDEF
+      end
+      assert_equal(@ref, @obj)
+    end
+  end
+
+end
+
+class TestCARefer < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10, 10).seq!
+    orig = CArray.int32(10, 10).seq!
+    @obj = orig[]
+  end
+
+end
+
+class TestCABlock < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10, 10).seq!
+    orig = CArray.int32(10, 10).seq!
+    @obj = orig[0..-1, 0..-1]
+  end
+
+end
+
+class TestCASelect < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10, 10).seq!.flatten
+    orig = CArray.int32(10, 10).seq!
+    @obj = orig[orig.true]
+  end
+
+end
+
+class TestCAMapping < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10, 10).seq!
+    orig = CArray.int32(10, 10).seq!
+    @obj = orig[orig]
+  end
+
+end
+
+class TestCAGrid < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10, 10).seq!
+    orig = CArray.int32(10, 10).seq!
+    idx  = CArray.int32(10).seq!
+    @obj = @ref[idx,idx]
+  end
+
+end
+
+class TestCARepeat < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    orig = CArray.int32(10).seq!
+    @ref = CArray.int32(10, 10)
+    10.times do |i|
+      @ref[nil,i] = orig
+    end
+    @obj = orig[:%, 10]
+  end
+
+end
+
+class TestCAFake < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int16(10, 10).seq!
+    orig = CArray.int32(10,10).seq!
+    @obj = orig.as_int16
+  end
+
+end
+
+class TestCAFarray < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10,10).seq!
+    @ref[] = @ref.to_a.transpose
+    orig = CArray.int32(10,10).seq!
+    @obj = orig.t
+  end
+
+end
+
+class TestCATranspose < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(10,10).seq!
+    @ref[] = @ref.to_a.transpose
+    orig = CArray.int32(10,10).seq!
+    @obj = orig.transposed
+  end
+
+end
+
+class TestCAWindow < Test::Unit::TestCase
+
+  include TestCAVirtualMixin
+
+  def setup
+    @ref = CArray.int32(15,15).seq![0..9, 0..9].to_ca
+    orig = CArray.int32(15,15).seq!
+    @obj = orig.window(0..9, 0..9)
+  end
+
+end
+