carray 1.4.0 → 1.5.5

data/spec/Features/feature_copy_spec.rb

@@ -0,0 +1,123 @@
+require "carray"
+require 'rspec-power_assert'
+
+describe "Feature: Copying" do
+
+  example "to_ca" do
+    #
+    a = CArray.int32(3,3).seq
+    b = a.to_ca
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, 4, 5 ],
+                            [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { a == b }
+
+    # mask does not be templated
+    a = CArray.int32(3,3).seq
+    a[1,1] = UNDEF
+    b = a.to_ca
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, UNDEF, 5 ],
+                            [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { a == b }
+  end
+
+  example "template" do
+    #
+    a = CArray.int32(3,3).seq
+    b = a.template {1}
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, 4, 5 ],
+                            [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 1, 1, 1 ],
+                            [ 1, 1, 1 ],
+                            [ 1, 1, 1 ] ]) == b }
+
+    # mask does not be templated
+    a = CArray.int32(3,3).seq
+    a[1,1] = UNDEF
+    b = a.template {1}
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, UNDEF, 5 ],
+                            [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 1, 1, 1 ],
+                            [ 1, 1, 1 ],
+                            [ 1, 1, 1 ] ]) == b }
+  end
+
+  example "to_type" do
+    #
+    a = CArray.int8(3,3).seq
+    b = a.int32
+    is_asserted_by { CA_INT8([ [ 0, 1, 2 ],
+                           [ 3, 4, 5 ],
+                           [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, 4, 5 ],
+                            [ 6, 7, 8 ] ]) == b }
+
+
+    #
+    a = CArray.int8(3,3).seq
+    a[1,1] = UNDEF
+    b = a.int32
+    is_asserted_by { CA_INT8([ [ 0, 1, 2 ],
+                           [ 3, UNDEF, 5 ],
+                           [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 0, 1, 2 ],
+                            [ 3, UNDEF, 5 ],
+                            [ 6, 7, 8 ] ]) == b }
+  end
+
+  example "convert" do
+    #
+    a = CArray.int8(3,3).seq
+    b = a.convert(CA_INT32) {|x| 2*x}
+    is_asserted_by { CA_INT8([ [ 0, 1, 2 ],
+                           [ 3, 4, 5 ],
+                           [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 0, 2, 4 ],
+                            [ 6, 8, 10 ],
+                            [ 12, 14, 16 ] ]) == b }
+
+    #
+    a = CArray.int8(3,3).seq
+    a[1,1] = UNDEF
+    b = a.convert(CA_INT32) {|x| 2 * x }
+    is_asserted_by { CA_INT8([ [ 0, 1, 2 ],
+                           [ 3, UNDEF, 5 ],
+                           [ 6, 7, 8 ] ]) == a }
+    is_asserted_by { CA_INT32([ [ 0, 2, 4 ],
+                            [ 6, UNDEF, 10 ],
+                            [ 12, 14, 16 ] ]) == b }
+  end
+
+  example "transform" do
+    #
+    a = CArray.uint8(2,4) { 0xff }
+    b = a.refer(CA_UINT16, [2,2]).to_ca
+    is_asserted_by { CA_UINT8([ [ 255, 255, 255, 255 ],
+                            [ 255, 255, 255, 255 ] ]) == a }
+    is_asserted_by { CA_UINT16([ [ 65535, 65535 ],
+                             [ 65535, 65535 ] ]) == b }
+  end
+
+  example "to_a" do
+    #
+    a = CArray.int32(3,3).seq
+    b = a.to_a
+    is_asserted_by { [ [ 0, 1, 2 ],
+                   [ 3, 4, 5 ],
+                   [ 6, 7, 8 ] ] == b }
+
+    # mask does not be templated
+    a = CArray.int32(3,3).seq
+    a[1,1] = UNDEF
+    b = a.to_a
+    is_asserted_by { [ [ 0, 1, 2 ],
+                   [ 3, UNDEF, 5 ],
+                   [ 6, 7, 8 ] ] == b }
+  end
+
+
+end

data/spec/Features/feature_creation_spec.rb

