module NameQ
  module Support
    describe List do
      let(:array) { %w[One Two Three] }
      let(:subject) { described_class.new(array.clone) }

      context "internals" do
        describe "#all" do
          let(:refiller) { %w[Four Five] }
          let(:all) { subject.send(:all) }

          context "array only" do
            it "knows all its stuff" do
              expect(all).to match_array array
            end
          end

          context "refiller only" do
            let(:subject) { described_class.new { refiller } }

            it "knows all its stuff" do
              expect(all).to match_array refiller
            end
          end

          context "all options" do
            let(:subject) { described_class.new(array) { refiller } }

            it "knows all its stuff" do
              expect(all).to match_array(array + refiller)
            end
          end
        end
      end

      describe "#include?" do
        context "default (case-sensitive)" do
          it "can miss" do
            expect(subject.include?("Eight")).to be false
          end

          it "can miss due to case" do
            expect(subject.include?("two")).to be false
          end

          it "can match" do
            expect(subject.include?("Two")).to be true
          end
        end

        context "case-insensitive" do
          let(:subject) { described_class.new(array, case_sensitive: false) }

          it "can miss" do
            expect(subject.include?("Eight")).to be false
          end

          it "can match outside case" do
            expect(subject.include?("three")).to be true
          end

          it "can match" do
            expect(subject.include?("Three")).to be true
          end
        end
      end

      describe "#add" do
        let(:value) { "Eight" }

        it "adds items when you ask it to" do
          expect(subject.send(:all)).to match_array array
          expect(subject.add(value)).to eq value
          expect(subject.send(:all)).to match_array(array + [value])
        end
      end
    end
  end
end