striuct 0.3.3 → 0.3.4

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

@@ -1,137 +1,137 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Instance_Setter < 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_setter
-    user = User.new
-    user[:last_name] = 'foo'
-    assert_equal user.last_name, 'foo'
-    user.last_name = 'bar'
-    assert_equal user[:last_name], 'bar'
-    
-    assert_raises Validation::InvalidWritingError do
-      user[:last_name] = 'foo s'
-    end
-  
-    assert_raises Validation::InvalidWritingError do
-      User.new 'asda'
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      user.age = 19
-    end
-  end
-
-end
-
-class Test_Striuct_Subclass_Instance_Accessor_With_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 setup
-    @user = User.new 9999, 'taro', 'yamada', 'Tokyo Japan', 30
-  end
-
-  def test_reader
-    assert_equal @user[1], 'taro'
-    assert_equal @user[:last_name], 'taro'
-    assert_equal @user.last_name, 'taro'
-  end
-
-  def test_setter_pass
-    assert_equal((@user.id = 2139203509295), 2139203509295)
-    assert_equal @user.id, 2139203509295
-    assert_equal((@user.last_name = 'jiro'), 'jiro')
-    assert_equal @user.last_name, 'jiro'
-    assert_equal((@user.age = 40), 40)
-    assert_equal @user.age, 40
-  end
-  
-  def test_setter_fail
-    assert_raises Validation::InvalidWritingError do
-      @user.id = 2139203509295.0
-    end
-
-    assert_raises Validation::InvalidWritingError do
-      @user.last_name = 'ignore name'
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      @user.age = 19
-    end
-  end
-  
-  def test_strict?
-    assert_same @user.sufficient?(:last_name), true
-    assert_same @user.strict?, true
-    assert_same @user.sufficient?(:last_name), true
-    @user.last_name.clear
-    assert_same @user.sufficient?(:last_name), false
-    assert_same @user.strict?, false
-  end
-
-end
-
-
-class Test_Striuct_Subclass_Instance_Accsessor < Test::Unit::TestCase
-
-  class Sth < Striuct.new
-    member :bool, OR(true, false)
-    member :sth
-    protect_level :struct
-    member :lambda, OR(->v{v % 3 == 2}, ->v{v.kind_of? Float})
-  end
-  
-  def setup
-    @sth = Sth.new
-  end
-
-  def test_accessor
-    @sth.bool = true
-    assert_same true, @sth.bool
-    @sth.bool = false
-    assert_same false, @sth.bool
-    
-    assert_raises Validation::InvalidWritingError do
-      @sth.bool = nil
-    end
-    
-    @sth.sth = 1
-    assert_same 1, @sth.sth
-
-    @sth.sth = 'String'
-    assert_equal 'String', @sth.sth
-    
-    @sth.sth = Class.class
-    assert_same Class.class, @sth.sth
-    
-    assert_raises Validation::InvalidWritingError do
-      @sth.lambda = 9
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      @sth.lambda = 7
-    end
-    
-    @sth.lambda = 8
-    assert_same 8, @sth.lambda
-
-    @sth.lambda = 9.0
-    assert_equal 9.0, @sth.lambda
-  end
-
-end
+require_relative 'helper'
+
+class Test_Striuct_Subclass_Instance_Setter < 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_setter
+    user = User.new
+    user[:last_name] = 'foo'
+    assert_equal user.last_name, 'foo'
+    user.last_name = 'bar'
+    assert_equal user[:last_name], 'bar'
+    
+    assert_raises Validation::InvalidWritingError do
+      user[:last_name] = 'foo s'
+    end
+  
+    assert_raises Validation::InvalidWritingError do
+      User.new 'asda'
+    end
+    
+    assert_raises Validation::InvalidWritingError do
+      user.age = 19
+    end
+  end
+
+end
+
+class Test_Striuct_Subclass_Instance_Accessor_With_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 setup
+    @user = User.new 9999, 'taro', 'yamada', 'Tokyo Japan', 30
+  end
+
+  def test_reader
+    assert_equal @user[1], 'taro'
+    assert_equal @user[:last_name], 'taro'
+    assert_equal @user.last_name, 'taro'
+  end
+
+  def test_setter_pass
+    assert_equal((@user.id = 2139203509295), 2139203509295)
+    assert_equal @user.id, 2139203509295
+    assert_equal((@user.last_name = 'jiro'), 'jiro')
+    assert_equal @user.last_name, 'jiro'
+    assert_equal((@user.age = 40), 40)
+    assert_equal @user.age, 40
+  end
+  
+  def test_setter_fail
+    assert_raises Validation::InvalidWritingError do
+      @user.id = 2139203509295.0
+    end
+
+    assert_raises Validation::InvalidWritingError do
+      @user.last_name = 'ignore name'
+    end
+    
+    assert_raises Validation::InvalidWritingError do
+      @user.age = 19
+    end
+  end
+  
+  def test_strict?
+    assert_same @user.sufficient?(:last_name), true
+    assert_same @user.strict?, true
+    assert_same @user.sufficient?(:last_name), true
+    @user.last_name.clear
+    assert_same @user.sufficient?(:last_name), false
+    assert_same @user.strict?, false
+  end
+
+end
+
+
+class Test_Striuct_Subclass_Instance_Accsessor < Test::Unit::TestCase
+
+  class Sth < Striuct.new
+    member :bool, OR(true, false)
+    member :sth
+    protect_level :struct
+    member :lambda, OR(->v{v % 3 == 2}, ->v{v.kind_of? Float})
+  end
+  
+  def setup
+    @sth = Sth.new
+  end
+
+  def test_accessor
+    @sth.bool = true
+    assert_same true, @sth.bool
+    @sth.bool = false
+    assert_same false, @sth.bool
+    
+    assert_raises Validation::InvalidWritingError do
+      @sth.bool = nil
+    end
+    
+    @sth.sth = 1
+    assert_same 1, @sth.sth
+
+    @sth.sth = 'String'
+    assert_equal 'String', @sth.sth
+    
+    @sth.sth = Class.class
+    assert_same Class.class, @sth.sth
+    
+    assert_raises Validation::InvalidWritingError do
+      @sth.lambda = 9
+    end
+    
+    assert_raises Validation::InvalidWritingError do
+      @sth.lambda = 7
+    end
+    
+    @sth.lambda = 8
+    assert_same 8, @sth.lambda
+
+    @sth.lambda = 9.0
+    assert_equal 9.0, @sth.lambda
+  end
+
+end

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