@@ -0,0 +1,84 @@
+
+require 'carray'
+require "rspec-power_assert"
+
+describe "TestCArrayCreation " do
+
+  example "s_new_uint8" do
+    # ---
+    ca = CArray.new(CA_UINT8, [3, 2, 1]) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_UINT8 == ca.data_type }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+
+    # ---
+    ca = CArray.new(:uint8, [3, 2, 1]) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_UINT8 == ca.data_type }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+
+    # ---
+    ca = CArray.uint8(3, 2, 1) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_UINT8 == ca.data_type }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+  end
+
+  example "s_new_fixlen" do
+    # ---
+    ca = CArray.new(CA_FIXLEN, [3, 2, 1], :bytes=>10) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_FIXLEN == ca.data_type }
+    is_asserted_by { 10 == ca.bytes }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+
+    # ---
+    ca = CArray.new(:fixlen, [3, 2, 1], :bytes=>10) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_FIXLEN == ca.data_type }
+    is_asserted_by { 10 == ca.bytes }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+
+    # ---
+    ca = CArray.fixlen(3, 2, 1, :bytes=>10) 
+    is_asserted_by { ca.class == CArray }
+    is_asserted_by { CA_FIXLEN == ca.data_type }
+    is_asserted_by { 10 == ca.bytes }
+    is_asserted_by { [3, 2, 1] == ca.dim }
+  end
+
+  example "s_new_various_types" do
+    # ---
+    data_type_list = [
+      CA_BOOLEAN,
+      CA_UINT8, CA_INT8,
+      CA_UINT16, CA_INT16,
+      CA_UINT32, CA_INT32,
+      CA_FLOAT32, CA_FLOAT64,
+      CA_OBJECT
+    ]
+    data_type_list.each do |type|
+      ca = CArray.new(type, [3, 2, 1]) 
+      is_asserted_by { ca.class == CArray }
+      is_asserted_by { type == ca.data_type }
+    end    
+
+    # ---
+    data_type_name_list = [
+      "boolean",
+      "uint8", "int8",
+      "uint16", "int16",
+      "uint32", "int32",
+      "float32", "float64",
+      "object"
+    ]
+    data_type_name_list.each do |type|
+      ca = CArray.send(type, 3, 2, 1) 
+      is_asserted_by { ca.class == CArray }
+      is_asserted_by { type == ca.data_type_name }
+    end
+
+  end
+
+
+end

data/spec/Features/feature_element_spec.rb

