module Ddr::IngestTools::DpcFolderConverter

  RSpec.describe Converter do

    shared_examples 'a conversion to standard ingest format' do
      subject { described_class.new(converter_args) }
      it 'produces the correct standard ingest format directory' do
        results = subject.call
        # Target directory contains all the expected files and only the expected files
        expect(Array(Find.find(target_directory))).to match_array(expected_files)
        # Target content files are same as source content files
        expect(FileUtils.compare_file(File.join(data_directory, 'abc001', 'abc001001.tif'),
                                      File.join(source_directory, 'abc001001.tif'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'abc001', 'abc001002.tif'),
                                      File.join(source_directory, 'abc001002.tif'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'abc002', 'abc002001.tif'),
                                      File.join(source_directory, 'abc002001.tif'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'abc003', 'abc003001.wav'),
                                      File.join(source_directory, 'g', 'abc003001.wav'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'abc003', 'abc003002.wav'),
                                      File.join(source_directory, 'g', 'abc003002.wav'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'dpc_targets', 'T001.tif'),
                                      File.join(source_directory, 'targets', 'T001.tif'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'dpc_targets', 'T002.tif'),
                                      File.join(source_directory, 'targets', 'T002.tif'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'intermediate_files', 'abc001001.jpg'),
                                      File.join(source_directory, 'intermediate_files', 'abc001001.jpg'))).to be true
        expect(FileUtils.compare_file(File.join(data_directory, 'intermediate_files', 'abc002001.jpg'),
                                      File.join(source_directory, 'intermediate_files', 'abc002001.jpg'))).to be true
        # Generated metadata file contains the expected contents
        metadata_lines = File.readlines(File.join(data_directory, 'metadata.txt')).map(&:chomp)
        expect(metadata_lines).to match_array(expected_metadata)
        # Generated manifest contains the expected contents (ignoring line order)
        generated_manifest = File.readlines(File.join(File.join(target_directory, 'manifest-sha1.txt'))).sort
        expect(generated_manifest).to match_array(expected_manifest)
        # Conversion process produces the expected errors
        expect(results.errors).to match_array(checksum_errors)
      end
    end

    let(:source_directory) { Dir.mktmpdir('dpc') }
    let(:target_directory) { Dir.mktmpdir('sif') }
    let(:data_directory) { File.join(target_directory, 'data') }
    let(:item_id_length) { 6 }
    let(:checksums_directory) { Dir.mktmpdir('checksums') }
    let(:checksums) { File.join(checksums_directory, 'checksums-sha1.txt') }
    let(:converter_args) { { source: source_directory, target: target_directory, item_id_length: item_id_length } }
    let(:expected_files) { [
        target_directory,
        File.join(target_directory, 'bag-info.txt'),
        File.join(target_directory, 'bagit.txt'),
        data_directory,
        File.join(data_directory, 'abc001'),
        File.join(data_directory, 'abc001', 'abc001001.tif'),
        File.join(data_directory, 'abc001', 'abc001002.tif'),
        File.join(data_directory, 'abc002'),
        File.join(data_directory, 'abc002', 'abc002001.tif'),
        File.join(data_directory, 'abc003', 'abc003001.wav'),
        File.join(data_directory, 'abc003'),
        File.join(data_directory, 'abc003', 'abc003002.wav'),
        File.join(data_directory, 'dpc_targets'),
        File.join(data_directory, 'dpc_targets', 'T001.tif'),
        File.join(data_directory, 'dpc_targets', 'T002.tif'),
        File.join(data_directory, 'intermediate_files'),
        File.join(data_directory, 'intermediate_files', 'abc001001.jpg'),
        File.join(data_directory, 'intermediate_files', 'abc002001.jpg'),
        File.join(data_directory, 'metadata.txt'),
        File.join(target_directory, 'manifest-md5.txt'),
        File.join(target_directory, 'manifest-sha1.txt'),
        File.join(target_directory, 'tagmanifest-md5.txt'),
        File.join(target_directory, 'tagmanifest-sha1.txt')
    ] }
    let(:expected_metadata) { [
        "path\tlocal_id",
        "abc001\tabc001",
        "abc002\tabc002",
        "abc003\tabc003",
        "abc001/abc001001.tif\tabc001001",
        "abc001/abc001002.tif\tabc001002",
        "abc002/abc002001.tif\tabc002001",
        "abc003/abc003001.wav\tabc003001",
        "abc003/abc003002.wav\tabc003002",
        "dpc_targets/T001.tif\tT001",
        "dpc_targets/T002.tif\tT002"
    ] }
    let(:expected_manifest) do
      File.readlines(File.join('spec', 'fixtures', 'files', 'manifest-sha1.txt')).sort
    end

    before do
      File.open(File.join(source_directory, 'Thumbs.db'), 'w') { |f| f.write('Thumbs') }
      File.open(File.join(source_directory, 'abc001001.tif'), 'w') { |f| f.write('abc001001') }
      File.open(File.join(source_directory, 'abc001002.tif'), 'w') { |f| f.write('abc001002') }
      File.open(File.join(source_directory, 'abc002001.tif'), 'w') { |f| f.write('abc002001') }
      File.open(File.join(source_directory, 'checksums.txt'), 'w') { |f| f.write('checksums') }
      Dir.mkdir(File.join(source_directory,'g'))
      File.open(File.join(source_directory, 'g', 'abc003001.wav'), 'w') { |f| f.write('abc003001') }
      File.open(File.join(source_directory, 'g', 'abc003002.wav'), 'w') { |f| f.write('abc003002') }
      Dir.mkdir(File.join(source_directory, 'intermediate_files'))
      File.open(File.join(source_directory, 'intermediate_files', 'abc001001.jpg'), 'w') { |f| f.write('abc001001 jpg')}
      File.open(File.join(source_directory, 'intermediate_files', 'abc002001.jpg'), 'w') { |f| f.write('abc002001 jpg')}
      Dir.mkdir(File.join(source_directory, 'targets'))
      File.open(File.join(source_directory, 'targets', 'T001.tif'), 'w') { |f| f.write('T001') }
      File.open(File.join(source_directory, 'targets', 'T002.tif'), 'w') { |f| f.write('T002') }
    end

    describe 'external checksum files' do
      describe 'external checksum file' do
        before do
          File.open(checksums, 'w') do |f|
            f << File.open(checksum_file_template).read.gsub('SOURCE_DIRECTORY', source_directory)
          end
          converter_args[:checksums] = checksums
        end
        describe 'mismatch' do
          let(:checksum_file_template) { File.join('spec', 'fixtures', 'files', 'bad-checksums-sha1.txt') }
          let(:checksum_errors) {
            [ I18n.translate('errors.checksum_mismatch', { c1: 'd0a2f2482783ae3c83d06f3cdeaa1a306cc043ad',
                                                           f1: File.join(source_directory, 'abc001002.tif'),
                                                           c2: 'd0a2f2482783ae3c38d06f3cdeaa1a306cc043ad',
                                                           f2: File.join(target_directory, 'data/abc001/abc001002.tif') }),
              I18n.translate('errors.checksum_mismatch', { c1: 'c227abc095d3b758ab1c1c1c9e922494b6b6e0b0',
                                                           f1: File.join(source_directory, 'g/abc003001.wav'),
                                                           c2: 'c227abc095d3b758051c1c1c9e922494b6b6e0b0',
                                                           f2: File.join(target_directory, 'data/abc003/abc003001.wav') }),
              I18n.translate('errors.checksum_mismatch', { c1: '260b3c2d20a1726de96671d29f73ba09d13b61ba',
                                                           f1: File.join(source_directory, 'intermediate_files/abc002001.jpg'),
                                                           c2: '260b3c2d20a7126de96671d29f73ba09d13b61ba',
                                                           f2: File.join(target_directory, 'data/intermediate_files/abc002001.jpg') }),
              I18n.translate('errors.checksum_mismatch', { c1: 'a08c4d5a76d1b8735587be6ffcba66a9baf475c4',
                                                           f1: File.join(source_directory, 'targets/T001.tif'),
                                                           c2: 'a08c4d5a76d1b8734487be6ffcba66a9baf475c4',
                                                           f2: File.join(target_directory, 'data/dpc_targets/T001.tif') })
            ]
          }
          describe 'files are copied' do
            before { converter_args[:copy_files] = true }
            it_behaves_like 'a conversion to standard ingest format'
          end
          describe 'files are not copied' do
            before { converter_args[:copy_files] = false }
            it_behaves_like 'a conversion to standard ingest format'
          end
        end
        describe 'no mismatch' do
          let(:checksum_file_template) { File.join('spec', 'fixtures', 'files', 'good-checksums-sha1.txt') }
          let(:checksum_errors) { [] }
          describe 'files are copied' do
            before { converter_args[:copy_files] = true }
            it_behaves_like 'a conversion to standard ingest format'
          end
          describe 'files are not copied' do
            before { converter_args[:copy_files] = false }
            it_behaves_like 'a conversion to standard ingest format'
          end
        end
      end

      describe 'no external checksum file' do
        let(:checksum_errors) { [] }
        describe 'files are copied' do
          before { converter_args[:copy_files] = true }
          it_behaves_like 'a conversion to standard ingest format'
        end
        describe 'files are not copied' do
          before { converter_args[:copy_files] = false }
          it_behaves_like 'a conversion to standard ingest format'
        end
      end
    end

    describe 'collection titles and admin sets' do
      let(:checksum_errors) { [] }
      describe 'collection title and admin set provided' do
        let(:expected_metadata) { [
            "path\tlocal_id\ttitle\tadmin_set",
            "\t\tTest Collection\tfoo",
            "abc001\tabc001\t\t",
            "abc002\tabc002\t\t",
            "abc003\tabc003\t\t",
            "abc001/abc001001.tif\tabc001001\t\t",
            "abc001/abc001002.tif\tabc001002\t\t",
            "abc002/abc002001.tif\tabc002001\t\t",
            "abc003/abc003001.wav\tabc003001\t\t",
            "abc003/abc003002.wav\tabc003002\t\t",
            "dpc_targets/T001.tif\tT001\t\t",
            "dpc_targets/T002.tif\tT002\t\t"
        ] }
        let(:expected_manifest) do
          File.readlines(File.join('spec', 'fixtures', 'files', 'manifest-sha1-collection-title_admin_set.txt')).sort
        end
        before do
          converter_args[:collection_title] = 'Test Collection'
          converter_args[:admin_set] = 'foo'
        end
        it_behaves_like 'a conversion to standard ingest format'
      end
    end

  end
end