@@ -1,95 +1,95 @@
-require_relative 'helper'
-
-
-class Test_Striuct_Subclass_Instance_Adjuster < Test::Unit::TestCase
-
-  class MyClass
-    def self.parse(v)
-      raise unless /\A[a-z]+\z/ =~ v
-      new
-    end
-  end
-  
-  Sth = Striuct.define do
-    member :chomped, AND(Symbol, /[^\n]\z/), &WHEN(String, ->v{v.chomp.to_sym})
-    member :no_reduced, Symbol, &->v{v.to_sym}
-    member :reduced, Symbol, &INJECT(->v{v.to_s}, ->v{v.to_sym})
-    member :integer, Integer, &PARSE(Integer)
-    member :myobj, ->v{v.instance_of? MyClass}, &PARSE(MyClass)
-  end
-  
-  def test_WHEN
-    sth = Sth.new
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.chomped = :"a\n"
-    end
-    
-    sth.chomped = "a\n"
-    
-    assert_equal :a, sth.chomped
-    
-    sth.chomped = :b
-    assert_equal :b, sth.chomped
-  end
-
-  def test_INJECT
-    sth = Sth.new
-    
-    assert_raises Validation::UnmanagebleError do
-      sth.no_reduced = 1
-    end
-    
-    sth.reduced = 1
-    
-    assert_equal :'1', sth.reduced
-  end
-  
-  def test_PARSE
-    sth = Sth.new
-    
-    assert_raises Validation::UnmanagebleError do
-      sth.integer = '1.0'
-    end
-    
-    sth.integer = '1'
-    
-    assert_equal 1, sth.integer
-    
-    assert_raises Validation::UnmanagebleError do
-      sth.myobj = '1'
-    end
-    
-    sth.myobj = 'a'
-    
-    assert_kind_of MyClass, sth.myobj
-  end
-
-end
-
-class Test_Striuct_Subclass_Instance_AdjusterOld < Test::Unit::TestCase
-
-  Sth = Striuct.new do
-    member :age, Numeric, &->arg{Integer arg}
-  end
-  
-  def setup
-    @sth = Sth.new
-    assert_same nil, @sth.age
-  end
-  
-  def test_procedure
-    @sth.age = 10
-    assert_same 10, @sth.age
-    @sth.age = 10.0
-    assert_same 10, @sth.age
-
-    assert_raises Validation::UnmanagebleError do
-      @sth.age = '10.0'
-    end
-    
-    @sth.age = '10'
-    assert_same 10, @sth.age
-  end
-
+require_relative 'helper'
+
+
+class Test_Striuct_Subclass_Instance_Adjuster < Test::Unit::TestCase
+
+  class MyClass
+    def self.parse(v)
+      raise unless /\A[a-z]+\z/ =~ v
+      new
+    end
+  end
+  
+  Sth = Striuct.define do
+    member :chomped, AND(Symbol, /[^\n]\z/), &WHEN(String, ->v{v.chomp.to_sym})
+    member :no_reduced, Symbol, &->v{v.to_sym}
+    member :reduced, Symbol, &INJECT(->v{v.to_s}, ->v{v.to_sym})
+    member :integer, Integer, &PARSE(Integer)
+    member :myobj, ->v{v.instance_of? MyClass}, &PARSE(MyClass)
+  end
+  
+  def test_WHEN
+    sth = Sth.new
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.chomped = :"a\n"
+    end
+    
+    sth.chomped = "a\n"
+    
+    assert_equal :a, sth.chomped
+    
+    sth.chomped = :b
+    assert_equal :b, sth.chomped
+  end
+
+  def test_INJECT
+    sth = Sth.new
+    
+    assert_raises Validation::UnmanagebleError do
+      sth.no_reduced = 1
+    end
+    
+    sth.reduced = 1
+    
+    assert_equal :'1', sth.reduced
+  end
+  
+  def test_PARSE
+    sth = Sth.new
+    
+    assert_raises Validation::UnmanagebleError do
+      sth.integer = '1.0'
+    end
+    
+    sth.integer = '1'
+    
+    assert_equal 1, sth.integer
+    
+    assert_raises Validation::UnmanagebleError do
+      sth.myobj = '1'
+    end
+    
+    sth.myobj = 'a'
+    
+    assert_kind_of MyClass, sth.myobj
+  end
+
+end
+
+class Test_Striuct_Subclass_Instance_AdjusterOld < Test::Unit::TestCase
+
+  Sth = Striuct.new do
+    member :age, Numeric, &->arg{Integer arg}
+  end
+  
+  def setup
+    @sth = Sth.new
+    assert_same nil, @sth.age
+  end
+  
+  def test_procedure
+    @sth.age = 10
+    assert_same 10, @sth.age
+    @sth.age = 10.0
+    assert_same 10, @sth.age
+
+    assert_raises Validation::UnmanagebleError do
+      @sth.age = '10.0'
+    end
+    
+    @sth.age = '10'
+    assert_same 10, @sth.age
+  end
+
 end

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