@@ -0,0 +1,144 @@
+require 'carray'
+require 'rspec-power_assert'
+
+describe "Feature: Element" do
+
+  example "set_unset" do
+    #
+    a = CArray.boolean(3,3) {0}
+    a.set(1,1)
+    is_asserted_by {  CA_BOOLEAN([[0, 0, 0], [0, 1, 0], [0, 0, 0]]) == a }
+
+    #
+    a = CArray.boolean(3,3) {0}
+    a.set(4)
+    is_asserted_by {  CA_BOOLEAN([[0, 0, 0], [0, 1, 0], [0, 0, 0]]) == a }
+
+    #
+    a = CArray.boolean(3,3) {1}
+    a.unset(1,1)
+    is_asserted_by {  CA_BOOLEAN([[1, 1, 1], [1, 0, 1], [1, 1, 1]]) == a }
+
+    #
+    a = CArray.boolean(3,3) {1}
+    a.unset(4)
+    is_asserted_by {  CA_BOOLEAN([[1, 1, 1], [1, 0, 1], [1, 1, 1]]) == a }
+  end
+
+  example "elem_swap" do
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_swap([1,1], [-1,-1])
+    is_asserted_by {  8 == a[1, 1] }
+    is_asserted_by {  4 == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a[1,1] = UNDEF
+    a.elem_swap([1,1], [-1,-1])
+    is_asserted_by {  8 == a[1, 1] }
+    is_asserted_by {  UNDEF == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_swap(0, -1)
+    is_asserted_by {  8 == a[0, 0] }
+    is_asserted_by {  0 == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a[0,0] = UNDEF
+    a.elem_swap(0, -1)
+    is_asserted_by {  8 == a[0, 0] }
+    is_asserted_by {  UNDEF == a[-1, -1] }
+
+  end
+
+  example "elem_copy" do
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_copy([1,1], [-1,-1])
+    is_asserted_by {  4 == a[1, 1] }
+    is_asserted_by {  4 == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a[1,1] = UNDEF
+    a.elem_copy([1,1], [-1,-1])
+    is_asserted_by {  UNDEF == a[1, 1] }
+    is_asserted_by {  UNDEF == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_copy(0, -1)
+    is_asserted_by {  0 == a[0, 0] }
+    is_asserted_by {  0 == a[-1, -1] }
+
+    #
+    a = CArray.int(3,3).seq!
+    a[0,0] = UNDEF
+    a.elem_copy(0, -1)
+    is_asserted_by {  UNDEF == a[0, 0] }
+    is_asserted_by {  UNDEF == a[-1, -1] }
+
+  end
+
+  example "elem_fetch" do
+    #
+    a = CArray.int(3,3).seq!
+    is_asserted_by {  4 == a.elem_fetch([1, 1]) }
+    a[1,1] = UNDEF
+    is_asserted_by {  UNDEF == a.elem_fetch([1, 1]) }
+
+    #
+    a = CArray.int(3,3).seq!
+    is_asserted_by {  4 == a.elem_fetch(4) }
+    a[1,1] = UNDEF
+    is_asserted_by {  UNDEF == a.elem_fetch(4) }
+  end
+
+  example "elem_store" do
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_store([1,1], -4)
+    is_asserted_by {  (-4) == a.elem_fetch([1, 1]) }
+    a.elem_store([1,1], UNDEF)
+    is_asserted_by {  UNDEF == a.elem_fetch([1, 1]) }
+
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_store(4, -4)
+    is_asserted_by {  (-4) == a.elem_fetch(4) }
+    a.elem_store(4, UNDEF)
+    is_asserted_by {  UNDEF == a.elem_fetch(4) }
+  end
+
+  example "elem_incr_decr" do
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_incr([1,1])
+    is_asserted_by {  5 == a.elem_fetch([1, 1]) }
+    a.elem_decr([1,1])
+    is_asserted_by {  4 == a.elem_fetch([1, 1]) }
+
+    #
+    a = CArray.int(3,3).seq!
+    a.elem_incr(4)
+    is_asserted_by {  5 == a.elem_fetch(4) }
+    a.elem_decr(4)
+    is_asserted_by {  4 == a.elem_fetch(4) }
+  end
+
+  example "elem_incr_255" do
+    #
+    a = CArray.uint8(1) {255}
+    a.elem_incr(0)
+    is_asserted_by {  0 == a.elem_fetch(0) }
+
+    #
+    a = CArray.int8(1) {127}
+    a.elem_incr(0)
+    is_asserted_by {  (-128) == a.elem_fetch(0) }
+  end
+
+end

data/spec/Features/feature_extream_spec.rb

@@ -0,0 +1,54 @@
+
+require 'carray'
+require "rspec-power_assert"
+
+describe "TestCArrayExtream " do
+
+  example "zero_length_array" do
+    # ---
+    a = CArray.int(0)
+    is_asserted_by { 1 == a.rank }
+    is_asserted_by { 0 == a.elements }
+    is_asserted_by { [0] == a.dim }
+    is_asserted_by { 0 == a.dim0 }
+
+    # ---
+    a = CArray.int(0, 3)
+    is_asserted_by { 2 == a.rank }
+    is_asserted_by { 0 == a.elements }
+    is_asserted_by { [0, 3] == a.dim }
+    is_asserted_by { 0 == a.dim0 }
+    is_asserted_by { 3 == a.dim1 }
+
+    # ---
+    a = CArray.int(3, 0)
+    is_asserted_by { 2 == a.rank }
+    is_asserted_by { 0 == a.elements }
+    is_asserted_by { [3, 0] == a.dim }
+    is_asserted_by { 3 == a.dim0 }
+    is_asserted_by { 0 == a.dim1 }
+  end
+
+  example "zero_length_fixlen" do
+    # ---
+    expect { CArray.new(CA_FIXLEN, [3,3], :bytes => 0) }.not_to raise_error()
+    expect { CArray.new(CA_FIXLEN, [3,3], :bytes => -1) }.to raise_error(RuntimeError)
+  end
+
+  example "large_rank_array" do
+    # ---
+    dim = [2] * (CA_RANK_MAX)
+    is_asserted_by { CArray.int8(*dim).class == CArray }
+
+    # ---
+    dim = [2] * (CA_RANK_MAX+1)
+    expect { CArray.int8(*dim) }.to raise_error(RuntimeError)
+  end
+
+  example "negative_dimension_size" do
+    # ---
+    expect { CArray.int8(-1) }.to raise_error(RuntimeError)
+    expect { CArray.int8(-1, -1) }.to raise_error(RuntimeError)
+  end
+
+end

data/spec/Features/feature_generate_spec.rb

@@ -0,0 +1,74 @@
+
+require 'carray'
+require "rspec-power_assert"
+
+describe "TestCArrayGenerate " do
+
+  example "swap_bytes" do
+    #
+    a = CArray.int16(3,3) { 0x1234 }
+    b = CArray.int16(3,3) { 0x3412 }
+    is_asserted_by {  b == a.swap_bytes }
+    is_asserted_by {  a == b.swap_bytes }
+    is_asserted_by {  a == a.swap_bytes.swap_bytes }
+
+    #
+    a = CArray.int32(3,3) { 0x12345678 }
+    b = CArray.int32(3,3) { 0x78563412 }
+    is_asserted_by {  b == a.swap_bytes }
+    is_asserted_by {  a == b.swap_bytes }
+    is_asserted_by {  a == a.swap_bytes.swap_bytes }
+
+    #
+    if CArray::HAVE_COMPLEX
+      c = CArray.int32(1) { 0x12345678 }
+      x = c.refer(CA_FLOAT32, [1])[0]
+      y = c.swap_bytes.refer(CA_FLOAT32, [1])[0]
+      a = CArray.complex(3,3) { x + y*CI }
+      b = CArray.complex(3,3) { y + x*CI }
+      is_asserted_by {  b == a.swap_bytes }
+      is_asserted_by {  a == b.swap_bytes }
+      is_asserted_by {  a == a.swap_bytes.swap_bytes }
+    end
+  end
+
+  example "seq" do
+    # ---
+    a = CArray.object(3).seq!
+    is_asserted_by {  CA_OBJECT([0, 1, 2]) == a }
+
+    # ---
+    a = CArray.object(3).seq!(1)
+    is_asserted_by {  CA_OBJECT([1, 2, 3]) == a }
+
+    # ---
+    a = CArray.object(3).seq!(1,2)
+    is_asserted_by {  CA_OBJECT([1, 3, 5]) == a }
+
+    # ---
+    a = CArray.object(3).seq!(3,-1)
+    is_asserted_by {  CA_OBJECT([3, 2, 1]) == a }
+
+    # ---
+    a = CArray.object(3).seq!("a", "a")
+    is_asserted_by {  CA_OBJECT(["a", "aa", "aaa"]) == a }
+
+    # ---
+    a = CArray.object(3).seq!("a", :succ)
+    is_asserted_by {  CA_OBJECT(["a", "b", "c"]) == a }
+
+    # ---
+    a = CArray.object(3).seq!("a", :succ) { |x| "@" + x }
+    is_asserted_by {  CA_OBJECT(["@a", "@b", "@c"]) == a }
+
+    # ---
+    a = CArray.object(3).seq!("a", :succ)
+    is_asserted_by {  CA_OBJECT(["@a", "@b", "@c"]) == (CA_OBJECT("@") + a) }
+
+    # ---
+    a = CArray.object(3).seq!([], [nil])
+    is_asserted_by {  CA_OBJECT([[], [nil], [nil, nil]]) == a }
+  end
+
+
+end