adsl 0.0.3 → 0.1.0

data/lib/adsl/verification/instrumentation_filter.rb

@@ -0,0 +1,50 @@
+module ADSL
+  module Verification
+    class InstrumentationFilter
+      
+      def initialize(options = {})
+        options.keys.each do |key|
+          options[key] = options[key].to_s if options[key].is_a? Symbol
+        end
+        @options = options
+      end
+
+      def applies_to?(object, method_name)
+        unless @options[:method_name].nil?
+          return false unless @options[:method_name] === method_name.to_s
+        end
+        unless @options[:method_owner].nil?
+          return false if object.is_a?(Fixnum) or object.is_a?(Symbol)
+          method = object.singleton_class.instance_method method_name
+          return false unless method.owner == @options[:method_owner]
+        end
+        unless @options[:if].nil?
+          subcondition = InstrumentationFilter.new(@options[:if])
+          return false if subcondition.applies_to? object, method_name
+        end
+        unless @options[:unless].nil?
+          subcondition = InstrumentationFilter.new(@options[:unless])
+          return false unless subcondition.applies_to? object, method_name
+        end
+        true
+      end
+
+      def allow_instrumentation?(object, method_name)
+        !applies_to? object, method_name
+      end
+
+    end
+
+    module InstrumentationFilterGenerators
+      def blacklist(method_name = nil, options = {})
+        options[:method_name] = method_name unless method_name.nil?
+        @instrumentation_filters ||= []
+        @instrumentation_filters << InstrumentationFilter.new(options)
+      end
+
+      def instrumentation_filters
+        @instrumentation_filters || []
+      end
+    end
+  end
+end

data/lib/adsl/verification/invariant.rb

@@ -0,0 +1,19 @@
+require 'adsl/parser/ast_nodes'
+
+module ADSL
+  module Verification
+    class Invariant
+      attr_accessor :description, :formula
+
+      def initialize(options = {})
+        @description = options[:description]
+        @formula = options[:formula]
+        @formula = @formula.adsl_ast if @formula.respond_to?(:adsl_ast)
+      end
+
+      def adsl_ast
+        ADSL::Parser::ASTInvariant.new :name => ADSL::Parser::ASTIdent.new(:text => @description), :formula => @formula
+      end
+    end
+  end
+end

data/lib/adsl/verification/rails_verification.rb

@@ -0,0 +1,33 @@
+require 'adsl/extract/rails/rails_extractor'
+
+module ADSL
+  module Verification
+    module RailsVerification
+
+      def verify_spass(options = {})
+        ast = extract_ast options
+        
+        require 'adsl/spass/bin'
+        self.class.send :include, ::ADSL::Spass::Bin
+
+        return verify(ast, options[:verify_options])
+      end
+
+      def extract_ast(options = {})
+        options = {
+          :verify_options => {},
+          :extract_options => {}
+        }.merge options
+        ast = options[:ast]
+        ast = ADSL::Extract::Rails::RailsExtractor.new(options[:extract_options]).adsl_ast if ast.nil?
+        ast
+      end
+
+      def adsl_translate(options = {})
+        ast = extract_ast options
+        puts ast.to_adsl
+      end
+
+    end
+  end
+end

data/lib/adsl/verification/utils.rb

@@ -0,0 +1,20 @@
+require 'adsl/parser/ast_nodes'
+
+module ADSL
+  module Verification
+    module Utils
+
+      def t(text)
+        ADSL::Parser::ASTIdent.new :text => text.to_s
+      end
+      
+      def infer_classname_from_varname(varname)
+        varname.to_s.match(/^(\w+?)(?:_*\d+)?$/)[1].camelize
+      end
+        
+      def classname_for_classname(klass)
+        klass.is_a?(Module) ? klass.name : klass.to_s.camelize
+      end
+    end
+  end
+end

data/lib/adsl/verification/verification_case.rb

@@ -0,0 +1,13 @@
+require 'test/unit'
+require 'adsl/parser/ast_nodes'
+require 'adsl/verification/utils'
+require 'adsl/verification/formula_generators'
+
+module ADSL
+  module Verification
+    class VerificationCase < Test::Unit::TestCase
+      include ::ADSL::Verification::Utils
+      include ::ADSL::Verification::FormulaGenerators
+    end
+  end
+end

data/test/integration/rails/rails_branch_verification_test.rb

@@ -0,0 +1,112 @@
+require 'test/unit'
+require 'adsl/verification/rails_verification'
+require 'adsl/extract/rails/rails_instrumentation_test_case'
+require 'adsl/util/test_helper'
+
+class ADSL::Verification::RailsVerificationTest < ADSL::Extract::Rails::RailsInstrumentationTestCase
+  include ADSL::Verification::RailsVerification
+
+  def verify_options_for(action)
+    {
+      :output => :silent,
+      :check_satisfiability => false,
+      :halt_on_error => true,
+      :timeout => 120,
+      :actions => [action.to_s]
+    }
+  end
+  
+  def test_verify_spass__branch_no_return
+    AsdsController.class_exec do
+      def nothing
+        if true
+          Asd.new
+        else
+          Asd.build
+        end
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant(self.not.exists{ |asd| })
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__nothing)
+  end
+  
+  def test_verify_spass__branch_with_return__matters
+    AsdsController.class_exec do
+      def nothing
+        if true
+          return Asd.new
+        else
+          return Asd.build
+        end
+        Asd.find.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant(self.not.exists{ |asd| })
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__nothing)
+  end
+  
+  def test_verify_spass__branch_with_return__may_create_but_will_delete
+    AsdsController.class_exec do
+      def nothing
+        if true
+        else
+          Asd.build
+        end
+        Asd.find.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant(self.not.exists{ |asd| })
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__nothing)
+  end
+  
+  def test_verify_spass__branch_with_return__may_create_or_delete
+    AsdsController.class_exec do
+      def nothing
+        if true
+        else
+          return Asd.build
+        end
+        Asd.find.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant(self.not.exists{ |asd| })
+    ruby
+    
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__nothing)
+  end
+   
+  def test_verify_spass__variable_assignments
+    AsdsController.class_exec do
+      def nothing
+        a = nil
+        if true
+          a = Asd.new
+        else
+          a = Asd.build
+        end
+        a.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant(self.not.exists{ |asd| })
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__nothing)
+  end
+  
+end

