Checked 1.2.3 → 2.0.0

data/spec/tests/Demand.rb

@@ -2,24 +2,18 @@
 # ============================ ARRAYS
 # ============================
 
-describe "array! check!" do
-  
-  it 'must return array' do
-    BOX.array!([:a, :b]).check!.should == [:a, :b]
-  end
-  
-end # === describe array! check!
+describe "Array! :symbols!" do
 
-describe "array! :symbols!" do
+  behaves_like :racked_dsl
 
   it 'must require Array be non-empty.' do
     should.raise(Checked::Demand::Failed) {
-      BOX.array!( [] ).symbols!
+      Array!( [] ).symbols!
     }.message.should.be == "Array, [], can't be empty."
   end
   
   it 'must positively validate an Array of single Symbol instance' do
-    lambda { BOX.array!([:sym]).symbols! }.should.not.raise
+    lambda { Array!([:sym]).symbols! }.should.not.raise
   end
   
 end # === describe Demand for Arrays
@@ -28,43 +22,49 @@ end # === describe Demand for Arrays
 # ============================ BOOLS
 # ============================
 
-describe "demand :bool!" do
+describe "Bool!" do
+
+  behaves_like :racked_dsl
   
   it 'must raise Demand::Failed if not a boolean' do
     should.raise(Checked::Demand::Failed) {
-      BOX.bool!( "Answer", :false ).check!
+      Bool!( "Answer", :false ).check!
     }.message.should.be == "Answer, :false, must be either of TrueClass or FalseClass."
   end
   
 end # === describe demand :bool!
 
-describe "demand :bool! :true!" do
+describe "Bool! :true!" do
+
+  behaves_like :racked_dsl
   
   it 'must pass validation if true' do
     should.not.raise(Checked::Demand::Failed) {
-      BOX.bool!( "Answer", 1 === 1 ).true!
+      Bool!( "Answer", 1 === 1 ).true!
     }
   end
   
   it 'must raise Demand::Failed if not true' do
     should.raise(Checked::Demand::Failed) {
-      BOX.bool!( "ANSW", false ).true!
+      Bool!( "ANSW", false ).true!
     }.message.should.be == "ANSW, false, must be true (TrueClass)."
   end
   
 end # === describe demand :bool!
 
 describe "demand :bool! :false!" do
+
+  behaves_like :racked_dsl
   
   it 'must pass validation if false' do
     should.not.raise(Checked::Demand::Failed) {
-      BOX.bool!( "Comparison", 1 === 2 ).false!
+      Bool!( "Comparison", 1 === 2 ).false!
     }
   end
   
   it 'must raise Demand::Failed if not false' do
     should.raise(Checked::Demand::Failed) {
-      BOX.bool!( "ANSW", 1 == 1 ).false!
+      Bool!( "ANSW", 1 == 1 ).false!
     }.message.should.be == "ANSW, true, must be false (FalseClass)."
   end
   
@@ -75,11 +75,13 @@ end # === describe demand :bool!
 # ============================
 
 
-describe "Demand file_path!" do
+describe "File_Path!" do
+
+  behaves_like :racked_dsl
   
   it 'must fail if string has control characters' do
     lambda { 
-      BOX.file_path!("~/\tbashee").check!
+      File_Path!("~/\tbashee").check!
     }.should.raise(Checked::Demand::Failed)
     .message.should.match %r!has invalid characters: !
   end
@@ -87,30 +89,33 @@ describe "Demand file_path!" do
 end # === describe Demand file_path!
 
 
-describe "Demand file_path! not_dir!" do
+describe "File_Path! not_dir!" do
+
+  behaves_like :racked_dsl
   
   it 'must fail for an existing dir' do
     lambda { 
-      BOX.file_path!("~/").not_dir!
+      File_Path!("~/").not_dir!
     }.should.raise(Checked::Demand::Failed)
     .message.should.match %r!, can't be an existing directory.!
   end
   
 end # === describe Demand not_dir!
 
-describe "Demand file_path! not_file!" do
+describe "File_Path! not_file!" do
+
+  behaves_like :racked_dsl
   
-  it 'must fail for an existing file' do
+  it 'fails for an existing file' do
     lambda { 
-      BOX.file_path!("~/.bashrc").not_file!
+      File_Path!("~/.bashrc").not_file!
     }.should.raise(Checked::Demand::Failed)
     .message.should.match %r!bashrc., can't be a file!
   end
 
-  it 'must return expanded path' do
+  it 'does not expand path if file does not exist' do
     path = "~/,RANDOM"
-    target = File.expand_path(path)
-    BOX.file_path!(path).not_file!.should.be == target
+    File_Path!(path).not_file!.should.be == path
   end
   
 end # === describe Demand not_file!
