pipa-statelogic 0.0.2

data/MIT-LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 [name of plugin creator]
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,13 @@
+Statelogic
+==========
+
+Introduction goes here.
+
+
+Example
+=======
+
+Example goes here.
+
+
+Copyright (c) 2009 Igor Gunko, released under the MIT license

data/Rakefile

@@ -0,0 +1,23 @@
+require 'rake'
+require 'rake/testtask'
+require 'rake/rdoctask'
+
+desc 'Default: run unit tests.'
+task :default => :test
+
+desc 'Test the statelogic plugin.'
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib'
+  t.libs << 'test'
+  t.pattern = 'test/**/*_test.rb'
+  t.verbose = true
+end
+
+desc 'Generate documentation for the statelogic plugin.'
+Rake::RDocTask.new(:rdoc) do |rdoc|
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title    = 'Statelogic'
+  rdoc.options << '--line-numbers' << '--inline-source'
+  rdoc.rdoc_files.include('README')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/lib/pipa-statelogic.rb

@@ -0,0 +1 @@
+require 'statelogic'

data/lib/statelogic.rb

@@ -0,0 +1 @@
+# undisturbed void

data/lib/statelogic/activerecord.rb

@@ -0,0 +1,88 @@
+require 'statelogic/callbacks_ext'
+
+module Statelogic
+  module ActiveRecord
+    def self.included(other)
+      other.extend(ClassMethods)
+    end
+
+    module ClassMethods
+      DEFAULT_OPTIONS = {:attribute => :state}.freeze
+
+      class StateScopeHelper
+        CALLBACKS = ::ActiveRecord::Callbacks::CALLBACKS.map(&:to_sym).to_set
+        MACROS_PATTERN = /\Avalidates_/
+
+        def initialize(cl, state, config)
+          @class, @state, @config, @conditions = cl, state, config, state.map {|x| :"#{x}?"}
+        end
+
+        def validates_transition_to(*states)
+          attr = @config[:attribute]
+          options = states.extract_options!.update(
+            :in => states,
+            :if => [:"#{attr}_changed?", :"was_#{@state}?"]
+          )
+          @class.validates_inclusion_of(attr, options)
+        end
+
+        alias transitions_to validates_transition_to
+
+        def method_missing(method, *args, &block)
+          if CALLBACKS.include?(method) || method.to_s =~ MACROS_PATTERN
+            options = args.last
+            args.push(options = {}) unless options.is_a?(Hash)
+            options[:if] = Array(options[:if]).unshift(@conditions)
+            @class.send(method, *args, &block)
+          else
+            super
+          end
+        end
+      end
+
+      class ConfigHelper
+        def initialize(cl, config)
+          @class, @config = cl, config
+        end
+
+        def initial_state(name, options = {}, &block)
+          state(name, options.update(:initial => true), &block)
+        end
+
+        def state(name, options = {}, &block)
+          attr = @config[:attribute]
+          attr_was = :"#{attr}_was"
+          @class.class_eval do
+            define_method("#{name}?") { send(attr) == name }
+            define_method("was_#{name}?") { send(attr_was) == name }
+          end
+
+          StateScopeHelper.new(@class, name, @config).instance_eval(&block)
+
+          @config[:states] << name
+          @config[:initial] << name if options[:initial]
+        end
+      end
+
+      def statelogic(options = {}, &block)
+        options = DEFAULT_OPTIONS.merge(options)
+        attr = options[:attribute] = options[:attribute].to_sym
+
+        options[:states], options[:initial] = [], Array(options[:initial])
+
+        ConfigHelper.new(self, options).instance_eval(&block)
+
+        initial = options[:initial]
+        validates_inclusion_of attr, :in => initial.to_set, :on => :create unless initial.blank?
+        #validates_inclusion_of attr, :in => options[:states].to_set
+
+        const = attr.to_s.pluralize.upcase
+        const_set(const, options[:states].freeze.each(&:freeze)) unless const_defined?(const)
+      end
+    end
+  end
+end
+
+class ActiveRecord::Base
+  include Statelogic::ActiveRecord
+end

data/lib/statelogic/callbacks_ext.rb

@@ -0,0 +1,6 @@
+class ActiveSupport::Callbacks::Callback
+  def should_run_callback?(*args)
+    [options[:if]].flatten.compact.all? { |a| evaluate_method(a, *args) } &&
+      ![options[:unless]].flatten.compact.any? { |a| evaluate_method(a, *args) }
+  end
+end

data/rails/init.rb

@@ -0,0 +1,2 @@
+require 'statelogic'
+require 'statelogic/activerecord'

data/shoulda_macros/statelogic.rb

@@ -0,0 +1,12 @@
+class Test::Unit::TestCase
+  def self.should_not_require_attributes(*attributes)
+    get_options!(attributes)
+    klass = model_class
+
+    attributes.each do |attribute|
+      should "not require #{attribute} to be set" do
+        assert_good_value(klass, attribute, nil)
+      end
+    end
+  end
+end

data/test/fixtures/orders.yml

