RubyGems - adsl - Versions diffs - 0.0.3 → 0.1.0 - Mend

adsl 0.0.3 → 0.1.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (91) hide show

checksums.yaml +4 -4
data/Gemfile +2 -20
data/README.md +14 -21
data/bin/adsl-verify +8 -8
data/lib/adsl.rb +3 -0
data/lib/adsl/adsl.rb +3 -0
data/lib/adsl/ds/data_store_spec.rb +339 -0
data/lib/adsl/extract/instrumenter.rb +206 -0
data/lib/adsl/extract/meta.rb +33 -0
data/lib/adsl/extract/rails/action_block_builder.rb +233 -0
data/lib/adsl/extract/rails/action_instrumenter.rb +400 -0
data/lib/adsl/extract/rails/action_runner.rb +57 -0
data/lib/adsl/extract/rails/active_record_metaclass_generator.rb +555 -0
data/lib/adsl/extract/rails/callback_chain_simulator.rb +135 -0
data/lib/adsl/extract/rails/invariant_extractor.rb +48 -0
data/lib/adsl/extract/rails/invariant_instrumenter.rb +70 -0
data/lib/adsl/extract/rails/other_meta.rb +57 -0
data/lib/adsl/extract/rails/rails_extractor.rb +211 -0
data/lib/adsl/extract/rails/rails_instrumentation_test_case.rb +34 -0
data/lib/adsl/extract/rails/rails_special_gem_instrumentation.rb +120 -0
data/lib/adsl/extract/rails/rails_test_helper.rb +140 -0
data/lib/adsl/extract/sexp_utils.rb +54 -0
data/lib/adsl/fol/first_order_logic.rb +261 -0
data/lib/adsl/parser/adsl_parser.racc +159 -0
data/lib/{parser → adsl/parser}/adsl_parser.rex +4 -4
data/lib/{parser → adsl/parser}/adsl_parser.rex.rb +6 -6
data/lib/adsl/parser/adsl_parser.tab.rb +1031 -0
data/lib/adsl/parser/ast_nodes.rb +1410 -0
data/lib/adsl/railtie.rb +67 -0
data/lib/adsl/spass/bin.rb +230 -0
data/lib/{spass → adsl/spass}/ruby_extensions.rb +0 -0
data/lib/adsl/spass/spass_ds_extensions.rb +931 -0
data/lib/adsl/spass/spass_translator.rb +393 -0
data/lib/adsl/spass/util.rb +13 -0
data/lib/adsl/util/csv_hash_formatter.rb +94 -0
data/lib/adsl/util/general.rb +228 -0
data/lib/adsl/util/test_helper.rb +71 -0
data/lib/adsl/verification/formula_generators.rb +231 -0
data/lib/adsl/verification/instrumentation_filter.rb +50 -0
data/lib/adsl/verification/invariant.rb +19 -0
data/lib/adsl/verification/rails_verification.rb +33 -0
data/lib/adsl/verification/utils.rb +20 -0
data/lib/adsl/verification/verification_case.rb +13 -0
data/test/integration/rails/rails_branch_verification_test.rb +112 -0
data/test/integration/rails/rails_verification_test.rb +253 -0
data/test/integration/spass/basic_translation_test.rb +563 -0
data/test/integration/spass/control_flow_translation_test.rb +421 -0
data/test/unit/adsl/ds/data_store_spec_test.rb +54 -0
data/test/unit/adsl/extract/instrumenter_test.rb +103 -0
data/test/unit/adsl/extract/meta_test.rb +142 -0
data/test/unit/adsl/extract/rails/action_block_builder_test.rb +178 -0
data/test/unit/adsl/extract/rails/action_instrumenter_test.rb +68 -0
data/test/unit/adsl/extract/rails/active_record_metaclass_generator_test.rb +336 -0
data/test/unit/adsl/extract/rails/callback_chain_simulator_test.rb +76 -0
data/test/unit/adsl/extract/rails/invariant_extractor_test.rb +92 -0
data/test/unit/adsl/extract/rails/rails_extractor_test.rb +1380 -0
data/test/unit/adsl/extract/rails/rails_test_helper_test.rb +25 -0
data/test/unit/adsl/extract/sexp_utils_test.rb +100 -0
data/test/unit/adsl/fol/first_order_logic_test.rb +227 -0
data/test/unit/adsl/parser/action_parser_test.rb +1040 -0
data/test/unit/adsl/parser/ast_nodes_test.rb +359 -0
data/test/unit/adsl/parser/class_parser_test.rb +288 -0
data/test/unit/adsl/parser/general_parser_test.rb +67 -0
data/test/unit/adsl/parser/invariant_parser_test.rb +432 -0
data/test/unit/adsl/parser/parser_util_test.rb +126 -0
data/test/unit/adsl/spass/bin_test.rb +65 -0
data/test/unit/adsl/spass/ruby_extensions_test.rb +39 -0
data/test/unit/adsl/spass/spass_ds_extensions_test.rb +7 -0
data/test/unit/adsl/spass/spass_translator_test.rb +342 -0
data/test/unit/adsl/util/csv_hash_formatter_test.rb +68 -0
data/test/unit/adsl/util/general_test.rb +303 -0
data/test/unit/adsl/util/test_helper_test.rb +120 -0
data/test/unit/adsl/verification/formula_generators_test.rb +200 -0
data/test/unit/adsl/verification/instrumentation_filter_test.rb +39 -0
data/test/unit/adsl/verification/utils_test.rb +39 -0
data/test/unit/adsl/verification/verification_case_test.rb +8 -0
metadata +229 -29
data/lib/ds/data_store_spec.rb +0 -292
data/lib/fol/first_order_logic.rb +0 -260
data/lib/parser/adsl_ast.rb +0 -779
data/lib/parser/adsl_parser.racc +0 -151
data/lib/parser/adsl_parser.tab.rb +0 -976
data/lib/parser/dsdl_parser.rex.rb +0 -196
data/lib/parser/dsdl_parser.tab.rb +0 -976
data/lib/spass/bin.rb +0 -164
data/lib/spass/spass_ds_extensions.rb +0 -870
data/lib/spass/spass_translator.rb +0 -388
data/lib/spass/util.rb +0 -11
data/lib/util/csv_hash_formatter.rb +0 -47
data/lib/util/test_helper.rb +0 -33
data/lib/util/util.rb +0 -114

