striuct 0.3.0 → 0.3.1

data/test/test_striuct_subclass_specific_conditions.rb

@@ -0,0 +1,247 @@
+require_relative 'helper'
+
+class TestStriuctSpecificConditions < Test::Unit::TestCase
+
+  Sth = Striuct.define do
+    member :list_only_int, GENERICS(Integer)
+    member :true_or_false, BOOL?
+    member :like_str, STRINGABLE?
+    member :has_foo, CAN(:foo)
+    member :has_foo_and_bar, CAN(:foo, :bar)
+    member :one_of_member, MEMBER_OF([1, 3])
+    member :has_ignore, AND(1..5, 3..10)
+    member :nand, NAND(1..5, 3..10)
+    member :all_pass, OR(1..5, 3..10)
+    member :catch_error, CATCH(NoMethodError){|v|v.no_name!}
+    member :no_exception, QUIET(->v{v.class})
+    member :not_integer, NOT(Integer)
+  end
+
+  def test_not
+    sth = Sth.new
+    
+    obj = Object.new
+    
+    sth.not_integer = obj
+    assert_same obj, sth.not_integer
+
+    assert_raises Validation::InvalidWritingError do
+      sth.not_integer = 1
+    end
+  end
+
+
+  def test_still
+    sth = Sth.new
+    
+    obj = Object.new
+    
+    sth.no_exception = obj
+    assert_same obj, sth.no_exception
+    sth.no_exception = false
+
+    obj.singleton_class.class_eval do
+      undef_method :class
+    end
+
+    assert_raises Validation::InvalidWritingError do
+      sth.no_exception = obj
+    end
+  end
+
+  def test_catch
+    sth = Sth.new
+    
+    obj = Object.new
+    
+    sth.catch_error = obj
+    assert_same obj, sth.catch_error
+    sth.catch_error = false
+
+    obj.singleton_class.class_eval do
+      def no_name!
+      end
+    end
+
+    assert_raises Validation::InvalidWritingError do
+      sth.catch_error = obj
+    end
+  end
+
+  def test_or
+    sth = Sth.new
+
+    assert_raises Validation::InvalidWritingError do
+      sth.all_pass = 11
+    end
+    
+    sth.all_pass = 1
+    assert_equal 1, sth.all_pass
+    sth.all_pass = 4
+    assert_equal 4, sth.all_pass
+    assert_equal true, sth.valid?(:all_pass)
+  end
+
+  def test_and
+    sth = Sth.new
+
+    assert_raises Validation::InvalidWritingError do
+      sth.has_ignore = 1
+    end
+
+    assert_raises Validation::InvalidWritingError do
+      sth.has_ignore= 2
+    end
+  
+    sth.has_ignore = 3
+    assert_equal 3, sth.has_ignore
+    assert_equal true, sth.valid?(:has_ignore)
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.has_ignore = []
+    end
+  end
+
+  def test_nand
+    sth = Sth.new
+
+    assert_raises Validation::InvalidWritingError do
+      sth.nand = 4
+    end
+
+    assert_raises Validation::InvalidWritingError do
+      sth.nand = 4.5
+    end
+  
+    sth.nand = 2
+    assert_equal 2, sth.nand
+    assert_equal true, sth.valid?(:nand)
+    sth.nand = []
+    assert_equal [], sth.nand
+  end
+
+  def test_member_of
+    sth = Sth.new
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.one_of_member = 4
+    end
+  
+    sth.one_of_member = 3
+    assert_equal 3, sth.one_of_member
+    assert_equal true, sth.valid?(:one_of_member)
+  end
+  
+  def test_generics
+    sth = Sth.new
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.list_only_int = [1, '2']
+    end
+  
+    sth.list_only_int = [1, 2]
+    assert_equal [1, 2], sth.list_only_int
+    assert_equal true, sth.valid?(:list_only_int)
+    sth.list_only_int = []
+    assert_equal [], sth.list_only_int
+    assert_equal true, sth.valid?(:list_only_int)
+    sth.list_only_int << '2'
+    assert_equal false, sth.valid?(:list_only_int)
+  end
+  
+  def test_boolean
+    sth = Sth.new
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.true_or_false = nil
+    end
+    
+    assert_equal false, sth.valid?(:true_or_false)
+  
+    sth.true_or_false = true
+    assert_equal true, sth.true_or_false
+    assert_equal true, sth.valid?(:true_or_false)
+    sth.true_or_false = false
+    assert_equal false, sth.true_or_false
+    assert_equal true, sth.valid?(:true_or_false)
+  end
+  
+  def test_stringable
+    sth = Sth.new
+    obj = Object.new
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.like_str = obj
+    end
+  
+    sth.like_str = 'str'
+    assert_equal true, sth.valid?(:like_str)
+    sth.like_str = :sym
+    assert_equal true, sth.valid?(:like_str)
+    
+    obj.singleton_class.class_eval do
+      def to_str
+      end
+    end
+    
+    sth.like_str = obj
+    assert_equal true, sth.valid?(:like_str)
+  end
+
+  def test_responsible_arg1
+    sth = Sth.new
+    obj = Object.new
+    
+    raise if obj.respond_to? :foo
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.has_foo = obj
+    end
+    
+    obj.singleton_class.class_eval do
+      def foo
+      end
+    end
+    
+    raise unless obj.respond_to? :foo
+    
+    sth.has_foo = obj
+    assert_equal obj, sth.has_foo
+    assert_equal true, sth.valid?(:has_foo)
+  end
+
+  def test_responsible_arg2
+    sth = Sth.new
+    obj = Object.new
+    
+    raise if obj.respond_to? :foo
+    raise if obj.respond_to? :bar
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.has_foo_and_bar = obj
+    end
+    
+    obj.singleton_class.class_eval do
+      def foo
+      end
+    end
+    
+    assert_raises Validation::InvalidWritingError do
+      sth.has_foo_and_bar = obj
+    end
+    
+    raise unless obj.respond_to? :foo
+    
+    obj.singleton_class.class_eval do
+      def bar
+      end
+    end
+    
+    raise unless obj.respond_to? :bar
+    
+    sth.has_foo_and_bar = obj
+    assert_equal obj, sth.has_foo_and_bar
+    assert_equal true, sth.valid?(:has_foo_and_bar)
+  end
+
+end

