Checked 0.1.4 → 1.0.0

data/lib/Checked/Demand/DSL.rb

@@ -1,29 +0,0 @@
-
-module Checked
-  class Demand
-    module DSL
-      
-      def demand! target, *args
-        if block_given?
-          raise "No block allowed here."
-        end
-        
-        Demand.new(target) { |d|
-          d.<< args
-        }.target
-      end
-      
-      def named_demand! name, target, *args
-        if block_given?
-          raise "No block allowed here."
-        end
-        
-        Demand.new(target) { |d|
-          d.* name
-          d.<< args
-        }.target
-      end
-      
-    end # === module Dsl
-  end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/Arrays.rb

@@ -1,72 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module Arrays
-
-  def self.before_apply d
-  end
-
-  def self.apply? d
-    d.target.is_a?(Array)
-  end
-  
-  def self.after_apply d
-  end
-
-  def no_nils!
-    array!
-    if target.include?(nil)
-      fail!("...can't contain nils.")
-    end
-  end
-
-  def no_empty_strings!
-    array!
-    target.each { |s| 
-
-      if s.respond_to?(:rewind) 
-        s.rewind
-      end
-
-      final = if s.respond_to?(:readlines)
-                s.readlines
-              else
-                s
-              end
-
-      if final.is_a?(String) && final.strip.empty?
-        fail!("...can't contain empty strings.")
-      end
-    }
-  end
-
-  def symbols!
-    array!
-    not_empty!
-    if !target.all? { |v| v.is_a?(Symbol) }
-      fail! "...contains a non-symbol."
-    end
-  end
-  
-  def include! matcher
-    included = target.include?(matcher)
-    return true if included
-    fail!("...must contain: #{matcher.inspect}")
-  end
-
-  def exclude! matcher
-    raise_e = val.include?(matcher)
-    return true unless raise_e
-    fail!("...can't contain #{matcher.inspect}")
-  end
-
-  def matches_only! matcher
-    arr = target.reject { |val| val == matcher }
-    fail!( "...invalid elements: #{arr.inspect}" ) if !arr.empty?
-  end
-        
-end # === module Arrays
-end # === module Mods
-end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/Bools.rb

@@ -1,37 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module Bools
-        
-  def self.before_apply d
-  end
-
-  def self.apply? d
-    target = d.target
-    target.is_a?( FalseClass ) ||
-      target.is_a?(TrueClass)
-  end
-  
-  def self.after_apply d
-  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
-        
-end # === module Bools      
-end # === module Mods
-end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/File_Addresses.rb

@@ -1,59 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module File_Addresses
-
-  def self.apply? d
-    d.target.is_a?(String)
-  end
-
-  def hostname!
-    string!
-    not_empty!
-    matches_only! %r![\dA-Za-z_-]!
-  end
-
-  def not_dir!
-    string!
-    not_empty!
-    if File.directory?(target)
-      fail! "...can't be a directory."
-    end
-  end
-
-  def not_file!
-    string!
-    not_empty!
-    if File.file?(target)
-      fail! "...can't be a file."
-    end
-  end
-
-  def dir_address!
-    file_address!
-  end
-
-  def file_address!
-    self.target= target.strip
-    string!
-    not_empty!
-    if target[%r!([^a-zA-Z0-9\.\_\-\/~,]+)!]
-      fail! "...has invalid characters: #{$1.inspect}"
-    end
-  end
-
-  def file_read!
-    self.target= target.gsub("\r\n", "\n")
-  end
-
-  def file_content! 
-    string!
-    not_empty!   
-    file_read!
-  end
-      
-end # === module File_Addresses
-end # === module Mods
-end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/Strings.rb

@@ -1,51 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module Strings
-    
-  def self.before_apply d
-  end
-
-  def self.apply? d
-    d.target.is_a?( String ) ||
-      d.target.is_a?(StringIO)
-  end
-  
-  def self.after_apply d
-    if d.target.is_a?(StringIO)
-      d.target.rewind
-      d.target= d.target.readlines
-      d.target.rewind
-    end
-  end
-
-  def include! matcher
-    included = target[matcher]
-    return true if included
-    fail!("...must contain: #{matcher.inspect}")
-  end
-
-  def exclude! matcher
-    raise_e = val[matcher]
-    return true unless raise_e
-    fail!("...can't contain #{matcher.inspect}")
-  end
-
-  def matches_only! matcher
-      str = target.gsub(matcher, '')
-      if !str.empty?
-        fail!( "...has invalid characters: #{str.inspect}" ) 
-      end
-  end
-
-  def not_empty!
-    if target.strip.empty? 
-      fail!("...can't be empty.") 
-    end
-  end
-  
-end # === module Strings
-end # === module DSL
-end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/Symbols.rb

@@ -1,20 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module Symbols
-
-  def self.before_apply d
-  end
-
-  def self.apply? d
-    d.target.is_a? Symbol
-  end
-  
-  def self.after_apply d
-  end
-
-end # === module Symbols
-end # === class DEMANDS
-end # === class Demand
-end # === module Checked