data/test/unit/adsl/parser/general_parser_test.rb ADDED

@@ -0,0 +1,67 @@
+require 'adsl/parser/adsl_parser.tab'
+require 'test/unit'
+require 'pp'
+module ADSL::Parser
+  class GeneralParserTest < Test::Unit::TestCase
+    include ADSL::Parser
+    def test_comments_single_line
+      parser = ADSLParser.new
+      ['#', '//'].each do |commentchar|
+        spec = parser.parse <<-ADSL
+          class Class1 {}
+          #{commentchar} class Class1 {}
+          class Class2
+          #{commentchar} class Class3
+          {} #{commentchar}#{commentchar} class Class4 {}
+          #{commentchar}#{commentchar}
+          #{commentchar}
+        ADSL
+        assert_equal ['Class1', 'Class2'], spec.classes.map{ |c| c.name }
+        spec = parser.parse <<-ADSL
+          #{commentchar} class Class1 {}
+        ADSL
+        assert spec.classes.empty?
+      end
+    end
+    def test_comments_multi_line
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class1 {}
+        /* class Class2 {} */
+      ADSL
+      assert_equal ['Class1'], spec.classes.map{ |c| c.name }
+      spec = parser.parse <<-ADSL
+        class Class1 /*
+        */ {} /*
+        */ class Class2 {}
+      ADSL
+      assert_equal ['Class1', 'Class2'], spec.classes.map{ |c| c.name }
+    end
+    def test_different_comment_types_dont_interfere
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class1 {}
+        /* // */
+        class Class2 {}
+        /* # */
+      ADSL
+      assert_equal ['Class1', 'Class2'], spec.classes.map{ |c| c.name }
+      spec = parser.parse <<-ADSL
+        // /*
+        class Class1 {}
+        # */
+      ADSL
+      assert_equal ['Class1'], spec.classes.map{ |c| c.name }
+    end
+  end
+end

