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/integration/spass/control_flow_translation_test.rb ADDED

@@ -0,0 +1,421 @@
+require 'adsl/util/test_helper'
+require 'test/unit'
+class ControlFlowTranslationTest < Test::Unit::TestCase
+  def test_either__blank
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        either {} or {}
+      }
+      invariant exists(Class o)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        either {} or {}
+      }
+      invariant not exists(Class o)
+    ADSL
+  end
+  def test_either__doesnt_break_others
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        create(Class)
+        either {} or {}
+      }
+      invariant exists(Class o)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        either {} or {}
+        create(Class)
+      }
+      invariant exists(Class o)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {} or {}
+        create(Class)
+      }
+      invariant not exists(Class o)
+    ADSL
+  end
+  def test_either__may_delete_an_object
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          delete allof(Class)
+        } or {}
+      }
+      invariant exists(Class o)
+    ADSL
+  end
+  def test_either__blank_is_noop
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        create(Class)
+        either {} or {} or {} or {}
+      }
+      invariant not exists(Class c)
+    ADSL
+  end
+  def test_either__may_delete_and_create_an_object
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          delete allof(Class)
+          create(Class)
+        } or {}
+      }
+      invariant not exists(Class o)
+    ADSL
+  end
+  def test_either__branches_symmetrical
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          delete allof(Class)
+          create(Class)
+        } or {}
+      }
+      invariant not exists(Class o)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {} or {
+          delete allof(Class)
+          create(Class)
+        }
+      }
+      invariant not exists(Class o)
+    ADSL
+  end
+  def test_either__false_dichotomy
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          create(Class)
+        } or {
+          create(Class)
+        }
+      }
+      invariant not exists(Class o)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          create(Class)
+        } or {
+          create(Class)
+        }
+      }
+      invariant exists(Class o)
+    ADSL
+  end
+  def test_either__multiple_options
+    adsl_assert :correct, <<-ADSL
+      class Class {}
+      action blah() {
+        either {} or {
+          delete allof(Class)
+          create(Class)
+        } or {
+          create(Class)
+        }
+      }
+      invariant exists(Class o)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class {}
+      action blah() {
+        either {
+          create(Class)
+        } or {
+          delete allof(Class)
+          create(Class)
+        } or {
+          delete allof(Class)
+        }
+      }
+      invariant exists(Class o)
+    ADSL
+  end
+  def test_either__delete_and_create_an_object
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          delete allof(Class)
+          create(Class)
+        } or {
+          delete allof(Class)
+          create(Class)
+        }
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+  end
+  def test_either__variables
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        either {
+          a = create(Class)
+          delete a
+        } or {
+          create(Class)
+        }
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        a = create(Class)
+        either {
+          delete a
+        } or {
+        }
+      }
+      invariant not exists(Class a)
+    ADSL
+  end
+  def test_either__lambda
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        a = create(Class)
+        either {
+        } or {
+          delete a
+        }
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class{}
+      action blah() {
+        a = create(Class)
+        either {
+          delete a
+        } or {
+        }
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        a = create(Class)
+        either {
+          delete a
+        } or {
+          delete a
+        }
+      }
+      invariant not exists(Class a)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        a = create(Class)
+        either {
+          delete a
+        } or {
+          delete a
+        }
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class{}
+      action blah() {
+        a = allof(Class)
+        either {
+          a = create(Class)
+        } or {
+          a = create(Class)
+          a = oneof(allof(Class))
+        } or {
+          a = create(Class)
+        }
+        delete a
+      }
+      invariant forall(Class a, Class b: a == b)
+    ADSL
+  end
+  def test_for_each__no_contradictions
+    adsl_assert :incorrect, <<-ADSL, :conjecture => false
+      class Class{}
+      action blah() {
+        foreach c: allof(Class) {
+        }
+      }
+    ADSL
+  end
+  def test_for_each__no_contradictions_at_least_once
+    adsl_assert :incorrect, <<-ADSL, :conjecture => false
+      class Class{}
+      action blah() {
+        create(Class)
+        foreach c: allof(Class) {
+        }
+      }
+    ADSL
+  end
+  def test_for_each__no_iterations
+    adsl_assert :correct, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        create(Class1)
+        delete allof(Class2)
+        foreach i: allof(Class2) {
+          delete allof(Class1)
+        }
+      }
+      invariant exists(Class1 o)
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        delete allof(Class2)
+        foreach i: allof(Class2) {
+          create(Class1)
+        }
+      }
+      invariant not exists(Class1 o)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        delete allof(Class1)
+        create(Class1)
+        delete allof(Class2)
+        foreach i: allof(Class2) {
+          delete allof(Class1)
+        }
+      }
+      invariant !exists(Class1 o)
+    ADSL
+  end
+  def test_for_each__single_iteration
+    adsl_assert :correct, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        delete allof(Class1)
+        delete allof(Class2)
+        create(Class1)
+        foreach c: allof(Class1) {
+          create(Class2)
+        }
+      }
+      invariant exists(Class1 a)
+      invariant exists(Class2 a)
+      invariant forall(Class2 a, Class2 b: a == b)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class1 {}
+      class Class2 {}
+      action blah() {
+        delete allof(Class1)
+        delete allof(Class2)
+        create(Class1)
+        foreach c: allof(Class1) {
+          create(Class2)
+        }
+      }
+      invariant exists(Class2 a, Class2 b: not a == b)
+    ADSL
+  end
+  def test_for_each__two_iterations_parallelizable
+    adsl_assert :correct, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        delete allof(Class1)
+        delete allof(Class2)
+        create(Class1)
+        create(Class1)
+        foreach c: allof(Class1) {
+          create(Class2)
+        }
+      }
+      invariant exists(Class1 a)
+      invariant exists(Class2 a)
+      invariant forall(Class2 a, Class2 b, Class2 c: a == b or b == c or a == c)
+    ADSL
+    adsl_assert :incorrect, <<-ADSL
+      class Class1{}
+      class Class2{}
+      action blah() {
+        delete allof(Class1)
+        delete allof(Class2)
+        create(Class1)
+        create(Class1)
+        foreach c: allof(Class1) {
+          create(Class2)
+        }
+      }
+      invariant exists(Class2 a, Class2 b, Class2 c: !a == b and !b == c and !a == c)
+    ADSL
+  end
+  def test__single_ref
+    adsl_assert :correct, <<-ADSL
+      class Class { 0+ Class rel }
+      action blah() {
+        allof(Class).rel -= allof(Class)
+        foreach c: allof(Class) {
+          c2 = oneof(allof(Class))
+          c.rel += c2
+        }
+      }
+      invariant forall(Class o: not empty(o.rel))
+    ADSL
+    adsl_assert :correct, <<-ADSL
+      class Class { 0+ Class rel }
+      action blah() {
+        allof(Class).rel -= allof(Class)
+        foreach c: allof(Class) {
+          c2 = oneof(allof(Class))
+          c.rel += c2
+        }
+      }
+      invariant not exists(Class o, Class o2, Class o3: o2 in o.rel and o3 in o.rel and o2 != o3)
+    ADSL
+  end
+end