data/test/test_striuct_subclass_to_struct.rb

@@ -0,0 +1,25 @@
+require_relative 'helper'
+
+class TestStriuct_to_Struct < Test::Unit::TestCase
+
+  Sth = Striuct.define do
+    member :name, String
+    member :age, Integer
+  end
+  
+  def test_to_struct_class
+    klass = Sth.to_struct_class
+    assert_equal 'Striuct::Structs::Sth', klass.to_s
+    assert_same klass, Sth.to_struct_class
+    assert_kind_of Struct, Sth.new.to_struct
+    assert_kind_of Striuct::Structs::Sth, Sth.new.to_struct
+    
+    assert_raises RuntimeError do
+      Striuct.new.new.to_struct
+    end
+    
+    Striuct.new(:a, :b, :c).new.to_struct
+    assert_equal 1, Striuct::Structs.constants.length
+  end
+
+end

data/test/test_striuct_version.rb

@@ -0,0 +1,9 @@
+require_relative 'helper'
+
+class TestStriuctVersion < Test::Unit::TestCase
+
+  def test_const_version
+    assert_equal true, Striuct::VERSION.frozen?
+  end
+
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: striuct
 version: !ruby/object:Gem::Version
-  version: 0.3.0
+  version: 0.3.1
   prerelease: 
 platform: ruby
 authors:
@@ -9,113 +9,129 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-04-02 00:00:00.000000000 Z
+date: 2012-09-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: validation
-  requirement: &25171236 !ruby/object:Gem::Requirement
+  requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 0.0.3
+        version: 0.0.3.1
   type: :runtime
   prerelease: false
