dsl_spec.rb

require 'spec_helper'

describe Gitara do
  describe Dsl do
    describe "bar(name, &block)" do
      it "should add a bar with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.bar 'Intro'

        dsl.node.own_children.should have(1).bar

        bar = dsl.node.own_children[0]
        bar.name.should == 'Intro'
        bar.own_children.should be_empty
      end

      it "should add the children declared in the block to the bar" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        note_set = FactoryGirl.build(:note_set)

        dsl.bar 'Intro' do
          add note_set
        end

        dsl.node.own_children.should have(1).bar
        dsl.node.own_children[0].name.should == 'Intro'

        bar = dsl.node.own_children[0]
        bar.own_children.should have(1).note_set
        bar.own_children[0].should == note_set
      end
    end

    describe "add(child, &block)" do
      it "should add the child to the dsl's node" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        bar = FactoryGirl.build(:bar, :name => 'Intro')

        dsl.add bar

        dsl.node.own_children.should have(1).bar
        dsl.node.own_children[0].should == bar
      end

      it "should add the children in the block to the child" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        bar = FactoryGirl.build(:bar, :children => [])
        note_set = FactoryGirl.build(:note_set)

        dsl.add bar do
          add note_set
        end

        dsl.node.own_children.should have(1).bar
        dsl.node.own_children[0].should == bar

        bar.own_children.should have(1).note_set
        bar.own_children[0].should == note_set
      end
    end

    describe "notes(value)" do
      it "should add a note set with the value" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:bar, :children => []))
        dsl.node.own_children.should be_empty

        dsl.notes 'test'

        dsl.node.own_children.should have(1).note_set
        dsl.node.own_children[0].value.should == 'test'
      end
    end

    describe "line(name, &block)" do
      it "should add a line with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.line 'Intro'

        dsl.node.own_children.should have(1).line

        line = dsl.node.own_children[0]
        line.name.should == 'Intro'
        line.own_children.should be_empty
      end

      it "should add the children declared in the block to the line" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        bar = FactoryGirl.build(:bar)

        dsl.line 'Intro' do
          add bar
        end

        dsl.node.own_children.should have(1).line
        dsl.node.own_children[0].name.should == 'Intro'

        line = dsl.node.own_children[0]
        line.own_children.should have(1).bar
        line.own_children[0].should == bar
      end
    end

    describe "add_names(o)" do
      it "should add a node with o[:name] of o[:node_class] to the node" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.add_names :names => [:Intro, :Intro], :node_class => Node::Bar

        dsl.node.own_children.should have(2).bars
        dsl.node.own_children.each do |child|
          child.should be_a(Node::Bar)
          child.name.should == :Intro
        end
      end

      it "should add a node with nil name if the o[:names] is blank" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.add_names :names => [], :node_class => Node::Bar

        dsl.node.own_children.should have(1).bar
        dsl.node.own_children[0].attributes[:name].should be_nil
        dsl.node.own_children[0].should be_a(Node::Bar)
      end
    end

    describe "score(name, &block)" do
      it "should add a score with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.score

        dsl.node.own_children.should have(1).score

        score = dsl.node.own_children[0]
        score.should be_a(Node::Score)
        score.own_children.should be_empty
      end

      it "should add the children declared in the block to the score" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        note_set = FactoryGirl.build(:note_set)

        dsl.score do
          add note_set
        end

        dsl.node.own_children.should have(1).score

        score = dsl.node.own_children[0]
        score.own_children.should have(1).note_set
        score.own_children[0].should == note_set
      end
    end

    describe "stanza(name, &block)" do
      it "should add a stanza with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.stanza 'Intro'

        dsl.node.own_children.should have(1).stanza

        stanza = dsl.node.own_children[0]
        stanza.name.should == 'Intro'
        stanza.own_children.should be_empty
      end

      it "should add the children declared in the block to the stanza" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        line = FactoryGirl.build(:line)

        dsl.stanza 'Intro' do
          add line
        end

        dsl.node.own_children.should have(1).stanza
        dsl.node.own_children[0].name.should == 'Intro'

        stanza = dsl.node.own_children[0]
        stanza.own_children.should have(1).line
        stanza.own_children[0].should == line
      end
    end

    [:title, :composer, :arranger, :instrument, :midi_instrument, :tempo, :transposition].each do |property|
      describe "#{property}(value)" do
        it "should set the #{property} of the tab to value" do
          tab = FactoryGirl.build(:tab)

          dsl = FactoryGirl.build(:dsl, :node => tab)
          dsl.send property, "test"

          tab.send(property).should == "test"
        end
      end
    end

    describe "chords(name, value)" do
      it "should add a chord set with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.chords :Am, 'r4-"Am" r r r'

        dsl.node.own_children.should have(1).chord_set

        chord_set = dsl.node.own_children[0]
        chord_set.name.should == :Am
        chord_set.value.should == 'r4-"Am" r r r'
      end
    end

    describe "chords(name)" do
      it "should add a bar with the name" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:tab, :children => []))
        dsl.node.own_children.should be_empty

        dsl.chords :Am

        dsl.node.own_children.should have(1).chord_set

        chord_set = dsl.node.own_children[0]
        chord_set.name.should == :Am
      end
    end

    describe "partial(duration)" do
      it "should set the specified duration of the bar node to duration" do
        dsl = FactoryGirl.build(:dsl, :node => FactoryGirl.build(:bar))
        dsl.node.specified_duration.should be_nil

        dsl.partial 8

        dsl.node.specified_duration.should == 8
      end
    end
  end
end