data/test/unit/adsl/ds/data_store_spec_test.rb ADDED

@@ -0,0 +1,54 @@
+require 'test/unit'
+require 'adsl/ds/data_store_spec'
+require 'pp'
+class ADSL::DS::DataStoreSpecTest < Test::Unit::TestCase
+  def test_replace
+    assignment = ADSL::DS::DSAssignment.new :var => :kme, :objset => :objset
+    for_each = ADSL::DS::DSForEach.new :objset => :kme, :block => ADSL::DS::DSBlock.new
+    block = ADSL::DS::DSBlock.new :statements => [assignment, for_each]
+    assert block.replace(:kme, :replaced)
+    assert_false block.replace(:kme, :replaced)
+    assert_equal assignment, block.statements[0]
+    assert_equal for_each, block.statements[1]
+    assert_equal :replaced, assignment.var
+    assert_equal :replaced, for_each.objset
+  end
+  def test_replace__safe_against_recursion
+    block = ADSL::DS::DSBlock.new :statements => []
+    block.statements << block
+    assert_false block.replace :kme, :kme
+    block.statements << :kme
+    assert block.replace :kme, :replaced
+    assert_equal :replaced, block.statements.last
+  end
+  def test_class__superclass_of
+    parent = ADSL::DS::DSClass.new :name => 'parent'
+    child1 = ADSL::DS::DSClass.new :name => 'child1', :parent => parent
+    child2 = ADSL::DS::DSClass.new :name => 'child2', :parent => parent
+    grandchild = ADSL::DS::DSClass.new :name => 'grandchild', :parent => child1
+    assert parent.superclass_of? parent
+    assert parent.superclass_of? child1
+    assert parent.superclass_of? child2
+    assert parent.superclass_of? grandchild
+    assert !child1.superclass_of?(parent)
+    assert !child2.superclass_of?(parent)
+    assert !grandchild.superclass_of?(parent)
+    assert child1.superclass_of? child1
+    assert child1.superclass_of? grandchild
+    assert !child1.superclass_of?(child2)
+    assert !child2.superclass_of?(child1)
+    assert !child2.superclass_of?(grandchild)
+  end
+end