-  version_requirements: *25171236
-- !ruby/object:Gem::Dependency
-  name: rdoc
-  requirement: &25170780 !ruby/object:Gem::Requirement
+  version_requirements: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: '3.10'
-  type: :development
-  prerelease: false
-  version_requirements: *25170780
+        version: 0.0.3.1
 - !ruby/object:Gem::Dependency
-  name: yard
-  requirement: &25169988 !ruby/object:Gem::Requirement
+  name: keyvalidatable
+  requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ~>
       - !ruby/object:Gem::Version
-        version: 0.7.5
-  type: :development
+        version: 0.0.2
+  type: :runtime
   prerelease: false
-  version_requirements: *25169988
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: 0.0.2
 - !ruby/object:Gem::Dependency
-  name: newgem
-  requirement: &25169484 !ruby/object:Gem::Requirement
+  name: yard
+  requirement: !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
       - !ruby/object:Gem::Version
-        version: 1.5.3
+        version: 0.8.2.1
   type: :development
   prerelease: false
-  version_requirements: *25169484
-- !ruby/object:Gem::Dependency
-  name: hoe
-  requirement: &25168956 !ruby/object:Gem::Requirement
+  version_requirements: !ruby/object:Gem::Requirement
     none: false
     requirements:
-    - - ~>
+    - - ! '>='
       - !ruby/object:Gem::Version
-        version: '3.0'
-  type: :development
-  prerelease: false
-  version_requirements: *25168956
-description: Struct++
+        version: 0.8.2.1
+description: validatable, inheritable, And more Struct++ features :)
 email:
 - kachick1+ruby@gmail.com
 executables: []
 extensions: []
-extra_rdoc_files:
-- History.rdoc
-- Manifest.txt
-- README.rdoc
-- README.ja.old.rdoc
-- example/example.old.rdoc
+extra_rdoc_files: []
 files:
+- .gitignore
+- .travis.yml
+- Gemfile
 - History.rdoc
+- LICENSE
 - Manifest.txt
-- README.rdoc
 - README.ja.old.rdoc
+- README.md
 - Rakefile
-- LICENSE
+- benchmarks/basics.rb
+- examples/README.rb
+- examples/example.old.rdoc
+- examples/example1.rb
+- examples/example2.rb
+- examples/see_trace.rb
 - lib/striuct.rb
+- lib/striuct/classmethods.rb
+- lib/striuct/classmethods/basic.rb
+- lib/striuct/classmethods/constants.rb
+- lib/striuct/classmethods/constructor.rb
+- lib/striuct/classmethods/handy.rb
+- lib/striuct/classmethods/inner.rb
+- lib/striuct/classmethods/macro.rb
+- lib/striuct/classmethods/requiremnets.rb
+- lib/striuct/classmethods/safety.rb
+- lib/striuct/instancemethods.rb
+- lib/striuct/instancemethods/basic.rb
+- lib/striuct/instancemethods/handy.rb
+- lib/striuct/instancemethods/hashlike.rb
+- lib/striuct/instancemethods/inner.rb
+- lib/striuct/instancemethods/requirements.rb
+- lib/striuct/instancemethods/safety.rb
+- lib/striuct/instancemethods/singleton_class.rb
+- lib/striuct/requirements.rb
+- lib/striuct/singleton_class.rb
+- lib/striuct/specificcontainer.rb
+- lib/striuct/structs.rb
 - lib/striuct/version.rb
-- lib/striuct/abstract.rb
-- lib/striuct/containable.rb
-- lib/striuct/containable/classutil.rb
-- lib/striuct/containable/basic.rb
-- lib/striuct/containable/safety.rb
-- lib/striuct/containable/handy.rb
-- lib/striuct/containable/hashlike.rb
-- lib/striuct/containable/inner.rb
-- lib/striuct/containable/eigen.rb
-- lib/striuct/containable/eigen/basic.rb
-- lib/striuct/containable/eigen/constructor.rb
-- lib/striuct/containable/eigen/safety.rb
-- lib/striuct/containable/eigen/handy.rb
-- lib/striuct/containable/eigen/macro.rb
-- lib/striuct/containable/eigen/inner.rb
-- test/test_helper.rb
+- striuct.gemspec
+- test/helper.rb
 - test/test_striuct.rb
