@@ -1,5 +1,4 @@ * Clean up class organization * Document extending SexpPath -* Add sibling operators: <<, >> [WIP] * Add examples of extending matchers * AssertSanity! \ No newline at end of file TODO @@ -143,10 +143,13 @@ class SexpMatchingPathTest < Test::Unit::TestCase end def test_sibling_matcher + assert_equal SexpPath::Matcher::Sibling, Q?{(s(:a) >> s(:b))}.class + assert Q?{s(:a) >> s(:b)}.satisfy?( s(s(:a), s(:b)) ), "should match s(:a) has an immediate sibling s(:b)" assert Q?{s(:a) >> s(:b)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should match s(:a) has an immediate sibling s(:b)" assert Q?{s(:a) >> s(:c)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should match s(:a) a sibling s(:b)" assert !Q?{s(:c) >> s(:a)}.satisfy?( s(s(:a), s(:b), s(:c)) ), "should not match s(:a) does not follow s(:c)" + assert !Q?{s(:a) >> s(:a)}.satisfy?( s(s(:a)) ), "should not match s(:a) has no siblings" assert Q?{s(:a) >> s(:a)}.satisfy?( s(s(:a), s(:b), s(:a)) ), "should match s(:a) has another sibling s(:a)" assert_search_count @ast_sexp, Q?{t(:defn) >> t(:defn)}, 1, test/sexp_path_matching_test.rb b07569fd6007fa580260d4a5be2b0793bce99358 Adam Sanderson netghost@gmail.com http://github.com/adamsanderson/sexp_path/commit/f03772b4b026742f6dc4391a990c3cd9717dcf2f f03772b4b026742f6dc4391a990c3cd9717dcf2f 2009-07-20T22:40:25-07:00 2009-07-20T22:40:25-07:00 Finishing some tests for sibling matches eec085bee6b6669851815a0b1d7da2741d443982 Adam Sanderson netghost@gmail.com