@@ -1,30 +1,30 @@
-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
+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-basic.rb

@@ -1,32 +1,32 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Instance_Basic < 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_delegate_class_method
-    assert_equal @user.members, User.members
-    assert_equal @user.size, User.size
-    assert_equal @user.member?(:age), User.member?(:age)
-  end
-
-  def test_values
-    assert_equal @user.values, [9999, 'taro', 'yamada', 'Tokyo Japan', 30]
-  end
-  
-  def test_values_at
-    assert_equal(@user.values_at(4, 0, (2..4)), [30, 9999, 'yamada', 'Tokyo Japan', 30])
-  end
-
-end
+require_relative 'helper'
+
+class Test_Striuct_Subclass_Instance_Basic < 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_delegate_class_method
+    assert_equal @user.members, User.members
+    assert_equal @user.size, User.size
+    assert_equal @user.member?(:age), User.member?(:age)
+  end
+
+  def test_values
+    assert_equal @user.values, [9999, 'taro', 'yamada', 'Tokyo Japan', 30]
+  end
+  
+  def test_values_at
+    assert_equal(@user.values_at(4, 0, (2..4)), [30, 9999, 'yamada', 'Tokyo Japan', 30])
+  end
+
+end

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

@@ -1,23 +1,23 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Instance_Cloning < Test::Unit::TestCase
-
-  class Sth < Striuct.new
-    member :sth
-  end
-  
-  def test_dup
-    sth = Sth.new
-    sth2 = sth.dup
-    sth.sth = 1
-    assert_equal false, (sth.sth == sth2.sth)
-  end
-  
-  def test_clone
-    sth = Sth.new
-    sth2 = sth.clone
-    sth.sth = 2
-    assert_equal false, (sth.sth == sth2.sth)
-  end
-
+require_relative 'helper'
+
+class Test_Striuct_Subclass_Instance_Cloning < Test::Unit::TestCase
+
+  class Sth < Striuct.new
+    member :sth
+  end
+  
+  def test_dup
+    sth = Sth.new
+    sth2 = sth.dup
+    sth.sth = 1
+    assert_equal false, (sth.sth == sth2.sth)
+  end
+  
+  def test_clone
+    sth = Sth.new
+    sth2 = sth.clone
+    sth.sth = 2
+    assert_equal false, (sth.sth == sth2.sth)
+  end
+
 end