striuct 0.6.1 → 0.9.0

data/example/example2.rb

@@ -1,20 +0,0 @@
-#!/usr/local/bin/ruby -w
-
-require_relative '../lib/striuct'
-
-User = Striuct.define do  # other way "class User < Striuct.new"
-  member :firstname, /\w+/ # look like case syntax in Ruby
-  member :lank, AND(Fixnum, 1..10) # easy build multiple validation
-  default :lank, 3        # set a normal default value
-  member :registered, Time # look like type variable
-  default :registered, &->{Time.now} # evaluate with construction          
-  p members #=> [firstname, lank, registered]
-end
-
-class MyUser < User
-  p members #=> [firstname, lank, registered]
-  member :foo # no validation, just an accessor
-  p members #=> [firstname, lank, registered, :foo]
-end
-
-user = MyUser.new

data/example/see_trace.rb

@@ -1,32 +0,0 @@
-#/usr/bin/ruby -w
-
-require_relative '../lib/striuct'
-
-class User < Striuct.new
-  member :id,   Integer
-  member :age,  (20..140)
-end
-
-user = User.new
-
-begin
-  user[:id] = 10.0
-rescue
-  puts $!.backtrace
-end
-
-puts '-' * 80
-
-$stdout.flush
-
-begin
-  user.age = 19
-rescue
-  puts $!.backtrace
-end
-
-puts '-' * 80
-
-$stdout.flush
-
-user.age = 19

data/lib/striuct/instancemethods/keyvalidatable.rb

@@ -1,9 +0,0 @@
-class Striuct; module InstanceMethods
-
-  KeyValidatable.instance_methods.each do |feature|
-    if specific_feature = feature.to_s.sub!('members'){'autonyms'}
-      def_delegator :self, feature, specific_feature.to_sym
-    end
-  end
-
-end; end

data/striuct.gemspec

@@ -1,45 +0,0 @@
-# coding: us-ascii
-
-lib_name = 'striuct'.freeze
-
-Gem::Specification.new do |gem|
-  # specific
-
-  gem.description   = %q{Struct++ library.
-
----
-
-  Validatable, Inheritable, Member Aliasing,
-  Conflict Management, Default Value, Divide nil with unassign,
-  Lock setter of each member, Hash flendly API, ... And more Struct++ features :)}
-
-  gem.summary       = gem.description.dup
-  gem.homepage      = "https://github.com/kachick/#{lib_name}"
-  gem.license       = 'MIT'
-  gem.name          = lib_name.dup
-  gem.version       = '0.6.1'
-
-  gem.required_ruby_version = '>= 2.2'
-
-  gem.add_runtime_dependency 'validation', '~> 0.1'
-  gem.add_runtime_dependency 'optionalargument', '~> 0.3'
-  gem.add_runtime_dependency 'keyvalidatable'
-
-  gem.add_development_dependency 'test-unit', '>= 3.2.6', '< 4'
-  gem.add_development_dependency 'yard', '>= 0.9.11', '< 2.0'
-  gem.add_development_dependency 'rake', '>= 10', '< 20'
-  gem.add_development_dependency 'bundler', '>= 1.10', '< 2'
-
-  if RUBY_ENGINE == 'rbx'
-    gem.add_dependency 'rubysl', '~> 2.2'
-  end
-
-  # common
-
-  gem.authors       = ['Kenichi Kamiya']
-  gem.email         = ['kachick1+ruby@gmail.com']
-  gem.files         = `git ls-files`.split($\)
-  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
-  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
-  gem.require_paths = ['lib']
-end

data/test/helper.rb

@@ -1,3 +0,0 @@
-require 'test/unit'
-
-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, Integer
-  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
-    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
-    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, Integer)
-  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