adsl 0.0.3 → 0.1.0

data/test/unit/adsl/verification/formula_generators_test.rb

@@ -0,0 +1,200 @@
+require 'test/unit'
+require 'pp'
+require 'adsl/extract/meta'
+require 'adsl/util/test_helper'
+require 'adsl/verification/formula_generators'
+require 'adsl/extract/rails/rails_instrumentation_test_case'
+
+class ADSL::Verification::FormulaGeneratorsTest < ADSL::Extract::Rails::RailsInstrumentationTestCase
+  include ADSL::Parser
+  include ADSL::Verification
+
+  attr_reader :fg
+
+  class FG
+    include ADSL::Verification::FormulaGenerators
+  end
+
+  def setup
+    super
+    @fg = FG.new
+    initialize_metaclasses
+  end
+  
+  def anything_with_adsl_ast
+    o = Object.new
+    o.define_singleton_method :adsl_ast do
+      nil
+    end
+    o
+  end
+
+  def test_forall__raises_unless_return_value_has_an_adsl_ast
+    fg.forall do |asd|
+      anything_with_adsl_ast
+    end
+    assert_raise do
+      forall do |asd|
+        'blah!'
+      end
+    end
+  end
+
+  def test_constants
+    [true, fg.true].each do |t|
+      assert_equal true, t.adsl_ast.bool_value
+      assert t.respond_to? :and
+    end
+    [false, fg.false].each do |t|
+      assert_equal false, t.adsl_ast.bool_value
+      assert t.respond_to? :and
+    end
+  end
+
+  def test_negation
+    formula = fg.not(true).adsl_ast
+    assert_equal ASTNot, formula.class
+    assert_equal true, formula.subformula.bool_value
+    
+    formula = fg.neg(true).adsl_ast
+    assert_equal ASTNot, formula.class
+    assert_equal true, formula.subformula.bool_value
+    
+    formula = fg.not.true.adsl_ast
+    assert_equal ASTNot, formula.class
+    assert_equal true, formula.subformula.bool_value
+  end
+  
+  def test_quantification__explicit_types_from_block_params
+    {:forall => ASTForAll, :exists => ASTExists}.each do |quantifier, klass|
+      formula = fg.send(quantifier, {:a => Asd}, &lambda do |a|
+        assert_equal Asd, a.class
+        assert_equal ASTVariable, a.adsl_ast.class
+        assert_equal 'a', a.adsl_ast.var_name.text
+        anything_with_adsl_ast
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal 'Asd', formula.adsl_ast.vars[0][1].class_name.text
+
+      formula = fg.send(quantifier, {:a => Asd, :b => Kme}, &lambda do |a, b|
+        assert_equal Asd, a.class
+        assert_equal ASTVariable, a.adsl_ast.class
+        assert_equal 'a', a.adsl_ast.var_name.text
+        assert_equal Kme, b.class
+        assert_equal ASTVariable, b.adsl_ast.class
+        assert_equal 'b', b.adsl_ast.var_name.text
+        anything_with_adsl_ast
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal 'Asd', formula.adsl_ast.vars[0][1].class_name.text
+      assert_equal 'Kme', formula.adsl_ast.vars[1][1].class_name.text
+    end
+  end
+
+  def test_quantifiers__infer_types_from_block_params
+    {:forall => ASTForAll, :exists => ASTExists}.each do |quantifier, klass|
+      formula = fg.send(quantifier, &lambda do |asd|
+        assert_equal Asd, asd.class
+        assert_equal ASTVariable, asd.adsl_ast.class
+        assert_equal 'asd', asd.adsl_ast.var_name.text
+        anything_with_adsl_ast
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal 'Asd', formula.adsl_ast.vars[0][1].class_name.text
+
+      formula = fg.send(quantifier, &lambda do |asd, kme|
+        assert_equal Asd, asd.class
+        assert_equal ASTVariable, asd.adsl_ast.class
+        assert_equal 'asd',       asd.adsl_ast.var_name.text
+        assert_equal Kme, kme.class
+        assert_equal ASTVariable, kme.adsl_ast.class
+        assert_equal 'kme',       kme.adsl_ast.var_name.text
+        anything_with_adsl_ast
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal 'Asd', formula.adsl_ast.vars[0][1].class_name.text
+      assert_equal 'Kme', formula.adsl_ast.vars[1][1].class_name.text
+    end
+  end
+  
+  def test_quantifier__precedence_of_type_inferment_lesser_than_explicit_declaration
+    {:forall => ASTForAll, :exists => ASTExists}.each do |quantifier, klass|
+      formula = fg.send(quantifier, {:asd => Kme}, &lambda do |asd|
+        assert_equal Kme, asd.class
+        assert_equal ASTVariable, asd.adsl_ast.class
+        assert_equal 'asd', asd.adsl_ast.var_name.text
+        anything_with_adsl_ast
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal 'Kme', formula.adsl_ast.vars[0][1].class_name.text
+    end
+  end
+
+  def test_quantifier__at_least_one_variable
+    [:forall, :exists].each do |quantifier|
+      assert_raise do
+        fg.send(quantifier, {}, &lambda do
+          anything_with_adsl_ast
+        end)
+      end
+    end
+  end
+
+  def test_quantifier__contains_the_subformula
+    {:forall => ASTForAll, :exists => ASTExists}.each do |quantifier, klass|
+      formula = fg.send(quantifier, &lambda do |asd|
+        true
+      end)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true, formula.adsl_ast.subformula.bool_value
+    end
+  end
+
+  def test_binary_operators__prefix
+    {:implies => ASTImplies}.each do |operator, klass|
+      formula = fg.send(operator, true, fg.false)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true,  formula.adsl_ast.subformula1.bool_value
+      assert_equal false, formula.adsl_ast.subformula2.bool_value
+    end
+  end
+  
+  def test_and_or__prefix_any_number_of_params
+    {:and => ASTAnd, :or => ASTOr, :equiv => ASTEquiv}.each do |operator, klass|
+      formula = fg.send(operator, true, false)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true,  formula.adsl_ast.subformulae.first.bool_value
+      assert_equal false, formula.adsl_ast.subformulae.second.bool_value
+
+      formula = fg.send(operator, true, false, true, false)
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true,  formula.adsl_ast.subformulae[0].bool_value
+      assert_equal false, formula.adsl_ast.subformulae[1].bool_value
+      assert_equal true,  formula.adsl_ast.subformulae[2].bool_value
+      assert_equal false, formula.adsl_ast.subformulae[3].bool_value
+    end
+  end
+
+  def test_and_or__infix
+    {:and => ASTAnd, :or => ASTOr}.each do |operator, klass|
+      formula = true.send(operator).false
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true,  formula.adsl_ast.subformulae[0].bool_value
+      assert_equal false, formula.adsl_ast.subformulae[1].bool_value
+    end
+  end
+  
+  def test_and_or__not_precedence
+    {:and => ASTAnd, :or => ASTOr}.each do |operator, klass|
+      formula = true.send(operator).not.false
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal true,  formula.adsl_ast.subformulae[0].bool_value
+      assert_equal ASTNot, formula.adsl_ast.subformulae[1].class
+      
+      formula = fg.neg.true.send(operator).false
+      assert_equal klass, formula.adsl_ast.class
+      assert_equal ASTNot, formula.adsl_ast.subformulae[0].class
+      assert_equal false, formula.adsl_ast.subformulae[1].bool_value
+    end
+  end
+end

data/test/unit/adsl/verification/instrumentation_filter_test.rb

@@ -0,0 +1,39 @@
+require 'test/unit'
+require 'adsl/verification/instrumentation_filter'
+
+module ADSL::Verification
+  class InstrumentationFilterTest < Test::Unit::TestCase
+
+    def asd; end
+    def kme; end
+
+    def test_applies_to__method_name
+      filter = InstrumentationFilter.new :method_name => :asd
+      assert filter.applies_to?(self, :asd)
+
+      filter = InstrumentationFilter.new :method_name => 'asd'
+      assert filter.applies_to?(self, :asd)
+      
+      filter = InstrumentationFilter.new :method_name => /\w+/
+      assert filter.applies_to?(self, :asd)
+      
+      filter = InstrumentationFilter.new :method_name => :asd
+      assert_false filter.applies_to?('asd', :length)
+    end
+    
+    def test_applies_to__owner
+      filter = InstrumentationFilter.new :method_owner => InstrumentationFilterTest
+      assert filter.applies_to?(self, :asd)
+
+      filter = InstrumentationFilter.new :method_owner => Test::Unit::TestCase
+      assert_false filter.applies_to?(self, :asd)
+    end
+    
+    def test_applies_to__method_name_and_owner
+      filter = InstrumentationFilter.new :method_name => 'asd', :method_owner => InstrumentationFilterTest
+      assert filter.applies_to?(self, :asd)
+      assert_false filter.applies_to?(self, :kme)
+    end
+
+  end
+end

data/test/unit/adsl/verification/utils_test.rb

@@ -0,0 +1,39 @@
+require 'test/unit'
+require 'pp'
+require 'adsl/extract/meta'
+require 'adsl/util/test_helper'
+require 'adsl/verification/utils'
+
+class ADSL::Verification::UtilsTest < Test::Unit::TestCase
+  include ADSL::Verification::Utils
+
+  def setup
+    eval <<-ruby
+      class ::User; end
+      class ::UserAddress; end
+    ruby
+  end
+
+  def teardown
+    unload_class :User, :UserAddress
+  end
+
+  def test_infer_classname_from_varname
+    assert_equal 'User', infer_classname_from_varname('user')
+    assert_equal 'User', infer_classname_from_varname(:user)
+    assert_equal 'UserAddress', infer_classname_from_varname('user_address')
+    assert_equal 'UserAddress', infer_classname_from_varname(:user_address)
+
+    assert_equal 'User', infer_classname_from_varname('user1')
+    assert_equal 'User', infer_classname_from_varname('user_12')
+    assert_equal 'UserAddress', infer_classname_from_varname('user_address1')
+  end
+
+  def test_classname_for_classname
+    assert_equal 'User', classname_for_classname(User)
+    assert_equal 'User', classname_for_classname(:user)
+    assert_equal 'User', classname_for_classname('user')
+    assert_equal 'UserAddress', classname_for_classname('user_address')
+    assert_equal 'UserAddress', classname_for_classname(:user_address)
+  end
+end

data/test/unit/adsl/verification/verification_case_test.rb

@@ -0,0 +1,8 @@
+require 'test/unit'
+require 'pp'
+require 'adsl/extract/meta'
+require 'adsl/util/test_helper'
+require 'adsl/verification/verification_case'
+
+class ADSL::Verification::VerificationCaseTest < Test::Unit::TestCase
+end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: adsl
 version: !ruby/object:Gem::Version
-  version: 0.0.3
+  version: 0.1.0
 platform: ruby
 authors:
 - Ivan Bocic
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-06-12 00:00:00.000000000 Z
+date: 2013-09-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rake
@@ -25,7 +25,21 @@ dependencies:
       - !ruby/object:Gem::Version
         version: '0'
 - !ruby/object:Gem::Dependency
-  name: test-unit
+  name: rails
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+- !ruby/object:Gem::Dependency
+  name: sqlite3
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - '>='
@@ -67,7 +81,21 @@ dependencies:
       - !ruby/object:Gem::Version
         version: '0'
 - !ruby/object:Gem::Dependency
-  name: active_support
+  name: activesupport
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+- !ruby/object:Gem::Dependency
+  name: i18n
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - '>='
@@ -95,7 +123,35 @@ dependencies:
       - !ruby/object:Gem::Version
         version: '0'
 - !ruby/object:Gem::Dependency
-  name: i18n
+  name: method_source
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.8'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.8'
+- !ruby/object:Gem::Dependency
+  name: ruby_parser
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.1'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.1'
+- !ruby/object:Gem::Dependency
+  name: ruby2ruby
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - '>='
@@ -108,35 +164,146 @@ dependencies:
     - - '>='
       - !ruby/object:Gem::Version
         version: '0'
-description: ADSL parses ADSL specification, translating it into Spass for verification
+- !ruby/object:Gem::Dependency
+  name: backports
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: activerecord
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '3.2'
+- !ruby/object:Gem::Dependency
+  name: activerecord-tableless
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: test-unit
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: A tool for automatic extraction and verification of Rails formal models.
+  Just include it in your Gemfile, write a few invariants, setup Spass and `rake verify`!
 email:
 - bo@cs.ucsb.edu
-executables:
-- adsl-verify
+executables: []
 extensions: []
 extra_rdoc_files: []
 files:
 - bin/adsl-verify
-- lib/ds/data_store_spec.rb
-- lib/parser/adsl_parser.rex
-- lib/parser/adsl_parser.racc
-- lib/parser/dsdl_parser.rex.rb
-- lib/parser/adsl_ast.rb
-- lib/parser/adsl_parser.tab.rb
-- lib/parser/dsdl_parser.tab.rb
-- lib/parser/adsl_parser.rex.rb
-- lib/util/test_helper.rb
-- lib/util/csv_hash_formatter.rb
-- lib/util/util.rb
-- lib/spass/util.rb
-- lib/spass/spass_ds_extensions.rb
-- lib/spass/ruby_extensions.rb
-- lib/spass/bin.rb
-- lib/spass/spass_translator.rb
-- lib/fol/first_order_logic.rb
+- lib/adsl/ds/data_store_spec.rb
+- lib/adsl/parser/adsl_parser.rex
+- lib/adsl/parser/adsl_parser.racc
+- lib/adsl/parser/ast_nodes.rb
+- lib/adsl/parser/adsl_parser.tab.rb
+- lib/adsl/parser/adsl_parser.rex.rb
+- lib/adsl/extract/meta.rb
+- lib/adsl/extract/sexp_utils.rb
+- lib/adsl/extract/instrumenter.rb
+- lib/adsl/extract/rails/action_instrumenter.rb
+- lib/adsl/extract/rails/action_runner.rb
+- lib/adsl/extract/rails/action_block_builder.rb
+- lib/adsl/extract/rails/rails_test_helper.rb
+- lib/adsl/extract/rails/rails_instrumentation_test_case.rb
+- lib/adsl/extract/rails/other_meta.rb
+- lib/adsl/extract/rails/callback_chain_simulator.rb
+- lib/adsl/extract/rails/active_record_metaclass_generator.rb
+- lib/adsl/extract/rails/rails_extractor.rb
+- lib/adsl/extract/rails/rails_special_gem_instrumentation.rb
+- lib/adsl/extract/rails/invariant_instrumenter.rb
+- lib/adsl/extract/rails/invariant_extractor.rb
+- lib/adsl/util/test_helper.rb
+- lib/adsl/util/general.rb
+- lib/adsl/util/csv_hash_formatter.rb
+- lib/adsl/spass/util.rb
+- lib/adsl/spass/spass_ds_extensions.rb
+- lib/adsl/spass/ruby_extensions.rb
+- lib/adsl/spass/bin.rb
+- lib/adsl/spass/spass_translator.rb
+- lib/adsl/fol/first_order_logic.rb
+- lib/adsl/railtie.rb
+- lib/adsl/adsl.rb
+- lib/adsl/verification/rails_verification.rb
+- lib/adsl/verification/instrumentation_filter.rb
+- lib/adsl/verification/verification_case.rb
+- lib/adsl/verification/invariant.rb
+- lib/adsl/verification/formula_generators.rb
+- lib/adsl/verification/utils.rb
+- lib/adsl.rb
 - LICENSE
 - README.md
 - Gemfile
+- test/unit/adsl/ds/data_store_spec_test.rb
+- test/unit/adsl/parser/parser_util_test.rb
+- test/unit/adsl/parser/action_parser_test.rb
+- test/unit/adsl/parser/invariant_parser_test.rb
+- test/unit/adsl/parser/class_parser_test.rb
+- test/unit/adsl/parser/general_parser_test.rb
+- test/unit/adsl/parser/ast_nodes_test.rb
+- test/unit/adsl/extract/instrumenter_test.rb
+- test/unit/adsl/extract/rails/active_record_metaclass_generator_test.rb
+- test/unit/adsl/extract/rails/action_instrumenter_test.rb
+- test/unit/adsl/extract/rails/action_block_builder_test.rb
+- test/unit/adsl/extract/rails/rails_test_helper_test.rb
+- test/unit/adsl/extract/rails/rails_extractor_test.rb
+- test/unit/adsl/extract/rails/callback_chain_simulator_test.rb
+- test/unit/adsl/extract/rails/invariant_extractor_test.rb
+- test/unit/adsl/extract/sexp_utils_test.rb
+- test/unit/adsl/extract/meta_test.rb
+- test/unit/adsl/util/csv_hash_formatter_test.rb
+- test/unit/adsl/util/general_test.rb
+- test/unit/adsl/util/test_helper_test.rb
+- test/unit/adsl/spass/spass_translator_test.rb
+- test/unit/adsl/spass/ruby_extensions_test.rb
+- test/unit/adsl/spass/bin_test.rb
+- test/unit/adsl/spass/spass_ds_extensions_test.rb
+- test/unit/adsl/fol/first_order_logic_test.rb
+- test/unit/adsl/verification/formula_generators_test.rb
+- test/unit/adsl/verification/verification_case_test.rb
+- test/unit/adsl/verification/utils_test.rb
+- test/unit/adsl/verification/instrumentation_filter_test.rb
+- test/integration/spass/basic_translation_test.rb
+- test/integration/spass/control_flow_translation_test.rb
+- test/integration/rails/rails_verification_test.rb
+- test/integration/rails/rails_branch_verification_test.rb
 homepage: http://cs.ucsb.edu/~bo/adsl/
 licenses:
 - GNU LGPL 3
@@ -147,9 +314,9 @@ require_paths:
 - lib
 required_ruby_version: !ruby/object:Gem::Requirement
   requirements:
-  - - ~>
+  - - '>='
     - !ruby/object:Gem::Version
-      version: 1.8.7
+      version: 1.9.3
 required_rubygems_version: !ruby/object:Gem::Requirement
   requirements:
   - - '>='
@@ -160,5 +327,38 @@ rubyforge_project:
 rubygems_version: 2.0.3
 signing_key: 
 specification_version: 4
-summary: A tool for parsing ADSL and translating it into Spass
-test_files: []
+summary: A library for formal verification of Rails models
+test_files:
+- test/unit/adsl/ds/data_store_spec_test.rb
+- test/unit/adsl/parser/parser_util_test.rb
+- test/unit/adsl/parser/action_parser_test.rb
+- test/unit/adsl/parser/invariant_parser_test.rb
+- test/unit/adsl/parser/class_parser_test.rb
+- test/unit/adsl/parser/general_parser_test.rb
+- test/unit/adsl/parser/ast_nodes_test.rb
+- test/unit/adsl/extract/instrumenter_test.rb
+- test/unit/adsl/extract/rails/active_record_metaclass_generator_test.rb
+- test/unit/adsl/extract/rails/action_instrumenter_test.rb
+- test/unit/adsl/extract/rails/action_block_builder_test.rb
+- test/unit/adsl/extract/rails/rails_test_helper_test.rb
+- test/unit/adsl/extract/rails/rails_extractor_test.rb
+- test/unit/adsl/extract/rails/callback_chain_simulator_test.rb
+- test/unit/adsl/extract/rails/invariant_extractor_test.rb
+- test/unit/adsl/extract/sexp_utils_test.rb
+- test/unit/adsl/extract/meta_test.rb
+- test/unit/adsl/util/csv_hash_formatter_test.rb
+- test/unit/adsl/util/general_test.rb
+- test/unit/adsl/util/test_helper_test.rb
+- test/unit/adsl/spass/spass_translator_test.rb
+- test/unit/adsl/spass/ruby_extensions_test.rb
+- test/unit/adsl/spass/bin_test.rb
+- test/unit/adsl/spass/spass_ds_extensions_test.rb
+- test/unit/adsl/fol/first_order_logic_test.rb
+- test/unit/adsl/verification/formula_generators_test.rb
+- test/unit/adsl/verification/verification_case_test.rb
+- test/unit/adsl/verification/utils_test.rb
+- test/unit/adsl/verification/instrumentation_filter_test.rb
+- test/integration/spass/basic_translation_test.rb
+- test/integration/spass/control_flow_translation_test.rb
+- test/integration/rails/rails_verification_test.rb
+- test/integration/rails/rails_branch_verification_test.rb