-- example/example.rb
-- example/example1.rb
-- example/example2.rb
-- example/example.old.rdoc
-- example/benchmarks.rb
-- example/see_trace.rb
-- .gemtest
-homepage: http://github.com/kachick/striuct
+- test/test_striuct_define.rb
+- test/test_striuct_subclass_adjuster.rb
+- test/test_striuct_subclass_alias_member.rb
+- test/test_striuct_subclass_assign.rb
+- test/test_striuct_subclass_classlock.rb
+- test/test_striuct_subclass_classmethods.rb
+- test/test_striuct_subclass_cloning.rb
+- test/test_striuct_subclass_default_value.rb
+- test/test_striuct_subclass_for_pairs.rb
+- test/test_striuct_subclass_freeze.rb
+- test/test_striuct_subclass_functional_condition.rb
+- test/test_striuct_subclass_getter_validation.rb
+- test/test_striuct_subclass_hashlike.rb
+- test/test_striuct_subclass_inference.rb
+- test/test_striuct_subclass_inheritable.rb
+- test/test_striuct_subclass_instance.rb
+- test/test_striuct_subclass_lock.rb
+- test/test_striuct_subclass_safetynaming.rb
+- test/test_striuct_subclass_specific_conditions.rb
+- test/test_striuct_subclass_to_struct.rb
+- test/test_striuct_version.rb
+homepage: https://github.com/kachick/striuct
 licenses: []
 post_install_message: 
-rdoc_options:
-- --main
-- README.rdoc
+rdoc_options: []
 require_paths:
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement
@@ -131,11 +147,33 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: striuct
-rubygems_version: 1.8.16
+rubyforge_project: 
+rubygems_version: 1.8.24
 signing_key: 
 specification_version: 3
 summary: Struct++
 test_files:
-- test/test_helper.rb
+- test/helper.rb
 - test/test_striuct.rb
+- test/test_striuct_define.rb
+- test/test_striuct_subclass_adjuster.rb
+- test/test_striuct_subclass_alias_member.rb
+- test/test_striuct_subclass_assign.rb
+- test/test_striuct_subclass_classlock.rb
+- test/test_striuct_subclass_classmethods.rb
+- test/test_striuct_subclass_cloning.rb
+- test/test_striuct_subclass_default_value.rb
+- test/test_striuct_subclass_for_pairs.rb
+- test/test_striuct_subclass_freeze.rb
+- test/test_striuct_subclass_functional_condition.rb
+- test/test_striuct_subclass_getter_validation.rb
+- test/test_striuct_subclass_hashlike.rb
+- test/test_striuct_subclass_inference.rb
+- test/test_striuct_subclass_inheritable.rb
+- test/test_striuct_subclass_instance.rb
+- test/test_striuct_subclass_lock.rb
+- test/test_striuct_subclass_safetynaming.rb
+- test/test_striuct_subclass_specific_conditions.rb
+- test/test_striuct_subclass_to_struct.rb
+- test/test_striuct_version.rb
+has_rdoc: 

data/README.rdoc

