striuct 0.4.4 → 0.7.0

data/test/helper.rb

@@ -1,5 +0,0 @@
-require 'test/unit'
-
-$VERBOSE = true
-
-require_relative '../lib/striuct'

data/test/test_sglc-constructor.rb

@@ -1,36 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Constructor < Test::Unit::TestCase
-
-  def test_new
-    cls = Striuct.new
-    assert_not_instance_of Striuct, cls
-    assert_instance_of Class, cls
-    assert_kind_of Striuct, cls.new
-    
-    cls2 = Striuct.new :name, :age
-    
-    assert_equal cls2.members, [:name, :age]
-    
-    cls3 = Striuct.new :foo do
-      member :var
-    end
-    
-    assert_equal cls3.members, [:foo, :var]
-  end
-
-  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_subc-c-add_members.rb

@@ -1,13 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Macro < Test::Unit::TestCase
-  
-  def test_add_members
-    klass = Striuct.new :foo do
-      add_members :aaa, 'bbb', :ccc
-    end
-    
-    assert_equal [:foo, :aaa, :bbb, :ccc], klass.members
-  end
-
-end  

data/test/test_subc-c-close_member.rb

@@ -1,36 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Close < Test::Unit::TestCase
-
-  Sth = Striuct.new do
-    member :foo
-  end
-
-  def test_class_close
-    sth = Sth.new
-
-    assert_equal true, sth.member?(:foo)
-
-    Sth.class_eval do
-      member :bar
-    end
-
-    assert_equal true, sth.member?(:bar)
-    assert_equal [:foo, :bar], sth.members
-    
-    assert_equal false, Sth.closed?
-    
-    Sth.__send__ :close
-    
-    assert_equal true, Sth.closed?
-   
-    assert_raises RuntimeError do
-      Sth.class_eval do
-        member :var2
-      end
-    end
-   
-    assert_equal false, sth.member?(:var2)
-  end
-
-end

data/test/test_subc-c-constructor.rb

