carray 2.0.0 → 3.0.0

data/spec/Features/feature_creation_spec.rb

@@ -1,84 +0,0 @@
-
-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

@@ -1,144 +0,0 @@
-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

@@ -1,54 +0,0 @@
-
-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

@@ -1,74 +0,0 @@
-
-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

data/spec/Features/feature_index_spec.rb

@@ -1,69 +0,0 @@
-require 'carray'
-require 'rspec-power_assert'
-
-describe "Feature: Indexing" do
-
-  example "index" do
-    a = CArray.int(3,3).seq!
-    expect { a[0, 0, 0] }.to raise_error(IndexError)
-    expect { a[[0,1,1,2], 0] }.to raise_error(IndexError)
-    expect { a[[0,4], 0] }.to raise_error(IndexError)
-    expect { a[[0,3,2], 0] }.to raise_error(IndexError)
-    expect { a[:abcdefg, 0] }.to raise_error(NoMethodError)
-    expect { a[0, :abcdefg] }.to raise_error(IndexError)
-  end
-
-  example "rubber_dim" do
-    a = CArray.int(3,3,3,3,3).seq!
-
-    is_asserted_by { a[false] == a[nil, nil, nil, nil, nil] }
-
-    is_asserted_by { a[0,false] == a[0, nil, nil, nil, nil] }
-    is_asserted_by { a[false,0] == a[nil, nil, nil, nil, 0] }
-    is_asserted_by { a[0,false,0] == a[0, nil, nil, nil, 0] }
-
-    is_asserted_by { a[0..1,false] == a[0..1, nil, nil, nil, nil] }
-    is_asserted_by { a[false,0..1] == a[nil, nil, nil, nil, 0..1] }
-    is_asserted_by { a[0..1,false,0..1] == a[0..1, nil, nil, nil, 0..1] }
-
-    is_asserted_by { a[nil,false] == a[nil, nil, nil, nil, nil] }
-    is_asserted_by { a[false,nil] == a[nil, nil, nil, nil, nil] }
-    is_asserted_by { a[nil,false,nil] == a[nil, nil, nil, nil, nil] }
-
-    expect { a[0,0,0,0,0,0,false] }.to raise_error(IndexError)
-
-  end
-
-
-  example "scan_index" do
-    info = CArray.scan_index([3,3],[])
-    is_asserted_by { [info.type, info.index] == [CA_REG_ALL, []] }
-    info = CArray.scan_index([3,3],[1])
-    is_asserted_by { [info.type, info.index] == [CA_REG_ADDRESS, [1]] }
-    info = CArray.scan_index([3,3],[1..2])
-    is_asserted_by { [info.type, info.index] == [CA_REG_ADDRESS_COMPLEX, [[1,2,1]]] }
-    info = CArray.scan_index([3,3],[1,1])
-    is_asserted_by { [info.type, info.index] == [CA_REG_POINT, [1,1]] }
-    info = CArray.scan_index([3,3],[1,nil])
-    is_asserted_by { [info.type, info.index] == [CA_REG_BLOCK, [1,[0,3,1]]] }
-    a = CArray.int(3,3).seq!
-    i = CArray.int(3).seq!
-    info = CArray.scan_index([3,3],[a.eq(4)])
-    is_asserted_by { [info.type, info.index] == [CA_REG_SELECT, []] }
-    info = CArray.scan_index([3,3],[a])
-    is_asserted_by { [info.type, info.index] == [CA_REG_MAPPING, []] }
-    info = CArray.scan_index([3,3],[i,i])
-    is_asserted_by { [info.type, info.index] == [CA_REG_GRID, []] }
-    info = CArray.scan_index([3,3],[:%, :%, 2])
-    is_asserted_by { [info.type, info.index] == [CA_REG_REPEAT, []] }
-    info = CArray.scan_index([3,3],[nil, nil, :*])
-    is_asserted_by { [info.type, info.index] == [CA_REG_UNBOUND_REPEAT, []] }
-  end
-
-  example "addr2index" do
-    a = CArray.int(3,3,3)
-    is_asserted_by { [1,1,1] == a.addr2index(13) }
-    is_asserted_by { 13 == a.index2addr(1,1,1) }
-  end
-
-end