data/lib/Checked/Demand/Mods/Vars.rb

@@ -1,91 +0,0 @@
-
-module Checked
-class Demand
-module Mods
-module Vars
-
-  def array!
-    a! Array
-  end
-
-  def bool!
-    return true if [true, false].include?(target)
-    fail!("...has to be a boolean.")
-  end
-
-  def string!
-    a! String
-  end
-
-  def symbol!
-    a! Symbol
-  end
-        
-  def no_block_given!
-    one_of! NilClass, FalseClass
-    if target
-      fail! "No block allowed."
-    end
-  end
-  
-  def no_block!
-    no_block_given!
-  end
-
-  def either! *meths
-    meths.flatten.detect { |m|
-      begin
-        send m
-        true
-      rescue Failed
-        false
-      end
-    }
-  end
-
-  def one_of! *klasses
-    return true if klasses.flatten.any? { |k| target.is_a?(k) }  
-    fail! "...can only be of class/module: #{klasses.map(&:to_s).join(', ')}"
-  end
-
-  def a! klass
-    one_of! klass
-  end
-
-  def nil!
-    return true if target == nil
-    fail!("...must be nil.")
-  end
-  
-  def not_nil!
-    fail!("...can't be nil.") if target.nil?
-    true
-  end
-
-  def respond_to! meth
-    return true if target.respond_to?(meth)
-    fail!("...must respond to #{meth.inspect}")
-  end
-
-  def not_empty!
-    respond_to! :empty?
-    is_empty = target.empty?
-    fail!("...can't be empty.") if is_empty
-  end
-
-  def exists!
-    respond_to! :exists?
-    return true if target.exists?
-    fail!("...must exist.")
-  end
-
-  def not_exists!
-    respond_to! :exists?
-    return true unless target.exists?
-    fail!("...must not exist.")
-  end
-        
-end # === module Var      
-end # === module Mods
-end # === class Demand
-end # === module Checked

data/spec/tests/Ask_Strings.rb

@@ -1,57 +0,0 @@
-
-shared 'Ask' do
-  before {
-    extend Checked::Ask::DSL
-  }
-end
-
-describe "ask empty?" do
-  
-  behaves_like 'Ask'
-
-  it "returns true if string is :empty? after applying :strip" do
-    ask?(" \n ", :empty?).should.be === true
-  end
-  
-  it "returns false if string is not :empty? after applying :strip" do
-    ask?(" n ", :empty?).should.be === false
-  end
-  
-  
-end # === describe Ask Strings
-
-describe "Ask :includes" do
-  
-  behaves_like 'Ask'
-  
-  it "returns true if string contains a Regexp matcher" do
-    Checked::Ask.new(" :a ") { |a|
-      a.< :includes?, / :a /
-    }.true?.should.be == true
-  end
-  
-  it "returns false if string excludes a Regexp matcher" do
-    Checked::Ask.new(" :a ") { |a|
-      a.< :includes?, / :b /
-    }.true?.should.be == false
-  end
-  
-end # === describe Ask :includes
-
-describe "Ask :excludes" do
-  
-  behaves_like 'Ask'
-  
-  it "returns true if string excludes a Regexp matcher" do
-    Checked::Ask.new(" :a ") { |a|
-      a.< :excludes?, / :b /
-    }.true?.should.be == true
-  end
-  
-  it 'returns false if string includes a Regexp matcher' do
-    Checked::Ask.new(" :a ") { |a|
-      a.< :excludes?, / :a /
-    }.true?.should.be == false
-  end
-  
-end # === describe Ask :excludes

data/spec/tests/Checked.rb

@@ -1,43 +0,0 @@
-
-describe "Checked::DSL" do
-  
-  %w{ Ask Demand Clean }.each { |name|
-    klass = Checked.const_get(name)
-    
-    it "includes #{name}::DSL" do
-      Checked::DSL.included_modules.should.include klass::DSL
-    end
-    
-  }
-  
-end # === describe
-
-
-describe "Checked.demand!" do
-  
-  before {
-    @perf = Class.new { include Checked::DSL }.new
-  }
-  
-  it 'must be equivalent to: Demand.new(target)' do
-    should.raise(Checked::Demand::Failed) {
-      @perf.demand! [], :not_empty!
-    }.message.should == "Array, [], can't be empty."
-    
-  end
-  
-end # === describe Checked.demand!
-
-describe "Checked.named_demand!" do
-  
-  before {
-    @perf = Class.new { include Checked::DSL }.new
-  }
-  
-  it 'must be equivalent to: Demand.new(target) { |d| d.* name; d << args}' do
-    should.raise(Checked::Demand::Failed) {
-      @perf.named_demand! "Test Val", [:a, 'c'], :symbols!
-    }.message.should == "Test Val, [:a, \"c\"], contains a non-symbol."
-  end
-  
-end # === describe Checked.named_demand!