nirvdrum-less 1.1.4

data/lib/vendor/treetop/spec/compiler/choice_spec.rb

@@ -0,0 +1,80 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module ChoiceSpec
+  describe "A choice between terminal symbols" do
+    testing_expression '"foo" { def foo_method; end } / "bar" { def bar_method; end } / "baz" { def baz_method; end }'
+
+    it "successfully parses input matching any of the alternatives, returning a node that responds to methods defined in its respective inline module" do
+      result = parse('foo')
+      result.should_not be_nil
+      result.should respond_to(:foo_method)
+    
+      result = parse('bar')
+      result.should_not be_nil
+      result.should respond_to(:bar_method)
+    
+      result = parse('baz')
+      result.should_not be_nil
+      result.should respond_to(:baz_method)
+    end
+  
+    it "upon parsing a string matching the second alternative, records the failure of the first terminal" do
+      result = parse('bar')
+      terminal_failures = parser.terminal_failures
+      terminal_failures.size.should == 1
+      failure = terminal_failures[0]
+      failure.expected_string.should == 'foo'
+      failure.index.should == 0
+    end
+  
+    it "upon parsing a string matching the third alternative, records the failure of the first two terminals" do
+      result = parse('baz')
+      
+      terminal_failures = parser.terminal_failures
+      
+      terminal_failures.size.should == 2
+
+      failure_1 = terminal_failures[0]
+      failure_1.expected_string == 'foo'
+      failure_1.index.should == 0
+    
+      failure_2 = terminal_failures[1]
+      failure_2.expected_string == 'bar'
+      failure_2.index.should == 0
+    end
+  end
+
+  describe "A choice between sequences" do
+    testing_expression "'foo' 'bar' 'baz'\n/\n'bing' 'bang' 'boom'"
+
+    it "successfully parses input matching any of the alternatives" do
+      parse('foobarbaz').should_not be_nil
+      parse('bingbangboom').should_not be_nil
+    end
+  end
+
+  describe "A choice between terminals followed by a block" do  
+    testing_expression "('a'/ 'b' / 'c') { def a_method; end }"
+
+    it "extends a match of any of its subexpressions with a module created from the block" do
+      ['a', 'b', 'c'].each do |letter|
+        parse(letter).should respond_to(:a_method)
+      end
+    end
+  end
+
+  module TestModule
+    def a_method
+    end
+  end
+
+  describe "a choice followed by a declared module" do  
+    testing_expression "('a'/ 'b' / 'c') <ChoiceSpec::TestModule>"
+
+    it "extends a match of any of its subexpressions with a module created from the block" do
+      ['a', 'b', 'c'].each do |letter|
+        parse(letter).should respond_to(:a_method)
+      end
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/circular_compilation_spec.rb

@@ -0,0 +1,28 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+BENCHMARK = false
+
+module CircularCompilationSpec
+  describe "a parser for the metagrammar" do
+    attr_reader :parser
+    
+    before do
+      @parser = Treetop::Compiler::MetagrammarParser.new
+    end
+    
+    it "can parse the metagrammar.treetop whence it was generated" do
+      File.open(METAGRAMMAR_PATH, 'r') do |f|
+        metagrammar_source = f.read
+        result = parser.parse(metagrammar_source)
+        result.should_not be_nil
+
+        # generated_parser = result.compile
+        # Object.class_eval(generated_parser)
+        # parser_2 = Treetop::Compiler::MetagrammarParser.new
+        # optionally_benchmark do
+        #   result = parser_2.parse(metagrammar_source)
+        #   result.should_not be_nil
+        # end
+      end
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/failure_propagation_functional_spec.rb

@@ -0,0 +1,21 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+describe "An expression for braces surrounding zero or more letters followed by semicolons" do
+  testing_expression "'{' ([a-z] ';')* '}'"
+  
+  it "parses matching input successfully" do
+    parse('{a;b;c;}').should_not be_nil
+  end
+  
+  it "fails to parse input with an expression that is missing a semicolon, reporting the terminal failure occurring at the maximum index" do
+    parse('{a;b;c}') do |result|
+      result.should be_nil
+      
+      terminal_failures = parser.terminal_failures
+      terminal_failures.size.should == 1      
+      failure = terminal_failures[0]
+      failure.index.should == 6
+      failure.expected_string.should == ';'
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/grammar_compiler_spec.rb