@@ -121,17 +126,19 @@ end # === describe Demand not_file!
 # ============================
 
 describe "Demand hash! :symbol_keys!" do
+
+  behaves_like :racked_dsl
   
   it 'must raise Fail if keys are not all symbols' do
     lambda {
-      BOX.hash!( :hello=>'by', 'hi'=>'hiya' ).symbol_keys!
+      Hash!( :hello=>'by', 'hi'=>'hiya' ).symbol_keys!
     }.should.raise(Checked::Demand::Failed)
     .message.should.match %r!must have all symbol keys!
   end
   
   it 'must not raise Fail if keys are all symbols' do
     lambda {
-      BOX.hash!( :helo=>'be', :hi=>'hi' ).symbol_keys!
+      Hash!( :helo=>'be', :hi=>'hi' ).symbol_keys!
     }.should.not.raise(Checked::Demand::Failed)
   end
   
@@ -145,18 +152,22 @@ end # === describe Demand hash! :symbol_keys!
 
 
 describe "Demand string! :file_read!" do
+
+  behaves_like :racked_dsl
   
   it 'returns a string with right carriage returns erased.' do
-    BOX.string!("test\r\ntest\r\n").file_content!.should == "test\ntest\n"
+    String!("test\r\ntest\r\n").file_content!.should == "test\ntest\n"
   end
   
 end # === describe Demand string! :file_read!
 
 describe "Demand string! :file_content!" do
+
+  behaves_like :racked_dsl
   
   it 'must fail for an empty string' do
     lambda { 
-      BOX.string!('').file_content!
+      String!('').file_content!
     }.should.raise(Checked::Demand::Failed)
     .message.should.be == "String, \"\", can't be empty."
   end
@@ -164,17 +175,19 @@ describe "Demand string! :file_content!" do
 end # === describe Demand :file_content!
 
 describe "Demand file_path! :hostname!" do
+
+  behaves_like :racked_dsl
   
   it 'must not contain whitespace' do
     lambda {
-      BOX.string!('some name').hostname!
+      String!('some name').hostname!
     }.should.raise(Checked::Demand::Failed)
     .message.should.be == 'String, "some name", has invalid characters: " "'
   end
   
   it 'validates for a valid hostname' do
     lambda {
-      BOX.string!('bdrm').hostname!
+      String!('bdrm').hostname!
     }.should.not.raise(Checked::Demand::Failed)
   end
   
@@ -185,26 +198,30 @@ end # === describe Demand :hostname!
 # ============================
 
 describe "Demand symbol! check!" do
+
+  behaves_like :racked_dsl
   
   it 'raises Demand::Failed if not Symbol' do
     lambda {
-      BOX.symbol!('Name', []).check!
+      Symbol!('Name', []).check!
     }.should.raise(Checked::Demand::Failed)
-    .message.should.be == "Name, [], must be a Symbol."
+    .message.should.be == "Name, [], must be a symbol."
   end
   
 end # === describe Demand symbol! check!
 
 describe "symbol! :in! array" do
+
+  behaves_like :racked_dsl
   
   it 'raises Demand::Failed if not in array' do
-    lambda { BOX.symbol!(:a).in!([:b, :c]) }
+    lambda { Symbol!(:a).in!([:b, :c]) }
     .should.raise(Checked::Demand::Failed)
     .message.should.be == "Symbol, :a, must be in array: [:b, :c]"
   end
 
   it 'validates if symbols is in array.' do
-    lambda { BOX.symbol!(:a).in!([:a, :b, :c]) }
+    lambda { Symbol!(:a).in!([:a, :b, :c]) }
     .should.not.raise(Checked::Demand::Failed)
   end
   
@@ -215,20 +232,24 @@ end # === describe symbol! :in! array
 # ============================
 
 describe "Named :demand!" do
+
+  behaves_like :racked_dsl
   
   it 'must use name in errors' do
     should.raise(Checked::Demand::Failed) {
-      BOX.demand!("Test Val", :a ).nil!
+      Var!("Test Val", :a ).nil!
     }.message.should == "Test Val, :a, must be nil."
   end
   
 end # === describe Named :demand
 
 describe "DSL :demand!" do
+
+  behaves_like :racked_dsl
   
   it 'must raise error when demand fails.' do
     should.raise(Checked::Demand::Failed) {
-      BOX.demand!( [] ).nil!
+      Var!( [] ).nil!
     }.message.should == "Array, [], must be nil."
     
   end
@@ -236,6 +257,8 @@ describe "DSL :demand!" do
 end # === describe :demand
 
 describe "demand be!" do