data/test/unit/adsl/parser/invariant_parser_test.rb ADDED

@@ -0,0 +1,432 @@
+require 'adsl/parser/adsl_parser.tab'
+require 'adsl/ds/data_store_spec'
+require 'test/unit'
+require 'pp'
+module ADSL::Parser
+  class InvariantParserTest < Test::Unit::TestCase
+    include ADSL::Parser
+    include ADSL::DS
+    def test_invariant__constants
+      parser = ADSLParser.new
+      [true, false].each do |bool|
+        spec = nil
+        assert_nothing_raised ADSLError do
+          spec = parser.parse "invariant #{bool.to_s}"
+        end
+        assert_equal([], spec.actions)
+        assert_equal([], spec.classes)
+        assert_equal 1, spec.invariants.length
+        assert_equal bool, spec.invariants.first.formula.bool_value
+      end
+    end
+    def test_invariant__names
+      parser = ADSLParser.new
+      spec = nil
+      assert_nothing_raised ADSLError do
+        spec = parser.parse "invariant some_name: true"
+      end
+      assert_equal "some_name", spec.invariants.first.name
+      assert_nothing_raised ADSLError do
+        spec = parser.parse <<-ADSL
+          invariant some_name: true
+          invariant true
+        ADSL
+      end
+      assert_raise ADSLError do
+        spec = parser.parse <<-ADSL
+          invariant some_name: true
+          invariant some_name: true
+        ADSL
+      end
+      assert_nothing_raised ADSLError do
+        spec = parser.parse <<-ADSL
+          invariant true
+          invariant true
+        ADSL
+      end
+      assert_equal "unnamed_line_1", spec.invariants.first.name
+      assert_equal "unnamed_line_2", spec.invariants.last.name
+    end
+    def test_invariant__forall_and_exists_one_param
+      parser = ADSLParser.new
+      operators = {
+        "forall" => DSForAll,
+        "exists" => DSExists
+      }
+      operators.each do |word, type|
+        spec = nil
+        assert_nothing_raised ADSLError do
+          spec = parser.parse <<-ADSL
+            class Class {}
+            invariant #{word}(Class a: true)
+          ADSL
+        end
+        invariant = spec.invariants.first
+        assert_equal type, invariant.formula.class
+        assert_equal 1, invariant.formula.vars.length
+        assert_equal spec.classes.first, invariant.formula.vars.first.type
+        assert_equal 'a', invariant.formula.vars.first.name
+        assert_equal true, invariant.formula.subformula.bool_value
+      end
+    end
+    def test_invariant__forall_and_exists_mulitple_params
+      parser = ADSLParser.new
+      operators = {
+        "forall" => DSForAll,
+        "exists" => DSExists
+      }
+      operators.each do |word, type|
+        spec = nil
+        assert_nothing_raised ADSLError do
+          spec = parser.parse <<-ADSL
+            class Class {}
+            invariant #{word}(Class a, Class b: true)
+          ADSL
+        end
+        invariant = spec.invariants.first
+        assert_equal type, invariant.formula.class
+        assert_equal 2, invariant.formula.vars.length
+        assert_equal [spec.classes.first, spec.classes.first], invariant.formula.vars.map{ |v| v.type }
+        assert_equal ['a', 'b'], invariant.formula.vars.map{ |v| v.name }
+        assert_equal true, invariant.formula.subformula.bool_value
+      end
+    end
+    def test_invariant__forall_and_exists_typecheck
+      parser = ADSLParser.new
+      ['forall', 'exists'].each do |formula|
+        assert_raise do
+          parser.parse <<-ADSL
+            invariant #{formula}(true)
+          ADSL
+        end
+        assert_raise ADSLError do
+          parser.parse <<-ADSL
+            invariant #{formula}(Class a, Class b: true)
+          ADSL
+        end
+        assert_raise ADSLError do
+          parser.parse <<-ADSL
+            class Class {}
+            invariant #{formula}(Class a, Class a: true)
+          ADSL
+        end
+        assert_raise ADSLError do
+          parser.parse <<-ADSL
+            class Class {}
+            invariant #{formula}(Class a: #{formula}(Class a: true))
+          ADSL
+        end
+      end
+    end
+    def test_invariant__forall_and_exists_can_use_objsets
+      parser = ADSLParser.new
+      ['forall', 'exists'].each do |formula|
+        spec = parser.parse <<-ADSL
+          class Class { 0+ Class relation }
+          invariant #{formula}(a in allof(Class): true)
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal 'a', invariant.formula.vars.first.name
+        assert_equal DSAllOf, invariant.formula.objsets.first.class
+        spec = parser.parse <<-ADSL
+          class Class { 0+ Class relation }
+          invariant #{formula}(a in allof(Class).relation: true)
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal 'a', invariant.formula.vars.first.name
+        assert_equal DSDereference, invariant.formula.objsets.first.class
+        spec = parser.parse <<-ADSL
+          class Class { 0+ Class relation }
+          invariant #{formula}(Class a: #{formula}(b in a: true))
+        ADSL
+      end
+    end
+    def test_invariant__exists_can_go_without_subformula_while_forall_cannot
+      parser = ADSLParser.new
+      assert_nothing_raised ADSLError do
+        spec = parser.parse <<-ADSL
+          class Class {}
+          invariant exists(Class a)
+        ADSL
+      end
+      assert_raise do
+        spec = parser.parse <<-ADSL
+          class Class {}
+          invariant forall(Class a)
+        ADSL
+      end
+    end
+    def test_invariant__parenthesis
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        invariant (true)
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal true, invariant.formula.bool_value
+    end
+    def test_invariant__not
+      parser = ADSLParser.new
+      ['not', '!'].each do |word|
+        spec = parser.parse <<-ADSL
+          invariant not false
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal DSNot, invariant.formula.class
+        assert_equal false, invariant.formula.subformula.bool_value
+      end
+    end
+    def test_invariant__and_or
+      parser = ADSLParser.new
+      operators = {
+        "and" => DSAnd,
+        "or" => DSOr
+      }
+      operators.each do |word, type|
+        spec = parser.parse <<-ADSL
+          invariant true #{word} false
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal type, invariant.formula.class
+        assert_equal [true, false], invariant.formula.subformulae.map{ |a| a.bool_value}
+        spec = parser.parse <<-ADSL
+          invariant true #{word} false #{word} true
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal type, invariant.formula.class
+        assert_equal [true, false, true], invariant.formula.subformulae.map{ |a| a.bool_value}
+      end
+    end
+    def test_invariant__operator_precedence_and_associativity
+      parser = ADSLParser.new
+      operators = {
+        "and" => DSAnd,
+        "or" => DSOr
+      }
+      operators.each do |word, type|
+        spec = parser.parse <<-ADSL
+          invariant not true #{word} false
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal type, invariant.formula.class
+        assert_equal DSNot, invariant.formula.subformulae.first.class
+        assert_equal false, invariant.formula.subformulae.second.bool_value
+      end
+      operators.each do |word, type|
+        spec = parser.parse <<-ADSL
+          invariant not (true #{word} false)
+        ADSL
+        invariant = spec.invariants.first
+        assert_equal DSNot, invariant.formula.class
+        assert_equal type, invariant.formula.subformula.class
+      end
+      spec = parser.parse <<-ADSL
+        invariant true and !false or true
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSOr, invariant.formula.class
+      assert_equal true, invariant.formula.subformulae.second.bool_value
+      assert_equal DSAnd, invariant.formula.subformulae.first.class
+      assert_equal true, invariant.formula.subformulae.first.subformulae.first.bool_value
+      assert_equal DSNot, invariant.formula.subformulae.first.subformulae.second.class
+    end
+    def test_invariant__equal
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant exists(Class o1, Class o2: o1 == o2)
+      ADSL
+      f = spec.invariants.first.formula.subformula
+      assert_equal DSEqual, f.class
+      assert_equal ['o1', 'o2'], f.objsets.map { |v| v.name }
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant exists(Class o1, Class o2: equal(o1, o2))
+      ADSL
+      f = spec.invariants.first.formula.subformula
+      assert_equal DSEqual, f.class
+      assert_equal ['o1', 'o2'], f.objsets.map { |v| v.name }
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant exists(Class o1, Class o2: equal(o1, o2, o1, o1))
+      ADSL
+      f = spec.invariants.first.formula.subformula
+      assert_equal DSEqual, f.class
+      assert_equal ['o1', 'o2', 'o1', 'o1'], f.objsets.map { |v| v.name }
+      assert_nothing_raised ADSLError do
+        parser.parse <<-ADSL
+          class Class {}
+          class Child extends Class {}
+          invariant allof(Class) == allof(Child)
+        ADSL
+      end
+      assert_raise ADSLError do
+        parser.parse <<-ADSL
+          class Class1 {}
+          class Class2 {}
+          invariant allof(Class1) == allof(Child2)
+        ADSL
+      end
+      assert_raise ADSLError do
+        parser.parse <<-ADSL
+          class Parent {}
+          class Class1 extends Parent {}
+          class Class2 extends Parent {}
+          invariant equal(allof(Parent), allof(Class1), allof(Child2))
+        ADSL
+      end
+    end
+    def test_invariant__not_equal
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant exists(Class o1, Class o2: o1 != o2)
+      ADSL
+      f = spec.invariants.first.formula.subformula
+      assert_equal DSNot, f.class
+      assert_equal DSEqual, f.subformula.class
+      assert_equal ['o1', 'o2'], f.subformula.objsets.map { |v| v.name }
+    end
+    def test_invariant__equiv
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant true <=> false
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSEquiv, invariant.formula.class
+      assert_equal [true, false], invariant.formula.subformulae.map{ |f| f.bool_value }
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant equiv(true, false)
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSEquiv, invariant.formula.class
+      assert_equal [true, false], invariant.formula.subformulae.map{ |f| f.bool_value }
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant equiv(true, false, true, true)
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSEquiv, invariant.formula.class
+      assert_equal [true, false, true, true], invariant.formula.subformulae.map{ |f| f.bool_value }
+    end
+    def test_invariant__implies
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant true => false
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSImplies, invariant.formula.class
+      assert_equal true,  invariant.formula.subformula1.bool_value
+      assert_equal false, invariant.formula.subformula2.bool_value
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant false <= true
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSImplies, invariant.formula.class
+      assert_equal true,  invariant.formula.subformula1.bool_value
+      assert_equal false, invariant.formula.subformula2.bool_value
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant implies(true, false)
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSImplies, invariant.formula.class
+      assert_equal true,  invariant.formula.subformula1.bool_value
+      assert_equal false, invariant.formula.subformula2.bool_value
+    end
+    def test_invariant__empty
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant empty(allof(Class))
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSEmpty, invariant.formula.class
+      assert_equal DSAllOf, invariant.formula.objset.class
+    end
+    def test_invariant__in
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant allof(Class) in allof(Class)
+      ADSL
+      invariant = spec.invariants.first
+      assert_equal DSIn, invariant.formula.class
+      assert_equal DSAllOf, invariant.formula.objset1.class
+      assert_equal DSAllOf, invariant.formula.objset2.class
+      assert_raise ADSLError do
+        parser.parse <<-ADSL
+          class Class1 {}
+          class Class2 {}
+          invariant allof(Class1) in allof(Class2)
+        ADSL
+      end
+      assert_raise ADSLError do
+        parser.parse <<-ADSL
+          class Super {}
+          class Sub extends Super {}
+          invariant allof(Super) in allof(Sub)
+        ADSL
+      end
+      assert_nothing_raised ADSLError do
+        parser.parse <<-ADSL
+          class Super {}
+          class Sub extends Super {}
+          invariant allof(Sub) in allof(Super)
+        ADSL
+      end
+    end
+    def test_invariant__variable_scope
+      parser = ADSLParser.new
+      spec = parser.parse <<-ADSL
+        class Class {}
+        invariant exists(Class o)
+        invariant exists(Class o)
+        invariant exists(Class o)
+        invariant exists(Class o)
+      ADSL
+    end
+  end
+end