@@ -0,0 +1,13 @@
+# Read about fixtures at http://ar.rubyonrails.org/classes/Fixtures.html
+
+unpaid:
+  state: unpaid
+
+ready:
+  state: ready
+
+redeemed:
+  state: redeemed
+
+suspended:
+  state: suspended

data/test/schema.rb

@@ -0,0 +1,8 @@
+ActiveRecord::Schema.define do
+  create_table 'orders', :force => true do |t|
+    t.column 'state', :text
+    t.column 'redeemed_at', :datetime
+    t.column 'txref', :string
+    t.references :facility
+  end
+end

data/test/statelogic_test.rb

@@ -0,0 +1,81 @@
+require 'test_helper'
+
+class Order < ActiveRecord::Base
+  statelogic do
+    initial_state 'unpaid' do
+      transitions_to 'ready', 'suspended'
+    end
+    state 'ready' do
+      transitions_to 'redeemed', 'suspended'
+      validates_presence_of :txref
+    end
+    state 'redeemed' do
+      transitions_to 'suspended'
+      validates_presence_of :txref, :redeemed_at, :facility_id
+    end
+    state 'suspended' do
+      transitions_to 'unpaid', 'ready', 'redeemed'
+    end
+  end
+end
+
+class OrderTest < ActiveSupport::TestCase
+  fixtures :orders
+
+  should_require_attributes :state, :message => default_error_message(:inclusion)
+
+  context 'A fresh order' do
+    setup do
+      @order = Order.new
+    end
+
+    should_allow_values_for :state, 'unpaid'
+    should_not_allow_values_for :state, 'ready', 'redeemed', 'suspended', 'screwed_up',
+      :message => default_error_message(:inclusion)
+    should_not_require_attributes :txref, :redeemed_at, :facility_id
+  end
+
+  context 'An unpaid order' do
+    setup do
+      @order = orders(:unpaid)
+    end
+
+    should_allow_values_for :state, 'unpaid', 'ready', 'suspended'
+    should_not_allow_values_for :state, 'redeemed', 'screwed_up',
+      :message => default_error_message(:inclusion)
+    should_not_require_attributes :txref, :redeemed_at, :facility_id
+  end
+
+  context 'A ready order' do
+    setup do
+      @order = orders(:ready)
+    end
+
+    should_allow_values_for :state, 'ready', 'redeemed', 'suspended'
+    should_not_allow_values_for :state, 'unpaid', 'screwed_up',
+      :message => default_error_message(:inclusion)
+    should_require_attributes :txref
+    should_not_require_attributes :redeemed_at, :facility_id
+  end
+
+  context 'A redeemed order' do
+    setup do
+      @order = orders(:redeemed)
+    end
+
+    should_allow_values_for :state, 'redeemed', 'suspended'
+    should_not_allow_values_for :state, 'unpaid', 'ready', 'screwed_up',
+      :message => default_error_message(:inclusion)
+    should_require_attributes :txref, :redeemed_at, :facility_id
+  end
+
+  context 'A suspended order' do
+    setup do
+      @order = orders(:suspended)
+    end
+
+    should_allow_values_for :state, 'suspended', 'redeemed', 'ready', 'unpaid'
+    should_not_allow_values_for :state, 'screwed_up', :message => default_error_message(:inclusion)
+    should_not_require_attributes :txref, :redeemed_at, :facility_id
+  end
+end

data/test/test_helper.rb

@@ -0,0 +1,19 @@
+require 'rubygems'
+require 'test/unit'
+require 'active_support'
+require 'active_support/test_case'
+require 'active_record'
+require 'shoulda/active_record'
+require 'active_record/fixtures'
+require 'statelogic/activerecord'
+
+require 'shoulda_macros/statelogic'
+
+ActiveSupport::TestCase.fixture_path = 'test/fixtures'
+
+ActiveRecord::Base.configurations = {
+  'test' => {:adapter => 'sqlite3', :dbfile => ':memory:'}
+}
+ActiveRecord::Base.establish_connection(:test)
+
+load 'schema.rb'

metadata

@@ -0,0 +1,76 @@
+--- !ruby/object:Gem::Specification 
+name: pipa-statelogic
+version: !ruby/object:Gem::Version 
+  version: 0.0.2
+platform: ruby
+authors: 
+- Igor Gunko
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-01-06 00:00:00 -08:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: activerecord
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.2.2
+    version: 
+description: Statelogic does kinda this and that... you know.
+email: tekmon@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+- MIT-LICENSE
+files: 
+- README.rdoc
+- MIT-LICENSE
+- Rakefile
+- lib/statelogic.rb
+- lib/pipa-statelogic.rb
+- lib/statelogic/activerecord.rb
+- lib/statelogic/callbacks_ext.rb
+- rails/init.rb
+has_rdoc: true
+homepage: http://github.com/pipa/statelogic
+post_install_message: 
+rdoc_options: 
+- --line-numbers
+- --inline-source
+- --main
+- README.rdoc
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.2.0
+signing_key: 
+specification_version: 2
+summary: Another state machine for ActiveRecord
+test_files: 
+- test/statelogic_test.rb
+- test/test_helper.rb
+- test/schema.rb
+- test/fixtures/orders.yml
+- shoulda_macros/statelogic.rb