carray 2.0.0 → 3.0.0

data/spec/Classes/CAWindow_spec.rb

@@ -1,54 +0,0 @@
-
-require 'carray'
-require "rspec-power_assert"
-
-describe "TestCArrayCAWindow " do
-
-  example "virtual_array" do
-    a = CArray.int(3,3).seq!
-    b = a.window(-1..1, -1..1)
-    r = b.parent
-    is_asserted_by { b.class == CAWindow }
-    is_asserted_by { true == b.virtual? }
-    is_asserted_by { a == r }
-  end
-
-
-  example "basic_features" do
-    # ---
-    a = CArray.int(3,3).seq!
-    b = a.window(-1..1, -1..1)
-    is_asserted_by { 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
-    is_asserted_by { CA_INT([[_,_,_],
-                         [_,0,1],
-                         [_,3,4]]) == b }
-  end
-
-  example "invalid_args" do
-    # ---
-    a = CArray.int(3,3).seq
-    expect { a.window(1) }.to raise_error(ArgumentError)
-    expect { a.window([nil]) }.to raise_error(ArgumentError)
-    expect { a.window(nil, [nil,2]) }.to raise_error(ArgumentError)
-    expect { a.window(1..-1, nil) }.to raise_error(ArgumentError)
-  end
-
-  example "out_of_index" do
-    # ---
-    a = CArray.int(3,3).seq
-    i1 = CA_INT([1,2,3])
-    i2 = CA_INT([-4,-3,-2])
-    expect { a[i1,nil] }.to raise_error(IndexError)
-    expect { a[nil,i1] }.to raise_error(IndexError)
-    expect { a[i2,nil] }.to raise_error(IndexError)
-    expect { a[nil,i2] }.to raise_error(IndexError)
-  end
-
-end

data/spec/Classes/CAWrap_spec.rb

@@ -1,8 +0,0 @@
-
-require 'carray'
-require "rspec-power_assert"
-
-describe "TestCArrayCAWrap " do
-  example "default" do
-  end
-end

data/spec/Classes/CArray_spec.rb

@@ -1,184 +0,0 @@
-
-require 'carray'
-require "rspec-power_assert"
-
-describe "TestCArray " do
-
-  def assert_carray (ca, type, dim, ary)
-    is_asserted_by { ca == CArray.new(type, dim) { ary } }
-  end
-
-  example "s_new" do
-    a = CArray.new(CA_INT32, [3, 2, 1]) { 1 }
-    is_asserted_by { a.class == CArray }
-  end
-
-  example "s_type" do
-    a = CArray.int32(3, 3) { 1 }
-    assert_carray(a, CA_INT32, [3,3], 1)
-  end
-
-  example "equal" do
-    a = CArray.int32(3, 3)  { 0 }
-    b = CArray.int32(3, 3)  { 0 }
-    c = CArray.uint32(3, 3) { 0 }
-    d = CArray.uint32(2, 3) { 0 }
-    e = CArray.int32(3, 3)  { 1 }
-    is_asserted_by { (a == b) == true }
-    is_asserted_by { (a != b) == false }
-    is_asserted_by { (a == c) == false }
-    is_asserted_by { (a != c) == true }
-    is_asserted_by { (a == d) == false }
-    is_asserted_by { (a != d) == true }
-    is_asserted_by { (a == e) == false }
-    is_asserted_by { (a != e) == true }
-  end
-
-  example "clone" do
-    a = CArray.int32(3, 3)
-    is_asserted_by { a.clone == a }
-  end
-
-  example "to_s" do
-    a = CArray.int8(3, 3) { 1 }
-    is_asserted_by { a.to_s == ("\u0001" * 9) }
-
-    a = CArray.int32(3, 3) { 1 }
-    is_asserted_by { a.to_s == ([1].pack("l") * 9) }
-  end
-
-  example "to_ca" do
-    a = CArray.int32(3, 3).seq
-    is_asserted_by { a.to_ca == a }
-
-    c = CArray.int32(4, 4)
-    c[0..2, 0..2] = a
-    b = c[0..2, 0..2]
-    is_asserted_by { b.to_ca == b }
-
-    a = CArray.int32(3, 3).seq
-    assert_carray(a[nil, 0].to_ca, CA_INT32, [3], [0,3,6])
-    assert_carray(a[nil, 1].to_ca, CA_INT32, [3], [1,4,7])
-    assert_carray(a[nil, 2].to_ca, CA_INT32, [3], [2,5,8])
-
-    a = CArray.int32(3, 3).seq
-#    assert_carray(a[0, nil].to_ca, CA_INT32, [3], [0,1,2])
-#    assert_carray(a[1, nil].to_ca, CA_INT32, [3], [3,4,5])
-#    assert_carray(a[2, nil].to_ca, CA_INT32, [3], [6,7,8])
-  end
-
-  example "store_array" do
-    a = CArray.int32(3, 3){1}
-    b = CArray.int32(3, 3)
-    b[] = [[1, 1, 1], [1, 1, 1], [1, 1, 1]]
-    is_asserted_by { a == b }
-  end
-
-  example "set_value" do
-    a = CArray.int32(3, 3)
-    b = CArray.int32(3, 3)
-
-    a[] = 0
-    assert_carray(a, CA_INT32, [3,3], [
-        [0, 0, 0],
-        [0, 0, 0],
-        [0, 0, 0]
-      ])
-
-    # reg_point
-    a[] = 0
-    a[1, 1] = 1
-    assert_carray(a, CA_INT32, [3,3], [
-        [0, 0, 0],
-        [0, 1, 0],
-        [0, 0, 0]
-      ])
-
-
-    # reg_block : idx_all
-    a[] = 0
-    a[nil, 1] = 1
-    assert_carray(a, CA_INT32, [3,3], [
-        [0, 1, 0],
-        [0, 1, 0],
-        [0, 1, 0]
-      ])
-
-
-    # reg_block : idx_block
-    a[] = 0
-    a[0..1, 1] = 1
-    assert_carray(a, CA_INT32, [3,3], [
-        [0, 1, 0],
-        [0, 1, 0],
-        [0, 0, 0]
-      ])
-
-    # reg_block : idx_block
-    a[] = 0
-    a[[0..2,2], 1] = 1
-    assert_carray(a, CA_INT32, [3,3], [
-        [0, 1, 0],
-        [0, 0, 0],
-        [0, 1, 0]
-      ])
-  end
-
-  example "set_point" do
-    a = CArray.int32(3, 3) { 0 }
-
-    a[1, 1] = 1
-    is_asserted_by { a[1, 1] == 1 }
-
-  end
-
-  example "set_addr" do
-    a = CArray.int32(3, 3) { 0 }
-
-    a[4] = 1
-    is_asserted_by { a[1, 1] == 1 }
-
-    a[3..5] = -1
-    is_asserted_by { a[1, 1] == (-1) }
-
-    a[3..5] = [1,2,3]
-    is_asserted_by { a[1, 1] == 2 }
-  end
-
-  example "reverse" do
-    a = CArray.uint8(100).seq!
-    b = a[-1..0].to_ca
-    is_asserted_by { a.reverse! == b }
-  end
-
-  example "stat" do
-    a = CArray.float32(3,3).seq!(1,2)
-    stddev = Math.sqrt(((a - a.mean)**2).sum/(a.elements-1))
-
-    is_asserted_by { a.max == 17 }
-    is_asserted_by { a.min == 1 }
-    is_asserted_by { a.sum == 81 }
-    is_asserted_by { a.mean == 9 }
-    is_asserted_by { a.stddev == stddev }
-
-    c = CArray.int32(4,4)
-    c[0..2, 0..2] = a
-    a = c[0..2, 0..2]
-    is_asserted_by { a.max == 17 }
-    is_asserted_by { a.min == 1 }
-    is_asserted_by { a.sum == 81 }
-    is_asserted_by { a.mean == 9 }
-    is_asserted_by { a.stddev == stddev }
-  end
-
-  example "ancestors" do
-    # ---
-    a = CArray.int(3,3).seq!
-    b = a.reshape(9)
-    c = b.reshape(3,3)
-    d = c[0..1,0..1]
-    is_asserted_by { a == d.root_array }
-    is_asserted_by { [a, b, c, d] == d.ancestors }
-  end
-
-end

data/spec/Classes/CScalar_spec.rb

@@ -1,55 +0,0 @@
-require 'carray'
-require "rspec-power_assert"
-
-describe "CScalar#[]" do
-  
-  example "basic" do  
-    a = CA_DOUBLE(3.0)
-    
-    is_asserted_by { a[0] == 3.0 }
-    is_asserted_by { a[1] == 3.0 }
-
-    # a[] returns self
-    is_asserted_by { a[].class == CScalar }
-    is_asserted_by { a[] == a }
-
-    # a[nil] returns self
-    is_asserted_by { a[nil].class == CScalar }
-    is_asserted_by { a[nil] == a }
-
-    # a[block] returns self
-    is_asserted_by { a[0..5].class == CScalar }
-    is_asserted_by { a[0..5] == a }
-
-    a[0] = 5.0
-    is_asserted_by { a[0] == 5.0 }
-    expect { a[1] = 5.0 }.to raise_error(IndexError)
-  end
-
-  example "select" do  
-    a = CA_DOUBLE(3.0)
-    idx = CA_BOOLEAN([true,false,true,false,true])
-    expect { a[idx] }.to raise_error(RuntimeError)
-  end
-
-  example "mapping" do  
-    a = CA_DOUBLE(3.0)
-    idx = CA_INT([0,0,0,0,0])
-    is_asserted_by { a[idx] == CA_DOUBLE([3,3,3,3,3]) }
-
-    idx = CA_INT([0,1,2,3,4])
-    expect { a[idx] }.to raise_error(IndexError)
-  end
-
-  example "method" do  
-    a = CA_DOUBLE(3.0)
-    a[:gt,1] = 10
-    is_asserted_by { a[0] == 10 }
-
-    a = CA_DOUBLE(3.0)
-    a[:lt,1] = 10
-    is_asserted_by { a[0] == 3.0 }
-  end
-    
-end
-

data/spec/Classes/ex1.rb

@@ -1,46 +0,0 @@
-require_relative "../../lib/carray"
-#require_relative "../../ext/carray_ext"
-
-class CArray
-  
-  def count_masked (*axis)
-    p "rw"
-    if has_mask?  
-      p "rb"
-      p self.class
-      p self.mask.ndim
-      p "rk"
-#      j=self.mask
-      p "rj"
-      #p mask.int64
-      #return mask.int64.accumulate(*axis)
-    else
-      if axis.empty?
-        return 0
-      else
-        spec = shape.map{:i}
-        axis.each do |k|
-          spec[k] = nil
-        end
-        return self[*spec].ca.template(:int64) { 0 }
-      end
-    end
-  end
-  
-end
-a = CArray.int(3).seq!
-a[1] = UNDEF
-r1 = a[3,:%]
-x1 = r1.to_ca
- 3 == x1.count_masked 
- p "ro"
-#is_asserted_by { 3 == r1[nil, 1].count_masked }
-#is_asserted_by { 3 == x1.count_masked }
-#is_asserted_by { 3 == x1[nil, 1].count_masked }
-
-#r2 = a[:%,3]
-#x2 = r2.to_ca
-#is_asserted_by { 3 == r2.count_masked }
-#is_asserted_by { 3 == r2[1, nil].count_masked }
-#is_asserted_by { 3 == x2.count_masked }
-#is_asserted_by { 3 == x2[1, nil].count_masked }

data/spec/Features/feature_130_spec.rb

@@ -1,19 +0,0 @@
-
-require 'carray'
-require "rspec-power_assert"
-
-describe "Test130 " do
-
-  example "float_arithmetic" do
-    is_asserted_by { (CA_FLOAT([100]) + 1)[0] == 101.0 }
-  end
-  
-  example "int64" do
-    expect { CA_INT64([0xffffffffffffffff]) }.to raise_error(RangeError)
-    is_asserted_by { CA_INT64([0x7fffffffffffffff])[0] == 0x7fffffffffffffff }
-    is_asserted_by { CA_INT64([0x7fffffffffffffff])+1  == CA_INT64([-0x8000000000000000]) }
-    is_asserted_by { CA_INT64([0x7fffffffffffffff, 0x7fffffffffffffff]).sum == (2*0x7fffffffffffffff).to_f }
-  end
-
-
-end

data/spec/Features/feature_attributes_spec.rb

@@ -1,280 +0,0 @@
-
-require 'carray'
-require "rspec-power_assert"
-
-describe "TestCArrayAttribute " do
-
-  example "attribute_basic_features" do
-    a = CArray.new(CA_INT32, [4, 3, 2, 1])
-    is_asserted_by {  a.class == CArray }
-    is_asserted_by {  CA_OBJ_ARRAY == a.obj_type }
-    is_asserted_by {  CA_INT32 == a.data_type }
-    is_asserted_by {  4 == a.rank }
-    is_asserted_by {  CArray.sizeof(CA_INT32) == a.bytes }
-    is_asserted_by {  24 == a.elements }
-    is_asserted_by {  [4, 3, 2, 1] == a.dim }
-    is_asserted_by {  4 == a.dim0 }
-    is_asserted_by {  3 == a.dim1 }
-    is_asserted_by {  2 == a.dim2 }
-    is_asserted_by {  1 == a.dim3 }
-  end
-
-  example "fixlen?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).fixlen? == true }
-    is_asserted_by {  CArray.boolean(1).fixlen? == false }
-    is_asserted_by {  CArray.int8(1).fixlen? == false }
-    is_asserted_by {  CArray.uint8(1).fixlen? == false }
-    is_asserted_by {  CArray.int16(1).fixlen? == false }
-    is_asserted_by {  CArray.uint16(1).fixlen? == false }
-    is_asserted_by {  CArray.int32(1).fixlen? == false }
-    is_asserted_by {  CArray.uint32(1).fixlen? == false }
-    is_asserted_by {  CArray.int64(1).fixlen? == false }
-    is_asserted_by {  CArray.uint64(1).fixlen? == false }
-    is_asserted_by {  CArray.float32(1).fixlen? == false }
-    is_asserted_by {  CArray.float64(1).fixlen? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).fixlen? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).fixlen? == false }
-      is_asserted_by {  CArray.cmplx128(1).fixlen? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).fixlen? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).fixlen? == false }
-  end
-
-  example "boolean?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).boolean? == false }
-    is_asserted_by {  CArray.boolean(1).boolean? == true }
-    is_asserted_by {  CArray.int8(1).boolean? == false }
-    is_asserted_by {  CArray.uint8(1).boolean? == false }
-    is_asserted_by {  CArray.int16(1).boolean? == false }
-    is_asserted_by {  CArray.uint16(1).boolean? == false }
-    is_asserted_by {  CArray.int32(1).boolean? == false }
-    is_asserted_by {  CArray.uint32(1).boolean? == false }
-    is_asserted_by {  CArray.int64(1).boolean? == false }
-    is_asserted_by {  CArray.uint64(1).boolean? == false }
-    is_asserted_by {  CArray.float32(1).boolean? == false }
-    is_asserted_by {  CArray.float64(1).boolean? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).boolean? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).boolean? == false }
-      is_asserted_by {  CArray.cmplx128(1).boolean? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).boolean? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).boolean? == false }
-  end
-
-  example "numeric?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).integer? == false }
-    is_asserted_by {  CArray.boolean(1).integer? == false }
-    is_asserted_by {  CArray.int8(1).integer? == true }
-    is_asserted_by {  CArray.uint8(1).integer? == true }
-    is_asserted_by {  CArray.int16(1).integer? == true }
-    is_asserted_by {  CArray.uint16(1).integer? == true }
-    is_asserted_by {  CArray.int32(1).integer? == true }
-    is_asserted_by {  CArray.uint32(1).integer? == true }
-    is_asserted_by {  CArray.int64(1).integer? == true }
-    is_asserted_by {  CArray.uint64(1).integer? == true }
-    is_asserted_by {  CArray.float32(1).integer? == false }
-    is_asserted_by {  CArray.float64(1).integer? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).integer? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).integer? == false }
-      is_asserted_by {  CArray.cmplx128(1).integer? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).integer? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).integer? == false }
-  end
-
-  example "integer?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).integer? == false }
-    is_asserted_by {  CArray.boolean(1).integer? == false }
-    is_asserted_by {  CArray.int8(1).integer? == true }
-    is_asserted_by {  CArray.uint8(1).integer? == true }
-    is_asserted_by {  CArray.int16(1).integer? == true }
-    is_asserted_by {  CArray.uint16(1).integer? == true }
-    is_asserted_by {  CArray.int32(1).integer? == true }
-    is_asserted_by {  CArray.uint32(1).integer? == true }
-    is_asserted_by {  CArray.int64(1).integer? == true }
-    is_asserted_by {  CArray.uint64(1).integer? == true }
-    is_asserted_by {  CArray.float32(1).integer? == false }
-    is_asserted_by {  CArray.float64(1).integer? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).integer? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).integer? == false }
-      is_asserted_by {  CArray.cmplx128(1).integer? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).integer? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).integer? == false }
-  end
-
-  example "unsigned?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).unsigned? == false }
-    is_asserted_by {  CArray.boolean(1).unsigned? == false }
-    is_asserted_by {  CArray.int8(1).unsigned? == false }
-    is_asserted_by {  CArray.uint8(1).unsigned? == true }
-    is_asserted_by {  CArray.int16(1).unsigned? == false }
-    is_asserted_by {  CArray.uint16(1).unsigned? == true }
-    is_asserted_by {  CArray.int32(1).unsigned? == false }
-    is_asserted_by {  CArray.uint32(1).unsigned? == true }
-    is_asserted_by {  CArray.int64(1).unsigned? == false }
-    is_asserted_by {  CArray.uint64(1).unsigned? == true }
-    is_asserted_by {  CArray.float32(1).unsigned? == false }
-    is_asserted_by {  CArray.float64(1).unsigned? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).unsigned? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).unsigned? == false }
-      is_asserted_by {  CArray.cmplx128(1).unsigned? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).unsigned? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).unsigned? == false }
-  end
-
-  example "float?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).float? == false }
-    is_asserted_by {  CArray.boolean(1).float? == false }
-    is_asserted_by {  CArray.int8(1).float? == false }
-    is_asserted_by {  CArray.uint8(1).float? == false }
-    is_asserted_by {  CArray.int16(1).float? == false }
-    is_asserted_by {  CArray.uint16(1).float? == false }
-    is_asserted_by {  CArray.int32(1).float? == false }
-    is_asserted_by {  CArray.uint32(1).float? == false }
-    is_asserted_by {  CArray.int64(1).float? == false }
-    is_asserted_by {  CArray.uint64(1).float? == false }
-    is_asserted_by {  CArray.float32(1).float? == true }
-    is_asserted_by {  CArray.float64(1).float? == true }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).float? == true }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).float? == false }
-      is_asserted_by {  CArray.cmplx128(1).float? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).float? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).float? == false }
-  end
-
-  example "complex?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).complex? == false }
-    is_asserted_by {  CArray.boolean(1).complex? == false }
-    is_asserted_by {  CArray.int8(1).complex? == false }
-    is_asserted_by {  CArray.uint8(1).complex? == false }
-    is_asserted_by {  CArray.int16(1).complex? == false }
-    is_asserted_by {  CArray.uint16(1).complex? == false }
-    is_asserted_by {  CArray.int32(1).complex? == false }
-    is_asserted_by {  CArray.uint32(1).complex? == false }
-    is_asserted_by {  CArray.int64(1).complex? == false }
-    is_asserted_by {  CArray.uint64(1).complex? == false }
-    is_asserted_by {  CArray.float32(1).complex? == false }
-    is_asserted_by {  CArray.float64(1).complex? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).complex? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).complex? == true }
-      is_asserted_by {  CArray.cmplx128(1).complex? == true }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).complex? == true }
-      end
-    end
-    is_asserted_by {  CArray.object(1).complex? == false }
-  end
-
-  example "object?" do
-    is_asserted_by {  CArray.new(CA_FIXLEN, [1], bytes: 1).object? == false }
-    is_asserted_by {  CArray.boolean(1).object? == false }
-    is_asserted_by {  CArray.int8(1).object? == false }
-    is_asserted_by {  CArray.uint8(1).object? == false }
-    is_asserted_by {  CArray.int16(1).object? == false }
-    is_asserted_by {  CArray.uint16(1).object? == false }
-    is_asserted_by {  CArray.int32(1).object? == false }
-    is_asserted_by {  CArray.uint32(1).object? == false }
-    is_asserted_by {  CArray.int64(1).object? == false }
-    is_asserted_by {  CArray.uint64(1).object? == false }
-    is_asserted_by {  CArray.float32(1).object? == false }
-    is_asserted_by {  CArray.float64(1).object? == false }
-    if CArray.data_type?(:float128)
-      is_asserted_by {  CArray.float128(1).object? == false }
-    end
-    if CArray::HAVE_COMPLEX
-      is_asserted_by {  CArray.cmplx64(1).object? == false }
-      is_asserted_by {  CArray.cmplx128(1).object? == false }
-      if CArray.data_type?(:cmplx256)
-        is_asserted_by {  CArray.cmplx256(1).object? == false }
-      end
-    end
-    is_asserted_by {  CArray.object(1).object? == true }
-  end
-
-  example "entity?" do
-    a = CArray.int32(3)
-    is_asserted_by {  a.entity? == true }
-    is_asserted_by {  a[].entity? == false }
-    is_asserted_by {  a[0..1].entity? == false }
-    is_asserted_by {  a[a > 0].entity? == false }
-
-    b = CScalar.int32()
-    is_asserted_by {  b.entity? == true }
-    is_asserted_by {  b[].entity? == true }
-  end
-
-  example "virtual?" do
-    a = CArray.int32(3)
-    is_asserted_by {  a.virtual? == false }
-    is_asserted_by {  a[].virtual? == true }
-    is_asserted_by {  a[0..1].virtual? == true }
-    is_asserted_by {  a[a > 0].virtual? == true }
-
-    b = CScalar.int32()
-    is_asserted_by {  b.virtual? == false }
-    is_asserted_by {  b[].virtual? == false }
-  end
-
-  example "valid_index?" do
-    a = CArray.int32(3,3)
-    is_asserted_by {  true == a.valid_index?(2, 2) }
-    is_asserted_by {  true == a.valid_index?(1, 1) }
-#    is_asserted_by {  true == a.valid_index?((-1), (-1)) }
-#    is_asserted_by {  true == a.valid_index?((-3), (-3)) }
-
-    is_asserted_by {  true == a.valid_addr?(8) }
-    is_asserted_by {  true == a.valid_addr?(4) }
-#    is_asserted_by {  true == a.valid_addr?((-4)) }
-#    is_asserted_by {  true == a.valid_addr?((-8)) }
-      
-    is_asserted_by {  false == a.valid_index?(1, 3) }
-#    is_asserted_by {  false == a.valid_index?((-4), 1) }
-
-    is_asserted_by {  false == a.valid_addr?(9) }
-#    is_asserted_by {  false == a.valid_addr?((-10)) }
-  end
-
-  example "same_shape?" do
-    a = CArray.int32(4,3,2,1)
-    b = CArray.int8(1,2,3,4)
-    is_asserted_by {  false == a.same_shape?(b) }
-    is_asserted_by {  true == a.transposed.same_shape?(b) }
-  end
-
-end