+
+  behaves_like :racked_dsl
   
   before do
     @fail = Checked::Demand::Failed
@@ -243,8 +266,8 @@ describe "demand be!" do
 
   it 'must fail if invalid class' do
     should.raise(@fail) {
-      BOX.demand!([]).one_of!(Symbol)
-    }.message.should == "Array, [], can only be of class/module: Symbol"
+      Var!([]).one_of!(Symbol)
+    }.message.should.match %r!Array, \[\], can only be of class/module: Symbol!i
   end
   
 end # === describe demand a! (certain class)

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: Checked
 version: !ruby/object:Gem::Version
-  version: 1.2.3
+  version: 2.0.0
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-01-10 00:00:00.000000000Z
+date: 2012-01-15 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
-  name: Uni_Arch
-  requirement: &17281880 !ruby/object:Gem::Requirement
+  name: Sin_Arch
+  requirement: &12698040 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,10 +21,10 @@ dependencies:
         version: '0'
   type: :runtime
   prerelease: false
-  version_requirements: *17281880
+  version_requirements: *12698040
 - !ruby/object:Gem::Dependency
   name: rake
-  requirement: &17276960 !ruby/object:Gem::Requirement
+  requirement: &12696760 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -32,10 +32,10 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *17276960
+  version_requirements: *12696760
 - !ruby/object:Gem::Dependency
   name: bacon
-  requirement: &17276380 !ruby/object:Gem::Requirement
+  requirement: &12695580 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -43,10 +43,10 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *17276380
+  version_requirements: *12695580
 - !ruby/object:Gem::Dependency
   name: Bacon_Colored
-  requirement: &17275640 !ruby/object:Gem::Requirement
+  requirement: &12709280 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -54,7 +54,7 @@ dependencies:
         version: '0'
   type: :development
   prerelease: false
-  version_requirements: *17275640
+  version_requirements: *12709280
 description: ! "\n    Various DSLs to clean, question (Ask), and validate (Demand)
   your objects,\n  their classes (data types), and their properties.\n  "
 email:
@@ -71,16 +71,14 @@ files:
 - README.rdoc
 - Rakefile
 - lib/Checked.rb
+- lib/Checked/Arch.rb
 - lib/Checked/Ask/Arrays.rb
 - lib/Checked/Ask/Ask.rb
 - lib/Checked/Ask/Strings.rb
 - lib/Checked/Ask/Vars.rb
-- lib/Checked/Base/Arch.rb
-- lib/Checked/Base/Base.rb
-- lib/Checked/Base/DSL.rb
-- lib/Checked/Base/DSL_Obj.rb
 - lib/Checked/Clean/Clean.rb
 - lib/Checked/Clean/Strings.rb
+- lib/Checked/DSL.rb
 - lib/Checked/Demand/Arrays.rb
 - lib/Checked/Demand/Bools.rb
 - lib/Checked/Demand/Demand.rb

data/lib/Checked/Base/Arch.rb

@@ -1,33 +0,0 @@
-
-module Checked 
-  class Arch
-
-    include Uni_Arch::Base
-
-    before
-    def save_key
-      request.response.body= request.headers.check_target
-    end
-    
-    before
-    def run_check
-      return if request.path['/var!/']
-      return if request.path['/check!/']
-      request.response.body= begin
-                               path = request.path.split('/')[0,2].join('/') + "/check!/"
-                               app  = Checked::Arch.new( path, :check_name => request.headers.check_name, :check_target => request.response.body )
-                               app.fulfill_request
-                               app.request.response.body
-                             end
-    end
-
-    after_method
-    def save_last_response
-      unless request.path[%r@!/\Z@]
-        request.response.body= request.response.last
-      end
-    end
-
-  end # === class Arch
-  
-end # === module Checked

data/lib/Checked/Base/Base.rb

