require 'test_helper'

module Vedeu

  describe Viewport do

    let(:described) { Vedeu::Viewport }
    let(:instance)  { described.new(interface) }
    let(:interface) { Vedeu.interfaces.by_name('lithium') }
    let(:visibility) { true }

    before do
      Vedeu.interface 'lithium' do
        geometry do
          height 3
          width 3
        end
        lines do
          line 'barium'
          line 'carbon'
          line 'helium'
          line 'iodine'
          line 'nickel'
          line 'osmium'
        end
        visible(visibility)
      end
    end
    after { Vedeu.interfaces.reset }

    describe '#initialize' do
      it { instance.must_be_instance_of(described) }
      it { instance.instance_variable_get('@interface').must_equal(interface) }
    end

    describe '.render' do
      subject { described.render(interface) }

      context 'when the interface is visible' do

      end

      context 'when the interface is not visible' do
        let(:visibility) { false }

        it { subject.must_be_instance_of(Array) }

        it { subject.must_equal([]) }
      end
    end

    describe '#render' do
      let(:cursor) { Cursor.new(cursor_attributes) }
      let(:cursor_attributes) {
        { name: 'lithium', ox: ox, oy: oy, visible: true, x: x, y: y }
      }
      let(:lines)  { [] }
      let(:ox)     { 0 }
      let(:oy)     { 0 }
      let(:x)      { 1 }
      let(:y)      { 1 }

      before do
        interface.stubs(:cursor).returns(cursor)
      end

      subject { instance.render }

      it { subject.must_be_instance_of(Array) }

      context 'when there is no content' do
        before { interface.stubs(:lines).returns([]) }

        it { subject.must_equal([]) }
      end
    end

    describe '#to_s' do
      let(:cursor) { Cursor.new(cursor_attributes) }
      let(:cursor_attributes) {
        { name: 'lithium', ox: ox, oy: oy, visible: true, x: x, y: y }
      }
      let(:lines)  { [] }
      let(:ox)     { 0 }
      let(:oy)     { 0 }
      let(:x)      { 1 }
      let(:y)      { 1 }

      subject { instance.to_s }

      it { subject.must_be_instance_of(String) }

      context 'when there is no content' do
        before { interface.stubs(:lines).returns([]) }

        it { subject.must_equal('') }
      end

      context 'when there is content' do
        context "when the cursor's y position is outside the viewable " \
                "area - negative" do
          let(:ox) { -4 }
          let(:oy) { -4 }

          it 'scrolls the content the correct position' do
            subject.must_equal(
              "\e[1;1Hb\e[1;1H\n" \
              "\e[1;2Ha\e[1;2H\n" \
              "\e[1;3Hr\e[1;3H\n" \
              "\e[2;1Hc\e[2;1H\n" \
              "\e[2;2Ha\e[2;2H\n" \
              "\e[2;3Hr\e[2;3H\n" \
              "\e[3;1Hh\e[3;1H\n" \
              "\e[3;2He\e[3;2H\n" \
              "\e[3;3Hl\e[3;3H"
            )
          end
        end

        context "when the cursor's y position is inside the viewable area" do
          context "when there is not enough content to fill the height" do
            let(:ox) { 3 }
            let(:oy) { 7 }

            it "renders the visible content" do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end

          context "when there is more content than the height" do
            let(:ox) { 3 }
            let(:oy) { 3 }

            it "is cropped to show only that which fits" do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end
        end

        context "when the cursor's x position is outside the viewable area" do
          context "but inside the content" do
            let(:ox) { 6 }
            let(:oy) { 6 }

            it 'scrolls the content the correct position' do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end

          context "and outside the content" do
            let(:ox) { 7 }
            let(:oy) { 7 }

            it "scrolls the content the correct position" do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end
        end

        context "when the cursor's x position is inside the viewable area" do
          context "when there is not enough content to fill the width" do
            let(:ox) { 7 }
            let(:oy) { 3 }

            it "renders the visible content" do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end

          context "when there is more content than the width" do
            let(:ox) { 3 }
            let(:oy) { 3 }

            it "is cropped to show only that which fits" do
              subject.must_equal(
                "\e[1;1Hb\e[1;1H\n" \
                "\e[1;2Ha\e[1;2H\n" \
                "\e[1;3Hr\e[1;3H\n" \
                "\e[2;1Hc\e[2;1H\n" \
                "\e[2;2Ha\e[2;2H\n" \
                "\e[2;3Hr\e[2;3H\n" \
                "\e[3;1Hh\e[3;1H\n" \
                "\e[3;2He\e[3;2H\n" \
                "\e[3;3Hl\e[3;3H"
              )
            end
          end
        end
      end
    end

  end # Viewport

end # Vedeu