require 'spec_helper'

module CSL

  describe Info do

    it { should_not be_nil }
    it { should_not have_children }

    before { @info = Info.new }

    describe '#nodename' do
      it 'returns "info"' do
        subject.nodename.should == 'info'
      end
    end

    describe 'license' do
      it { should_not have_rights }
      it { should_not be_default_license }

      it 'has no license by default' do
        @info.license.should be_nil
      end

      it 'setting a license adds a rights node' do
        expect { @info.license = 'cc' }.to change { @info.has_rights? }
      end

      it 'setting the default license creates the default rights node' do
        @info.default_license!
        @info.should have_rights
        @info.should be_default_license

        @info.rights.text = 'cc'
        @info.should_not be_default_license

        @info.default_license!
        @info.should be_default_license
      end
    end

    describe '#children' do
      it 'returns a Info::Children instance' do
        @info.children.should be_a(Info::Children)
      end

      it 'allows to set the id by array accessor' do
        lambda { Info.new.children[:id] = 'foo' }.should_not raise_error
      end
    end

    describe '#category' do
      it 'returns an empty list by default' do
        @info.category.should be_empty
      end
    end

    describe 'citation-format' do
      it 'has no citation-format by default' do
        @info.citation_format.should be_nil
      end

      it 'setting a citation-format creates a new category node' do
        expect { @info.citation_format = 'foo' }.to change { @info.has_categories? }
      end

      it 'setting a citation-format actually sets the citation-format' do
        expect { @info.citation_format = 'bar' }.to change { @info.citation_format }.to(:bar)
      end

      describe 'given a category node with the citation-attribute set' do
        before { @info.add_child Info::Category.new(:'citation-format' => 'author') }

        it 'has a citation format' do
          @info.citation_format.should == :author
        end

        it 'setting a citation-format does not create a new category node' do
          expect { @info.citation_format = 'foo' }.not_to change { @info.categories.length }
        end

        it 'setting a citation-format actually sets the citation-format' do
          expect { @info.citation_format = 'bar' }.to change { @info.citation_format }.to(:bar)
        end
      end

      describe 'given a category node without the citation-attribute set' do
        before { @info.add_child Info::Category.new(:field => 'literature') }

        it 'has no citation-format by default' do
          @info.citation_format.should be_nil
        end

        it 'setting a citation-format creates a new category node' do
          expect { @info.citation_format = 'foo' }.to change { @info.categories.length }.from(1).to(2)
        end

        it 'setting a citation-format actually sets the citation-format' do
          expect { @info.citation_format = 'bar' }.to change { @info.citation_format }.to(:bar)
        end
      end
    end

    describe 'link accessors' do
      it { should_not have_self_link }
      it { should_not have_documentation_link }
      it { should_not have_template_link }

      it 'self_link is nil by default' do
        @info.self_link.should be_nil
      end

      it 'returns nil if no suitable link is set' do
        Info.new {|i| i.link = {:href => 'foo', :rel => 'documentation'} }.self_link.should be_nil
      end

      it 'returns the href value of the link if it is set' do
        Info.new {|i| i.link = {:href => 'foo', :rel => 'self'} }.self_link.should == 'foo'
      end

      it 'setter changes the value of existing link' do
        info = Info.new {|i| i.link = {:href => 'foo', :rel => 'self'} }
        expect { info.self_link = 'bar' }.to change { info.self_link }.from('foo').to('bar')
      end

      it 'setter creates new link node if link did not exist' do
        expect { @info.self_link = 'bar' }.to change { @info.has_self_link? }
        @info.links[0].should be_a(Info::Link)
      end

    end

    describe '#to_xml' do
      it 'returns an empty info element by default' do
        subject.to_xml.should == '<info/>'
      end

      it 'prints the id if present' do
        Info.new { |i| i.set_child_id 'apa' }.to_xml.should == '<info><id>apa</id></info>'
      end

      it 'prints the category if present' do
        Info.new { |i| i.category = {:'citation-format' => 'author'} }.to_xml.should == '<info><category citation-format="author"/></info>'
      end
    end

    describe '#dup' do
      it 'does not copy ancestors' do
        apa = Style.load(:apa).info
        apa.should be_a(Info)

        apa.should_not be_root
        apa.dup.should be_root
      end
    end

    describe '#deep_copy' do
      it 'copies the full sub-tree' do
        apa = Style.load(:apa).info
        apa.should be_a(Info)

        xml = apa.to_xml

        copy = apa.deep_copy

        apa.to_xml.should == xml # original unchanged!
        copy.to_xml.should == xml
      end
    end

    describe '#pretty_print' do
      it 'returns an empty info element by default' do
        subject.pretty_print.should == '<info/>'
      end

      it 'prints the id indented if present' do
        Info.new { |i| i.set_child_id 'apa' }.pretty_print.should == "<info>\n  <id>apa</id>\n</info>"
      end
    end

    describe '#tags' do
      it 'returns a list with an empty info element by default' do
        subject.tags.should == ['<info/>']
      end

      it 'returns a nested list if id is present' do
        Info.new { |i| i.set_child_id 'apa' }.tags.should == ['<info>', ['<id>apa</id>'], '</info>']
      end

    end
  end

  describe Info::Author do
    it { should_not be_nil }

    let(:poe) {
      Info::Author.new { |a|
        a.name = 'E. A. Poe'
        a.email = 'poe@baltimore.com'
      }
    }

    describe '#name' do
      it 'returns nil by default' do
        subject.name.should be nil
      end

      it 'returns the name if set' do
        poe.name.to_s.should == 'E. A. Poe'
      end
    end

    describe '#family' do
      it "returns the author's family name" do
        poe.family.should == 'Poe'
      end
    end

    describe '#email' do
      it 'returns the email' do
        poe.email.to_s.should == 'poe@baltimore.com'
      end
    end

    describe '#to_xml' do
      it 'returns an empty author by default' do
        subject.to_xml.should == '<author/>'
      end

      it 'prints all children' do
        poe.to_xml.should == '<author><name>E. A. Poe</name><email>poe@baltimore.com</email></author>'
      end
    end

  end

  describe Info::Contributor do

    it { should_not be_nil }

    let(:bruce) { Info::Contributor.new { |c| c.name = "Bruce D'Arcus" } }

    describe '#name' do
      it 'returns the name' do
        bruce.name.to_s.should == "Bruce D'Arcus"
      end
    end


    describe '#to_xml' do
      it 'returns an empty contributor by default' do
        subject.to_xml.should == '<contributor/>'
      end

      it 'prints the name tag if present' do
        bruce.to_xml.should == "<contributor><name>Bruce D'Arcus</name></contributor>"
      end
    end

  end

  describe Info::Rights do
    it { should_not be_nil }

    describe '#dup' do
      it 'copies attributes and text' do
        r = Info::Rights.new('foo')
        r[:license] = 'bar'

        c = r.dup
        c.text.should == 'foo'
        c[:license].should == 'bar'
      end
    end
  end

end