@@ -1,108 +0,0 @@
-module Checked
-
-  module Base
-
-    CHECK = begin
-              o = Object.new
-              o.extend Checked::DSL
-              o
-            end
-
-    def target_klass
-      klass = self.class.name.split('::').last.sub(%r!s/Z!, '')
-      if klass == 'Var'
-        klass
-      else
-        eval klass
-      end
-    end
-
-    def target
-      request.response.body
-    end
-    
-    def original_target
-      request.headers.check_target
-    end
-    
-    def target_name
-      if target.respond_to?(:english_name)
-        return target.english_name 
-      end
-      
-      if request.headers.has_key?(:check_name) && request.headers.check_name
-        return request.headers.check_name
-      end
-      
-      target.class.name.gsub('_', ' ')
-    end
-    
-    def args
-      request.headers.args
-    end
-
-    #
-    # ::Checked::Demand::Arrays => demand
-    # ::Checked::Clean::Arrays  => clean
-    # ::Checked::Ask::Arrays    => ask
-    #
-    def purpose
-      @purpose ||= begin
-                     temp = self.class.name.split('::')[-2]
-                     if temp
-                       temp.downcase.sub(/er$/, '')
-                     else
-                       raise "Unknown purpose"
-                     end
-                   end
-    end
-    
-    def fail! msg
-      raise Checked::Demand::Failed, "#{request.env.target.inspect} #{msg}"
-    end
-    
-    def not_empty!
-      fail!('...can\'t be empty.') if target.empty?
-    end
-
-    def be! meth, *args
-      answer = target.send meth, *args
-      demand answer, :bool!
-      return true if answer
-      fail!("...failed #{meth} with #{args.inspect}")
-    end
-
-    def not_be! meth, *args
-      bool!
-      pass = target.send(meth, *args)
-      demand pass, :bool!
-      return true unless pass
-      fail!("...#{meth} should not be true with #{args.inspect}")
-    end
-
-    def array? val
-      respond_to_all?( val, :[], :pop )
-    end
-
-    def hash? val
-      respond_to_all?( val, :[], :keys, :values )
-    end
-    
-    def respond_to_all? val, *meths
-      meths.map { |m|
-        val.respond_to? m
-      }.uniq == [true]
-    end
-
-    def matcher
-      request.headers.matcher
-    end
-
-    def strip_target
-      request.response.body= target.strip
-    end
-
-  end # === module Base
-  
-end # === module Checked
-

data/lib/Checked/Base/DSL.rb

@@ -1,81 +0,0 @@
-
-module Checked
-  module DSL
-    
-    # ============ Demand ==============
-    
-    %w{ String Array File_Path Hash Bool }.each { |name|
-      eval %~
-        def #{name}!( *args )
-          #{name.downcase}!(*args).check!
-        end
-      ~
-    }
-    
-    %w{ True False }.each { |bool|
-      eval %~
-        def #{bool}! *args
-          bool!(*args).#{bool.downcase}!
-        end
-      ~
-    }
-    
-    %w{ var array bool file_path string symbol hash }.each { |klass|
-      eval %~
-        def #{klass}! *args
-          raise "No block allowed here." if block_given?
-          check_it( '#{klass}!', *args )
-        end
-      
-        def #{klass}? *args
-          raise "No block allowed here." if block_given?
-          check_it( 'ask', *args )
-        end
-      
-        def #{klass} *args
-          raise "No block allowed here." if block_given?
-          check_it( 'clean',  *args )
-        end
-      ~
-    }
-    
-    alias_method :demand!, :var!
-    alias_method :ask?, :var?
-
-    # ============= Ask ================
-
-    def check_it namespace, *args
-      args.unshift(nil) if args.size == 1
-      ::Checked::DSL::Obj.new( namespace, *args )
-    end
-
-    def _main_class_ unk
-      case unk
-      when String
-        'string'
-      when Hash
-        'hash'
-      when Array
-        'array'
-      when Symbol
-        'symbol'
-      when TrueClass, FalseClass
-        'bool'
-      else
-        raise ArgumentError, "Unknown class: #{unk.inspect}"
-      end
-    end
-
-    def any? target, *args
-      raise "No block allowed." if block_given?
-      
-      args.map { |a|
-        send "#{klass}?", target, a
-        check_it( 'ask', _main_class_(target), nil, target).send( a ).request.response.body
-      }.compact == [true]
-    end
-
-    # ============ Clean ===============
-    
-  end # === module DSL
-end

data/lib/Checked/Base/DSL_Obj.rb

@@ -1,35 +0,0 @@
-
-module Checked
-  
-  module DSL
-    
-    class Obj < BasicObject
-      
-      attr_reader :prefix, :headers
-      def initialize prefix, name, val
-        @prefix      = prefix
-        @headers     = { 'check_name' => name, 'check_target' => val }
-        @max_missing = 4
-        @miss_count  = 0
-      end
-      
-      def method_missing name, *args, &blok
-        if @miss_count >= @max_missing
-          ::Kernel.raise "Infinite loop: #{name}, #{args}"
-        end
-        
-        @miss_count = @miss_count + 1
-        ::Kernel.raise "No block allowed." if blok
-        headers['args'] = args
-        
-        path = '/' + [ @prefix, name ].map(&:to_s).join('/') + '/'
-        app = ::Checked::Arch.new( path, headers ) 
-        app.fulfill_request
-        app.request.response.body
-      end # === def method_missing
-      
-    end # === class Obj < BasicObject
-    
-  end # === module DSL
-  
-end # === module Checked