@@ -1,63 +0,0 @@
-= Striuct
-
-* http://github.com/kachick/striuct
-* http://rubygems.org/gems/striuct
-* http://rubyforge.org/projects/striuct
-
-== Description
-
-Struct++
-
-== Features
-
-* Base APIs look like Struct.
-* Easy and Flexible Validations
-* Hook just before running setters
-* Default value
-* Member aliasing
-* Inheritable
-* Pure Ruby :)
-
-== Usage
-
-* setup
-    require 'striuct'
-
-=== Example
-
-    Person = Striuct.define do
-      member :name, AND(String, /\A\w+( \w+)?\z/)
-    end
-    
-    class User < Person
-      member :id, AND(Integer, 1..99999)
-    end
-    
-    user = User.new
-    user.members      #=> [:name, :id]
-    user.name = :Ken  #=> error
-    user.name = ''    #=> error
-    user.name = 'Ken' #=> pass
-
-=== More Example
-
-example/*
-
-== Requirements
-
-* Ruby 1.9.2 or later
-  
-  tested release versions
-
-  * 1.9.3-p125
-  * 1.9.2-p290
-
-== Installation
-
-* gem install striuct
-
-== License
-
-Copyright (C) 2011  Kenichi Kamiya
-
-The MIT License (See the file LICENSE.)

data/example/example.rb

@@ -1,17 +0,0 @@
-$VERBOSE = true
-
-require '../lib/striuct'
-
-Person = Striuct.define do
-  member :name, AND(String, /\A\w+( \w+)?\z/)
-end
-
-class User < Person
-  member :id, AND(Integer, 1..99999)
-end
-
-user = User.new
-p user.members      #=> [:name, :id]
-p user.name = :Ken  #=> error
-p user.name = ''    #=> error
-p user.name = 'Ken' #=> pass

data/lib/striuct/abstract.rb

@@ -1,74 +0,0 @@
-require_relative 'containable'
-
-class Striuct; class << self
-  # @group Constructor
-  
-  alias_method :new_instance, :new
-  private :new_instance
-  
-  # @param [Symbol, String] *names
-  # @return [Class] - with Subclass, Subclass:Eigen
-  def new(*names, &block)
-    # warning for Ruby's Struct.new user
-    first = names.first
-    if first.instance_of?(String) and /\A[A-Z]/ =~ first
-      warn "no define constant #{first}"
-    end
-
-    Class.new self do
-      names.each do |name|
-        member name
-      end
-
-      class_eval(&block) if block_given?
-    end
-  end
-
-  # @yieldreturn [Class] (see Striuct.new) - reject floating class
-  # @return [void]
-  def define(&block)
-    raise ArgumentError, 'must with block' unless block_given?
-
-    new(&block).tap do |subclass|
-      subclass.instance_eval do
-        raise 'not yet finished' if members.empty?
-        close
-      end
-    end
-  end
-
-  # @groupend
-
-  private
-  
-  alias_method :original_inherited, :inherited
-  
-  def inherited(subclass)
-    attributes = (
-      if equal? ::Striuct
-        [[], {}, {}, {}, {}, {}, {}, {}, :prevent]
-      else
-        [*[@names, @conditions, @flavors, @defaults,\
-        @inferences, @aliases, @setter_validations, @getter_validations].map(&:dup), @protect_level]
-      end
-    )
-    
-    eigen = self
-
-    subclass.class_eval do
-      original_inherited subclass
-      include Containable if ::Striuct.equal? eigen
-      
-      @names, @conditions, @flavors, @defaults,\
-      @inferences, @aliases, @setter_validations, @getter_validations, @protect_level  = *attributes
-      
-      singleton_class.instance_eval do
-        define_method :initialize_copy do |original|
-          @names, @flavors, @defaults, @aliases, @setter_validations, @getter_validations = 
-          *[@names, @flavors, @defaults, @aliases, @setter_validations, @getter_validations].map(&:dup)
-          @conditions, @inferences = @conditions.dup, @inferences.dup
-        end
-      end
-    end
-  end
-end; end

data/lib/striuct/containable/classutil.rb

@@ -1,22 +0,0 @@
-class Striuct; module Containable
-
-
-# @author Kenichi Kamiya
-module ClassUtil
-
-  private
-  
-  def delegate_class_method(name)
-    define_method name do |*args, &block|
-      self.class.__send__ name, *args, &block
-    end
-  end
-  
-  def delegate_class_methods(name, *names)
-    [name, *names].each{|_name|delegate_class_method _name}
-  end
-
-end
-
-
-end; end