RSpec.describe Mutant::Env do
  context '#kill' do
    let(:object) do
      described_class.new(
        actor_env:        Mutant::Actor::Env.new(Thread),
        config:           config,
        integration:      integration,
        matchable_scopes: [],
        mutations:        [],
        selector:         selector,
        subjects:         [],
        parser:           Mutant::Parser.new
      )
    end

    let(:integration)       { instance_double(Mutant::Integration)     }
    let(:wrapped_node)      { instance_double(Parser::AST::Node)       }
    let(:context)           { instance_double(Mutant::Context)         }
    let(:test_a)            { instance_double(Mutant::Test)            }
    let(:test_b)            { instance_double(Mutant::Test)            }
    let(:tests)             { [test_a, test_b]                         }
    let(:selector)          { instance_double(Mutant::Selector)        }
    let(:integration_class) { Mutant::Integration::Null                }
    let(:isolation)         { instance_double(Mutant::Isolation::Fork) }

    let(:mutation) do
      instance_double(
        Mutant::Mutation,
        subject: mutation_subject
      )
    end

    let(:config) do
      Mutant::Config::DEFAULT.with(
        isolation:   isolation,
        integration: integration_class,
        kernel:      class_double(Kernel)
      )
    end

    let(:mutation_subject) do
      instance_double(
        Mutant::Subject,
        context:        context,
        identification: 'subject',
        source:         'original'
      )
    end

    subject { object.kill(mutation) }

    shared_examples_for 'mutation kill' do
      specify do
        should eql(
          Mutant::Result::Mutation.new(
            mutation:    mutation,
            test_result: test_result
          )
        )
      end
    end

    before do
      expect(selector).to receive(:call)
        .with(mutation_subject)
        .and_return(tests)

      allow(Time).to receive_messages(now: Time.at(0))
    end

    context 'when isolation does not raise error' do
      let(:test_result) do
        instance_double(
          Mutant::Result::Test,
          passed: false
        )
      end

      before do
        expect(isolation).to receive(:call)
          .ordered
          .and_yield

        expect(mutation).to receive(:insert)
          .ordered
          .with(config.kernel)

        expect(integration).to receive(:call)
          .ordered
          .with(tests)
          .and_return(test_result)
      end

      include_examples 'mutation kill'
    end

    context 'when isolation does raise error' do
      before do
        expect(isolation).to receive(:call)
          .and_raise(Mutant::Isolation::Error, 'test-error')
      end

      let(:test_result) do
        Mutant::Result::Test.new(
          output:  'test-error',
          passed:  false,
          runtime: 0.0,
          tests:   tests
        )
      end

      include_examples 'mutation kill'
    end
  end
end