@@ -0,0 +1,84 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+describe Compiler::GrammarCompiler do
+  attr_reader :compiler, :source_path_with_treetop_extension, :source_path_with_tt_extension, :target_path, :alternate_target_path
+  before do
+    @compiler = Compiler::GrammarCompiler.new
+
+    dir = File.dirname(__FILE__)
+    @source_path_with_treetop_extension = "#{dir}/test_grammar.treetop"
+    @source_path_with_do = "#{dir}/test_grammar_do.treetop"
+    @source_path_with_tt_extension = "#{dir}/test_grammar.tt"
+    @target_path = "#{dir}/test_grammar.rb"
+    @target_path_with_do = "#{dir}/test_grammar_do.rb"
+    @alternate_target_path = "#{dir}/test_grammar_alt.rb"
+    delete_target_files
+  end
+
+  after do
+    delete_target_files
+    Object.class_eval do
+      remove_const(:Test) if const_defined?(:Test)
+    end
+  end
+
+  specify "compilation of a single file to a default file name" do
+    File.exists?(target_path).should be_false
+    compiler.compile(source_path_with_treetop_extension)
+    File.exists?(target_path).should be_true
+    require target_path
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+  specify "compilation of a single file to an explicit file name" do
+    File.exists?(alternate_target_path).should be_false
+    compiler.compile(source_path_with_treetop_extension, alternate_target_path)
+    File.exists?(alternate_target_path).should be_true
+    require alternate_target_path
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+  specify "compilation of a single file without writing it to an output file" do
+    compiler.ruby_source(source_path_with_treetop_extension).should_not be_nil
+  end
+  
+  specify "ruby_source_from_string compiles a grammar stored in string" do
+    compiler.ruby_source_from_string(File.read(source_path_with_treetop_extension)).should_not be_nil
+  end
+
+  specify "Treetop.load_from_string compiles and evaluates a source grammar stored in string" do
+    Treetop.load_from_string File.read(source_path_with_treetop_extension)
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+  specify "Treetop.load compiles and evaluates a source grammar with a .treetop extension" do    
+    Treetop.load source_path_with_treetop_extension
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+  
+  specify "Treetop.load compiles and evaluates a source grammar with a .tt extension" do
+    path_without_extension = source_path_with_tt_extension
+    Treetop.load path_without_extension
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+
+  specify "Treetop.load compiles and evaluates source grammar with no extension" do
+    path_without_extension = source_path_with_treetop_extension.gsub(/\.treetop\Z/, '')
+    Treetop.load path_without_extension
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+  specify "grammars with 'do' compile" do
+    compiler.compile(@source_path_with_do)
+    require @target_path_with_do
+    Test::GrammarParser.new.parse('foo').should_not be_nil
+  end
+
+  def delete_target_files
+    File.delete(target_path) if File.exists?(target_path)
+    File.delete(@target_path_with_do) if File.exists?(@target_path_with_do)
+    File.delete(alternate_target_path) if File.exists?(alternate_target_path)
+  end
+end
+

data/lib/vendor/treetop/spec/compiler/grammar_spec.rb

@@ -0,0 +1,41 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module GrammarSpec
+  module Bar
+  end
+
+  describe "a grammar" do
+    testing_grammar %{
+      grammar Foo
+              # This comment should not cause a syntax error, nor should the following empty one
+              #
+        include GrammarSpec::Bar
+
+        rule foo
+          bar / baz
+        end
+
+        rule bar
+          'bar' 'bar'
+        end
+
+        rule baz
+          'baz' 'baz'
+        end
+      end
+    }
+
+    it "parses matching input" do
+      parse('barbar').should_not be_nil
+      parse('bazbaz').should_not be_nil
+    end
+
+    it "fails if it does not parse all input" do
+      parse('barbarbazbaz').should be_nil
+    end
+
+    it "mixes in included modules" do
+      self.class.const_get(:Foo).ancestors.should include(GrammarSpec::Bar)
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/nonterminal_symbol_spec.rb

@@ -0,0 +1,40 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module NonterminalSymbolSpec
+  describe "A nonterminal symbol followed by a block" do
+    testing_expression 'foo { def a_method; end }'
+  
+    parser_class_under_test.class_eval do
+      def _nt_foo
+        '_nt_foo called'
+      end
+    end
+  
+    it "compiles to a method call, extending its results with the anonymous module for the block" do
+      result = parse('')
+      result.should == '_nt_foo called'
+      result.should respond_to(:a_method)
+    end
+  end
+
+  module TestModule
+    def a_method
+    end
+  end
+
+  describe "a non-terminal followed by a module declaration" do
+    testing_expression 'foo <NonterminalSymbolSpec::TestModule>'
+  
+    parser_class_under_test.class_eval do
+      def _nt_foo
+        '_nt_foo called'
+      end
+    end
+  
+    it "compiles to a method call, extending its results with the anonymous module for the block" do
+      result = parse('')
+      result.should == '_nt_foo called'
+      result.should respond_to(:a_method)
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/not_predicate_spec.rb

