striuct 0.3.5.1 → 0.4.0

data/lib/striuct/instancemethods/subscript.rb

@@ -1,27 +0,0 @@
-class Striuct; module InstanceMethods
-
-  # @group Subscript
-
-  # @param [Symbol, String, Fixnum] key
-  def [](key)
-    _get autonym_for_key(key)
-  end
-  
-  # @param [Symbol, String, Fixnum] key
-  # @param [Object] value
-  # @return [value]
-  def []=(key, value)
-    autonym = autonym_for_key key
-    _set autonym, value
-  rescue Validation::InvalidWritingError
-    $!.set_backtrace([
-      "#{$!.backtrace[-1].sub(/[^:]+\z/){''}}in `[#{key.inspect}(#{autonym})]=': #{$!.message}",
-      $!.backtrace[-1]
-    ])
-
-    raise
-  end
-
-  # @endgroup
-
-end; end

data/lib/striuct/instancemethods.rb

@@ -1 +0,0 @@
-require_relative 'instancemethods/requirements'

data/lib/striuct/version.rb

@@ -1,5 +0,0 @@
-class Striuct
-
-  VERSION = '0.3.5.1'.freeze
-
-end

data/test/test_striuct-singleton_class-define.rb

@@ -1,19 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Define < Test::Unit::TestCase
-
-  def test_define
-    assert_raises RuntimeError do
-      Striuct.define do
-      end
-    end
-    
-    klass = Striuct.define do
-      member :foo
-    end
-
-    assert_equal true, klass.closed?
-  end
-
-end
-

data/test/test_striuct-subclass-class-constructor.rb

