sexp_path 0.4.0

data/test/sexp_replacement_test.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/sexp_path'
+
+class SexpReplacementTest < Test::Unit::TestCase  
+  def test_replacing_exact_matches
+    sexp = s(:a, s(:b), :c)
+    actual = sexp.replace_sexp(s(:b)){ :b }
+    
+    assert_equal( s(:a, :b, :c), actual)
+  end
+  
+  def test_replacing_root
+    sexp = s(:a, s(:b), :c)
+    actual = sexp.replace_sexp(Q?{t(:a)}){ s(:new) }
+    
+    assert_equal( s(:new), actual)
+  end
+  
+  
+end

data/test/use_case_test.rb

@@ -0,0 +1,127 @@
+require 'test/unit'
+require File.dirname(__FILE__) + '/../lib/sexp_path'
+require 'parse_tree'
+require 'set'
+
+# Here's a crazy idea, these tests actually use sexp_path on some "real"
+# code to see if it can satisfy my requirements.
+#
+# These tests are two fold:
+# 1. Make sure it works
+# 2. Make sure it's not painful to use
+class UseCaseTest < Test::Unit::TestCase  
+  def setup
+    path = File.dirname(__FILE__) + '/sample.rb'
+    sample = File.read(path)
+    @sexp = Sexp.from_array(ParseTree.new.parse_tree_for_string(sample, path))
+  end
+  
+  def test_finding_methods
+    methods = @sexp / Q?{ t(:defn) }
+    assert_equal 5, methods.length
+  end
+  
+  def test_finding_classes_and_methods
+    res = @sexp / Q?{ s(:class, atom % 'name', _, _) }
+    assert_equal 1, res.length
+    assert_equal :ExampleTest, res.first['name']
+    
+    methods = res / Q?{ t(:defn) }
+    assert_equal 5, methods.length
+  end
+  
+  def test_finding_empty_test_methods
+    empty_body = Q?{ s(:scope, s(:block, t(:args), s(:nil))) }
+    res = @sexp / Q?{ s(:defn, m(/^test_.+/) % 'name', empty_body ) }
+    assert_equal 1, res.length
+    assert_equal :test_b, res.first['name']
+  end
+  
+  def test_finding_duplicate_test_names
+    res = @sexp / Q?{ s(:defn, m(/^test_.+/) % 'name', _ ) }
+    seen = Set.new()
+    repeated = 0
+    res.each do |m|
+      name = m['name']
+      repeated += 1 if seen.include? name
+      seen << name
+    end
+    
+    assert_equal 1, repeated, "Should have caught test_a being repeated"
+  end
+  
+  def test_rewriting_colon2s_oh_man_i_hate_those_in_most_cases_but_i_understand_why_they_are_there
+    colon2 = Q?{ s(:colon2, s(:const, atom % 'const'), atom % 'scope') }
+    
+    # Hacky, could be done better
+    while (results = (@sexp / colon2)) && !results.empty?
+      results.each do |result|
+        result.sexp.replace(s(:const, result.values_at('const','scope').join('::') ))
+      end
+    end
+    
+    expected_sexp = s(:const, "Test::Unit::TestCase")
+    assert_equal 1, (@sexp / expected_sexp).length, @sexp.inspect
+  end
+end
+
+# Contents of sample.rb sexp below:
+__END__
+s(:block,
+ s(:call, nil, :require, s(:arglist, s(:str, "test/unit"))),
+ s(:call, nil, :require, s(:arglist, s(:str, "test/unit/testcase"))),
+ s(:class,
+  :ExampleTest,
+  s(:colon2, s(:colon2, s(:const, :Test), :Unit), :TestCase),
+  s(:scope,
+   s(:block,
+    s(:defn,
+     :setup,
+     s(:args),
+     s(:scope, s(:block, s(:call, s(:lit, 1), :+, s(:arglist, s(:lit, 2)))))),
+    s(:defn,
+     :test_a,
+     s(:args),
+     s(:scope,
+      s(:block,
+       s(:call,
+        nil,
+        :assert_equal,
+        s(:arglist,
+         s(:call, s(:lit, 1), :+, s(:arglist, s(:lit, 2))),
+         s(:lit, 4)))))),
+    s(:defn, :test_b, s(:args), s(:scope, s(:block, s(:nil)))),
+    s(:defn,
+     :test_a,
+     s(:args),
+     s(:scope,
+      s(:block,
+       s(:call,
+        nil,
+        :assert_equal,
+        s(:arglist,
+         s(:call, s(:lit, 1), :+, s(:arglist, s(:lit, 2))),
+         s(:lit, 3)))))),
+    s(:call, nil, :private, s(:arglist)),
+    s(:defn,
+     :helper_method,
+     s(:args,
+      :apples,
+      :oranges,
+      :cakes,
+      s(:block, s(:lasgn, :cakes, s(:nil)))),
+     s(:scope,
+      s(:block,
+       s(:iter,
+        s(:call,
+         s(:call,
+          s(:array, s(:lvar, :apples), s(:lvar, :oranges), s(:lvar, :cakes)),
+          :compact,
+          s(:arglist)),
+         :map,
+         s(:arglist)),
+        s(:lasgn, :food),
+        s(:call,
+         s(:call, s(:lvar, :food), :to_s, s(:arglist)),
+         :upcase,
+         s(:arglist))))))))))

metadata

@@ -0,0 +1,108 @@
+--- !ruby/object:Gem::Specification 
+name: sexp_path
+version: !ruby/object:Gem::Version 
+  version: 0.4.0
+platform: ruby
+authors: 
+- Adam Sanderson
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-02-12 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: sexp_processor
+  type: :runtime
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "3.0"
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: ParseTree
+  type: :development
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Requirement 
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        version: "2.1"
+    version: 
+description: "      Allows you to do example based pattern matching and queries against S Expressions (sexp).\n"
+email: netghost@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README.rdoc
+- TODO
+files: 
+- README.rdoc
+- Rakefile
+- TODO
+- VERSION.yml
+- examples/print_methods.rb
+- examples/sexp_grep.rb
+- lib/sexp_path.rb
+- lib/sexp_path/line_numbering_processor.rb
+- lib/sexp_path/matcher/all.rb
+- lib/sexp_path/matcher/any.rb
+- lib/sexp_path/matcher/atom.rb
+- lib/sexp_path/matcher/base.rb
+- lib/sexp_path/matcher/block.rb
+- lib/sexp_path/matcher/child.rb
+- lib/sexp_path/matcher/include.rb
+- lib/sexp_path/matcher/not.rb
+- lib/sexp_path/matcher/pattern.rb
+- lib/sexp_path/matcher/sibling.rb
+- lib/sexp_path/matcher/type.rb
+- lib/sexp_path/matcher/wild.rb
+- lib/sexp_path/sexp_collection.rb
+- lib/sexp_path/sexp_query_builder.rb
+- lib/sexp_path/sexp_result.rb
+- lib/sexp_path/traverse.rb
+- test/line_numbering_processor_test.rb
+- test/sample.rb
+- test/sexp_path_capture_test.rb
+- test/sexp_path_matching_test.rb
+- test/sexp_replacement_test.rb
+- test/use_case_test.rb
+has_rdoc: true
+homepage: http://github.com/adamsanderson/sexp_path
+licenses: []
+
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+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.3.5
+signing_key: 
+specification_version: 3
+summary: Pattern matching for S-Expressions (sexp).
+test_files: 
+- test/line_numbering_processor_test.rb
+- test/sexp_path_capture_test.rb
+- test/sexp_path_matching_test.rb
+- test/sexp_replacement_test.rb
+- test/use_case_test.rb