@@ -1,92 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Constructor < Test::Unit::TestCase
-
-  User = Striuct.define do
-    member :name, AND(String, NOT(''))
-    member :age, Fixnum
-  end.freeze
-  
-  [:for_values, :new].each do |callee|
-    define_method :"test_subclass_#{callee}" do
-      user = User.public_send callee
-      assert_instance_of User, user
-      assert_not_kind_of Class, user
-      assert_equal [:name, :age], user.members
-      assert_equal [nil, nil], user.values
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, :SYMBOL
-      end
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, ''
-      end
-      
-      user = User.public_send callee, '.'
-      assert_instance_of User, user
-      assert_not_kind_of Class, user
-      assert_equal ['.', nil], user.values
-      
-      assert_raises Validation::InvalidWritingError do
-        User.public_send callee, '.', 1.0
-      end
-      
-      user = User.public_send callee, '.', 1
-      assert_equal ['.', 1], user.values
-    end
-  end
-  
-  def test_define
-    user = User.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    
-    assert_raises RuntimeError do
-      user.age = 1
-    end
-    
-    user = User.define{|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.all_locked?
-    assert_same false, user.frozen?
-    
-    assert_raises RuntimeError do
-      User.define{|r|r.age = 1}
-    end
-    
-    user = User.define(lock: true){|r|r.age = 1; r.name = 'a'}
-    assert_same 1, user.age
-    assert_same true, user.all_locked?
-    user = User.define(lock: false){|r|r.age = 1; r.name = 'a'}
-    assert_same false, user.all_locked?
-    assert_equal true, user.strict?
-    
-    assert_raises Validation::InvalidWritingError do
-      User.define{|r|r.age = 1; r.name = 'a'; r.name.clear}
-    end
-    
-    user = User.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
-
-    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_subc-c-copy.rb

@@ -1,71 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Copy < Test::Unit::TestCase
-
-  def test_dup
-    org_cls = Striuct.define do
-      member :sth
-    end.freeze
-
-    assert_same true, org_cls.frozen?
-    assert_same true, org_cls.closed?
-    cls2 = org_cls.dup
-    assert_same true, org_cls.frozen?
-    assert_same true, org_cls.closed?
-    assert_same false, cls2.frozen?
-    assert_same false, cls2.closed?
-    cls2.__send__ :member, :dummy1
-    assert_same false, org_cls.member?(:dummy1)
-  end
-  
-  def test_clone
-    org_cls = Striuct.define do
-      member :sth
-    end.freeze
-
-    assert_same true, org_cls.frozen?    
-    assert_same true, org_cls.closed?
-    cls2 = org_cls.clone
-    assert_same true, org_cls.frozen?
-    assert_same true, org_cls.closed?
-    assert_same true, cls2.frozen?
-    assert_same true, cls2.closed?
-  end
-
-  def test_dup_deep
-    org_cls =  Striuct.define do
-      member :foo, Numeric, inference: true
-    end
-
-    foo = org_cls.new
-    cls2 = org_cls.dup
-    foo2 = cls2.new
-    foo2.foo = 0.1
-    assert_raises Validation::InvalidWritingError do
-      foo2.foo = 1
-    end
-
-    foo.foo = 1
-
-    assert_same 1, foo.foo
-  end
-
-  def test_clone_deep
-    org_cls =  Striuct.define do
-      member :foo, Numeric, inference: true
-    end
-
-    foo = org_cls.new
-    cls2 = org_cls.clone
-    foo2 = cls2.new
-    foo2.foo = 0.1
-    assert_raises Validation::InvalidWritingError do
-      foo2.foo = 1
-    end
-
-    foo.foo = 1
-
-    assert_same 1, foo.foo
-  end
-
-end

data/test/test_subc-c-freeze.rb

@@ -1,36 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Freeze < Test::Unit::TestCase
-
-  Sth = Striuct.new do
-    member :foo
-  end
-
-  def test_class_freeze
-    sth = Sth.new
-
-    assert_same true, sth.member?(:foo)
-
-    Sth.class_eval do
-      member :bar
-    end
-
-    assert_same true, sth.member?(:bar)
-    assert_equal [:foo, :bar], sth.members
-    
-    assert_same false, Sth.frozen?
-    
-    Sth.freeze
-    
-    assert_same true, Sth.frozen?
-   
-    assert_raises RuntimeError do
-      Sth.class_eval do
-        member :var2
-      end
-    end
-   
-    assert_same false, sth.member?(:var2)
-  end
-
-end

data/test/test_subc-c-inheritable.rb

@@ -1,58 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_Inheritable < Test::Unit::TestCase
-
-  Sth = Striuct.define do
-    member :foo, String
-    member :bar, OR(nil, Fixnum)
-  end
-  
-  class SubSth < Sth
-    member :hoge, OR(nil, 1..3)
-  end
-  
-  class SubSubSth < SubSth
-    member :rest, AND(/\d/, Symbol)
-  end
-  
-  def test_inherit
-    assert_equal [*Sth.members, :hoge], SubSth.members
-    sth = Sth.new
-    substh = SubSth.new
-
-    assert_raises Validation::InvalidWritingError do
-      substh.bar = 'str'
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      substh.hoge = 4
-    end
-    
-    assert_raises NoMethodError do
-      sth.hoge = 3
-    end
-    
-    assert_raises NoMethodError do
-      substh.rest = :a4
-    end
-    
-    subsubsth = SubSubSth.new
-    
-    assert_raises Validation::InvalidWritingError do
-      subsubsth.rest = 4
-    end
-    
-    subsubsth.rest = :a4
-    
-    assert_equal :a4, subsubsth[:rest]
-    
-    assert_equal true, Sth.__send__(:closed?)
-    assert_equal false, SubSth.__send__(:closed?)
-    SubSth.__send__(:close)
-    assert_equal true, SubSth.__send__(:closed?)
-    assert_equal false, SubSubSth.__send__(:closed?)
-    SubSubSth.__send__(:close)
-    assert_equal true, SubSubSth.__send__(:closed?)
-  end
-
-end

data/test/test_subc-c-safety_naming.rb

@@ -1,73 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_Class_SafetyNaming < Test::Unit::TestCase
-
-  def test_cname?
-    klass = Striuct.new
-    assert_same false, klass.cname?(BasicObject)
-    assert_same false, klass.cname?('m?')
-    assert_same false, klass.cname?('__foo__')
-    assert_same false, klass.cname?('a b')
-    assert_same false, klass.cname?('object_id')
-    assert_same false, klass.cname?('to_ary')
-    assert_same true, klass.cname?('foo')
-    klass.__send__ :set_conflict_management_level, :warning
-    assert_same false, klass.cname?('m?')
-    assert_same false, klass.cname?('__foo__')
-    assert_same false, klass.cname?('a b')
-    assert_same false, klass.cname?('object_id')
-    assert_same false, klass.cname?('to_ary')
-    assert_same true, klass.cname?('foo')
-    klass.__send__ :set_conflict_management_level, :struct
-    assert_same true, klass.cname?('m?')
-    assert_same true, klass.cname?('__foo__')
-    assert_same true, klass.cname?('a b')
-    assert_same true, klass.cname?('object_id')
-    assert_same true, klass.cname?('to_ary')
-    assert_same true, klass.cname?('foo')
-  end
-  
-  def test_protect
-    klass = Striuct.new
-    assert_raises NameError do
-      klass.class_eval do
-        member ''
-      end
-    end
-    
-    assert_raises NameError do
-      klass.class_eval do
-        member :'a b'
-      end
-    end
-
-    assert_raises NameError do
-      klass.class_eval do
-        member :'__send__'
-      end
-    end
-
-    assert_raises NameError do
-      klass.class_eval do
-        member :'__foo__'
-      end
-    end
-    
-    assert_raises NameError do
-      klass.class_eval do
-        member :'m?'
-      end
-    end
-  
-    assert_same false, klass.member?('m?')
-    
-    klass.class_eval do
-      conflict_management :struct do
-        member :'m?'
-      end
-    end
-    
-    assert_same true, klass.member?('m?')
-  end
-
-end

data/test/test_subc-f-alias_member.rb

@@ -1,54 +0,0 @@
-require_relative 'helper'
-
-class Test_Striuct_Subclass_AliasMember < Test::Unit::TestCase
-
-  class Sth < Striuct.new
-    member :foo, String
-    
-    member :bar, Integer do |v|
-      v
-    end
-    
-    member :hoge, Symbol
-    default :hoge, :'Z'
-    alias_member :abc, :bar
-    default :abc, 8
-  end
-
-  def test_alias_member
-    sth = Sth.new 'A'
-    assert_equal [:foo, :bar, :hoge], sth.members
-    assert_equal [:foo, :bar, :hoge], sth.autonyms
-    assert_equal({abc: :bar}, sth.aliases)
-    assert_equal [:foo, :bar, :hoge, :abc], sth.all_members
-
-    assert_equal 8, sth[:abc]
-    adjuster = Sth.__send__(:adjuster_for, :abc)
-    assert_kind_of Proc, adjuster
-    assert_same adjuster, Sth.__send__(:adjuster_for, :bar)
-    assert_equal 8, sth.abc
-    sth.abc = 5
-    assert_equal 5, sth.bar
-    sth[:abc] = 6
-    assert_equal 6, sth.bar
-    
-    assert_raises Validation::InvalidWritingError do
-      sth[:abc] = 'a'
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.abc = 'a'
-    end
-    
-    assert_raises Validation::InvalidWritingError do
-      sth.bar = 'a'
-    end
-    
-    assert_raises ArgumentError do
-      Sth.class_eval do
-        member :abc
-      end
-    end
-  end
-
-end