@@ -0,0 +1,38 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module NotPredicateSpec
+  describe "A !-predicated terminal symbol" do
+    testing_expression '!"foo"'
+
+    it "fails to parse input matching the terminal symbol" do
+      parse('foo').should be_nil
+    end
+  end
+
+  describe "A sequence of a terminal and an and another !-predicated terminal" do
+    testing_expression '"foo" !"bar"'
+
+    it "fails to match input matching both terminals" do
+      parse('foobar').should be_nil
+    end
+  
+    it "successfully parses input matching the first terminal and not the second, reporting the parse failure of the second terminal" do
+      parse('foo') do |result|
+        result.should_not be_nil
+        terminal_failures = parser.terminal_failures
+        terminal_failures.size.should == 1
+        failure = terminal_failures.first
+        failure.index.should == 3
+        failure.expected_string.should == 'bar'
+      end
+    end
+  end
+
+  describe "A !-predicated sequence" do
+    testing_expression '!("a" "b" "c")'
+
+    it "fails to parse matching input" do
+      parse('abc').should be_nil
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/one_or_more_spec.rb

@@ -0,0 +1,35 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module OneOrMoreSpec
+  class Foo < Treetop::Runtime::SyntaxNode
+  end
+
+  describe "one or more of a terminal symbol followed by a node class declaration and a block" do
+    testing_expression '"foo"+ <OneOrMoreSpec::Foo> { def a_method; end }'
+
+    it "fails to parse epsilon, reporting a failure" do
+      parse('') do |result|
+        result.should be_nil
+        terminal_failures = parser.terminal_failures
+        terminal_failures.size.should == 1
+        failure = terminal_failures.first
+        failure.index.should == 0
+        failure.expected_string.should == 'foo'
+      end
+    end
+  
+    it "successfully parses two of that terminal in a row, returning an instance of the declared node class and reporting the failure the third parsing attempt" do
+      parse("foofoo") do |result|
+        result.should_not be_nil
+        result.should be_an_instance_of(Foo)
+        result.should respond_to(:a_method)
+        
+        terminal_failures = parser.terminal_failures
+        terminal_failures.size.should == 1
+        failure = terminal_failures.first
+        failure.index.should == 6
+        failure.expected_string.should == 'foo'
+      end
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/optional_spec.rb

@@ -0,0 +1,37 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module OptionalSpec
+  describe "An optional terminal symbol" do
+    testing_expression '"foo"?'
+  
+    it "parses input matching the terminal" do
+      parse('foo').should_not be_nil
+    end
+  
+    it "parses epsilon, recording a failure" do
+      parse('') do |result|
+        result.should_not be_nil
+        result.interval.should == (0...0)
+        
+        terminal_failures = parser.terminal_failures
+        terminal_failures.size.should == 1
+        failure = terminal_failures.first
+        failure.index.should == 0
+        failure.expected_string.should == 'foo'
+      end
+    end
+  
+    it "parses input not matching the terminal, returning an epsilon result and recording a failure" do
+      parse('bar', :consume_all_input => false) do |result|
+        result.should_not be_nil
+        result.interval.should == (0...0)
+        
+        terminal_failures = parser.terminal_failures
+        terminal_failures.size.should == 1
+        failure = terminal_failures.first
+        failure.index.should == 0
+        failure.expected_string.should == 'foo'
+      end
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/parenthesized_expression_spec.rb

@@ -0,0 +1,19 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module ParenthesizedExpressionSpec
+  describe "An unadorned expression inside of parentheses" do
+    testing_expression '("foo")'
+  
+    it "should behave as normal" do
+      parse('foo').should_not be_nil
+    end
+  end
+
+  describe "A prefixed-expression inside of parentheses" do
+    testing_expression '(!"foo")'
+  
+    it "should behave as normal" do
+      parse('foo').should be_nil
+    end
+  end
+end

data/lib/vendor/treetop/spec/compiler/parsing_rule_spec.rb

@@ -0,0 +1,32 @@
+require File.expand_path("#{File.dirname(__FILE__)}/../spec_helper")
+
+module ParsingRuleSpec
+  describe "a grammar with one parsing rule" do
+
+    testing_grammar %{
+      grammar Foo
+        rule bar
+          "baz"
+        end
+      end
+    }
+
+    it "stores and retrieves nodes in its node cache" do
+      parser = self.class.const_get(:FooParser).new
+      parser.send(:prepare_to_parse, 'baz')
+      node_cache = parser.send(:node_cache)
+    
+      node_cache[:bar][0].should be_nil
+    
+      parser._nt_bar
+    
+      cached_node = node_cache[:bar][0]        
+      cached_node.should be_an_instance_of(Runtime::SyntaxNode)
+      cached_node.text_value.should == 'baz'
+    
+      parser.instance_eval { @index = 0 }
+      parser._nt_bar.should equal(cached_node)
+      parser.index.should == cached_node.interval.end
+    end
+  end
+end