data/test/integration/rails/rails_verification_test.rb

@@ -0,0 +1,253 @@
+require 'test/unit'
+require 'adsl/verification/rails_verification'
+require 'adsl/extract/rails/rails_instrumentation_test_case'
+require 'adsl/util/test_helper'
+
+class ADSL::Verification::RailsVerificationTest < ADSL::Extract::Rails::RailsInstrumentationTestCase
+  include ADSL::Verification::RailsVerification
+
+  def verify_options_for(action)
+    {
+      :output => :silent,
+      :check_satisfiability => false,
+      :halt_on_error => true,
+      :timeout => 120,
+      :actions => [action.to_s]
+    }
+  end
+  
+  def test_verify_spass__true
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant self.true
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for(:AsdsController__create)
+  end
+  
+  def test_verify_spass__false
+    AsdsController.class_exec do
+      def create
+        Asd.new
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant self.not(exists{|asd|})
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__create')
+  end
+  
+  def test_verify_spass__one_asd
+    AsdsController.class_exec do
+      def nothing
+        Asd.new
+        Asd.find.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant self.not(exists{|asd|})
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__one_asd_again
+    AsdsController.class_exec do
+      def nothing
+        Asd.new.destroy!
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant self.not(exists{|asd|})
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__one_asd_through_method_calls
+    Asd.class_exec do
+      def self.create_new_instance
+        Asd.new
+      end
+
+      def alias_to_kill
+        destroy
+      end
+    end
+
+    AsdsController.class_exec do
+      def nothing
+        Asd.create_new_instance
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant self.not(exists{|asd|})
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__foreach
+    AsdsController.class_exec do
+      def nothing
+        Asd.all.each do |asd|
+          asd.blahs.each do |blah|
+            blah.delete
+          end
+        end
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall{ |asd| asd.blahs.empty? }
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+
+  def test_verify_spass__foreach_through
+    AsdsController.class_exec do
+      def nothing
+        Asd.all.each do |asd|
+          asd.kmes.each do |kme|
+            kme.delete
+          end
+        end
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall{ |asd| asd.kmes.empty? }
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+
+  def test_verify_spass__association_build__simple
+    AsdsController.class_exec do
+      def nothing
+        Asd.find.blahs.build
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall{ |asd| not asd.blahs.empty? }
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__association_build__inverse
+    AsdsController.class_exec do
+      def nothing
+        b = Mod::Blah.new
+        Asd.find.blahs << b
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall(:blah => Mod::Blah){ |blah| not blah.asd.empty? }
+      invariant exists{ |asd| }
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+
+  def test_verify_spass__association_build__can_be_used
+    AsdsController.class_exec do
+      def nothing
+        Asd.find.blahs.build.delete
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall{ |asd| asd.blahs.empty? }
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__association_build__can_be_used_2
+    AsdsController.class_exec do
+      def nothing
+        Asd.find.blahs.build.delete
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant Mod::Blah.all.empty?
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__association_build__through_creates_join_objects
+    AsdsController.class_exec do
+      def nothing
+        Asd.find.kmes.build
+      end
+    end
+
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall{ |asd| asd.blahs.empty? }
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+
+  def test_verify_spass__union_of_objsets_overestimate
+    AsdsController.class_exec do
+      def nothing
+        a = Asd.find
+        a.blahs = Mod::Blah.new + Mod::Blah.new
+        Mod::Blah.find.delete
+        Mod::Blah.find.delete
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant Mod::Blah.all.empty?
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__union_of_objsets_underestimate
+    AsdsController.class_exec do
+      def nothing
+        a = Asd.find
+        a.blahs = Mod::Blah.new + Mod::Blah.new
+        Mod::Blah.find.delete
+        Mod::Blah.find.delete
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant !Mod::Blah.all.empty?
+    ruby
+
+    assert verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+  
+  def test_verify_spass__call_of_optional_assignment
+    AsdsController.class_exec do
+      def asd
+        @asd ||= Asd.find
+      end
+
+      def nothing
+        asd.blahs.build
+      end
+    end
+    
+    ast = create_rails_extractor(<<-ruby).adsl_ast
+      invariant forall(:blah => Mod::Blah){ |blah| !blah.asd.empty? }
+    ruby
+
+    assert_false verify_spass :ast => ast, :verify_options => verify_options_for('AsdsController__nothing')
+  end
+end