@@ -1,82 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Constructor < Test::Unit::TestCase
-
-  class User < Striuct.new
-    member :id, Integer
-    member :last_name, /\A\w+\z/
-    member :family_name, /\A\w+\z/
-    member :address, /\A((\w+) ?)+\z/
-    member :age, ->age{(20..140).include? age}
-  end
-  
-  User2 = Striuct.define do
-    member :name, AND(String, NOT(''))
-    member :age, Fixnum
-  end
-  
-  def test_new
-    klass = Striuct.new
-    assert_kind_of Striuct, klass.new
-    
-    klass = Striuct.new :name, :age
-    
-    assert_equal klass.members, [:name, :age]
-    
-    klass = Striuct.new :foo do
-      member :var
-    end
-    
-    assert_equal klass.members, [:foo, :var]
-    assert_equal User.members, [:id, :last_name, :family_name, :address, :age]
-  end
-
-  def test_define
-    user = User2.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    
-    assert_raises RuntimeError do
-      user.age = 1
-    end
-    
-    user = User2.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.lock?
-    assert_same false, user.frozen?
-    
-    assert_raises RuntimeError do
-      User2.define{|r|r.age = 1}
-    end
-    
-    user = User2.define(lock: true){|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.lock?
-    user = User2.define(lock: false){|r|r.age = 1; r.name = 'a'}
-    assert_same false, user.lock?
-    assert_equal true, user.strict?
-    
-    assert_raises Validation::InvalidWritingError do
-      User2.define{|r|r.age = 1; r.name = 'a'; r.name.clear}
-    end
-    
-    user = User2.define(strict: false){|r|r.age = 1; r.name = 'a'; r.name.clear}
-    assert_equal '', user.name
-    assert_equal false, user.strict?
-  end
-  
-  Sth = Striuct.new :foo, :bar, :hoge
-  SampleStruct = Struct.new :foo, :bar, :hoge
-  
-  def test_for_pairs_from_hash
-    sth = Sth[hoge: 7, foo: 8]
-   
-    assert_equal [8, nil, 7], sth.values
-  end
-
-  def test_for_pairs_from_struct
-    sth = Sth[SampleStruct.new 8, nil, 7]
-   
-    assert_equal [8, nil, 7], sth.values
-  end
-
-end  

data/test/test_striuct-subclass-class-validation.rb

@@ -1,26 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Validation < Test::Unit::TestCase
-
-  class User < Striuct.new
-    member :id, Integer
-    member :last_name, /\A\w+\z/
-    member :family_name, /\A\w+\z/
-    member :address, /\A((\w+) ?)+\z/
-    member :age, ->age{(20..140).include? age}
-  end
-  
-  def test_restrict?
-    klass = Striuct.new :foo do
-      member :var, //
-      member :hoge
-      member :moge, nil
-    end
-    
-    assert_equal false, klass.restrict?(:foo)
-    assert_equal true, klass.restrict?(:var)
-    assert_equal false, klass.restrict?(:hoge)
-    assert_equal true, klass.restrict?(:moge)
-  end
-
-end  

data/test/test_striuct-subclass-instance-assign.rb

@@ -1,30 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Instance_Assign < Test::Unit::TestCase
-
-  Sth = Striuct.new do
-    member :foo
-  end  
-
-  def test_unassign
-    sth = Sth.new
-    assert_equal false, sth.assign?(:foo)
-    sth.foo = nil
-    assert_equal true, sth.assign?(:foo)
-    sth.unassign :foo
-    assert_equal false, sth.assign?(:foo)
-    sth.foo = nil
-    assert_equal true, sth.assign?(:foo)
-    sth.clear_at 0
-    assert_equal false, sth.assign?(:foo)
-    
-    assert_raises NameError do
-      sth.unassign :var
-    end
-    
-    assert_raises IndexError do
-      sth.unassign 1
-    end
-  end
-
-end

data/test/test_striuct-subclass-instance-enum.rb

@@ -1,93 +0,0 @@
-require_relative 'helper'
-
-
-class Test_Striuct_Subclass_Instance_Enum < Test::Unit::TestCase
-
-  class User < Striuct.new
-    member :id, Integer
-    member :last_name, /\A\w+\z/
-    member :family_name, /\A\w+\z/
-    member :address, /\A((\w+) ?)+\z/
-    member :age, ->age{(20..140).include? age}
-  end
-
-  def setup
-    @user = User.new 9999, 'taro', 'yamada', 'Tokyo Japan', 30
-    @user2 = User.new 9999, 'taro', 'yamada', 'Tokyo Japan', 30
-  end
-  
-  def test_each
-    assert_same @user, @user.each{}
-    assert_kind_of Enumerator, enum = @user.each
-    assert_equal enum.next, 9999
-    assert_equal enum.next, 'taro'
-  end
-  
-  def test_each_member
-    assert_same @user, @user.each_member{}
-    assert_kind_of Enumerator, enum = @user.each_member
-    assert_equal :id, enum.next
-    assert_equal :last_name, enum.next
-    assert_equal :family_name, enum.next
-    assert_equal :address, enum.next
-    assert_equal :age, enum.next
-    assert_raises StopIteration do
-      enum.next
-    end
-  end
-  
-  def test_each_index
-    assert_same @user, @user.each_index{}
-    assert_kind_of Enumerator, enum = @user.each_index
-    assert_equal 0, enum.next
-    assert_equal 1, enum.next
-    assert_equal 2, enum.next
-    assert_equal 3, enum.next
-    assert_equal 4, enum.next
-    assert_raises StopIteration do
-      enum.next
-    end
-  end
-  
-  def test_each_with_index
-    assert_same @user, @user.each_with_index{}
-    assert_kind_of Enumerator, @user.each_with_index
-    
-    r = []
-    @user.each_with_index do |value, index|
-      r << [value, index]
-    end
-    
-    assert_equal [@user.each_value.to_a, @user.each_index.to_a].transpose, r
-  end
-
-  def test_each_member_with_index
-    assert_same @user, @user.each_member_with_index{}
-    assert_kind_of Enumerator, @user.each_member_with_index
-    
-    r = []
-    @user.each_member_with_index do |name, index|
-      r << [name, index]
-    end
-    
-    assert_equal [@user.each_key.to_a, @user.each_index.to_a].transpose, r
-  end
-  
-  Sth = Striuct.define do
-    member :name
-    member :age
-  end
-  
-  def test_each_pair_with_index
-    sth = Sth.new 'a', 10
-    assert_same sth, sth.each_pair_with_index{}
-    
-    enum = sth.each_pair_with_index    
-    assert_equal [:name, 'a', 0], enum.next
-    assert_equal [:age, 10, 1], enum.next
-    assert_raises StopIteration do
-      enum.next
-    end
-  end
-
-end

data/test/test_striuct-subclass-instance-validation_functional_condition.rb

@@ -1,51 +0,0 @@
-require_relative 'helper'
-
-class TestStriuctFunctionalCondition < Test::Unit::TestCase
-
-  Sthlambda = Striuct.new do
-    member :lank, ->lank{lanks.include? lank}
-    member :lanks
-    default :lanks, 1..30
-  end
-  
-  def test_lambda
-    sth = Sthlambda.new
-    sth.lank = 2
-    assert_equal 2, sth.lank
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.lank = 31
-    end
-  end
-  
-  max = 9
-
-  SthProc = Striuct.new do
-    member :lank, Proc.new{|n|(3..max) === n}
-  end
-
-  def test_Proc
-    sth = SthProc.new
-    sth.lank = 8
-    assert_equal 8, sth.lank
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.lank = 2
-    end
-  end
-  
-  SthMethod = Striuct.new do
-    member :lank, 7.method(:<)
-  end
-  
-  def test_Method
-    sth = SthMethod.new
-    sth.lank = 8
-    assert_equal 8, sth.lank
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.lank = 6
-    end
-  end
-
-end

data/test/test_striuct-subclass-instance_names.rb

@@ -1,18 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Instance_Names < Test::Unit::TestCase
-
-  class User < Striuct.new
-    member :id, Integer
-    member :last_name, /\A\w+\z/
-    member :family_name, /\A\w+\z/
-    member :address, /\A((\w+) ?)+\z/
-    member :age, ->age{(20..140).include? age}
-  end
-
-  def test_members
-    user = User.new 9999, 'taro', 'yamada', 'Tokyo Japan', 30
-    assert_equal user.members, [:id, :last_name, :family_name, :address, :age]
-  end
-
-end

data/test/test_striuct-version.rb

@@ -1,11 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Version < Test::Unit::TestCase
-
-  def test_const_version
-    assert_kind_of String, Striuct::VERSION
-    assert(/\A\d+\.\d+\.\d+(\.\w+)?\z/ =~ Striuct::VERSION)
-    assert_equal true, Striuct::VERSION.frozen?
-  end
-
-end