require 'spec_helper'

module Mork
  describe Mimage do
    let(:qna) { [5] * 100 }

    context 'new age on slanted' do
      let(:img) { sample_img 'slanted' }
      let(:mim) { Mimage.new img.filename, qna, GridOMR.new(img.grid_file)  }
      describe 'basics' do
        it 'should be valid' do
          mim.highlight_rm_centers
          mim.highlight_rm_areas
          mim.write 'spec/out/slanted.jpg', false
          expect(mim.valid?).to be_truthy
        end

        it 'should return the correct regmark coordinates' do
          [:tl, :tr, :br, :bl].each do |corner|
            crn = mim.rm[corner]
            expect(crn[:x]).to be_within(2).of(img.info[corner.to_s][0])

          end
        end
      end
    end

    context 'problematic sheets' do
      let(:mim)  { Mimage.new 'spec/samples/out-1.jpg', qna, GridOMR.new('spec/samples/grid.yml')  }
      let(:bila) { Mimage.new 'spec/samples/syst/bila0.jpg', qna, GridOMR.new('spec/samples/grid.yml') }

      it 'writes all cell values to a text file', exclude: true do
        d=Dir['spec/samples/syst/*.jpg']
        d.each do |f|
          fn = File.basename f, '.jpg'
          m = Mimage.new "spec/samples/syst/#{fn}.jpg", qna, GridOMR.new('spec/samples/grid.yml')
          puts fn
          File.open("spec/samples/syst/#{fn}.txt",'w') do |f|
            f.puts "ink:#{m.send :ink_black}"
            f.puts "drk:#{m.send :darkest_cell_mean}"
            f.puts "pap:#{m.send :paper_white}"
            f.puts "cal:#{m.send :cal_cell_mean}"
            f.puts "cho:#{m.send :choice_threshold}"
            100.times do |q|
              5.times do |c|
                f.puts m.send('choice_cell_averages')[q, c]
              end
            end
          end
        end
      end
    end

    context 'Old specs' do
      let(:sgi) { sample_img 'sample-gray' }
      let(:sg)  { Mimage.new sgi.filename, qna, GridOMR.new(sgi.grid_file) }

      describe 'basics' do
        it 'returns the pixels as an array' do
          expect(sg.send :reg_pixels).to be_a NPatch
        end

        it 'returns the correct number of pixels' do
          expect(sg.send(:reg_pixels).length).to eq sgi.width * sgi.height
        end

        it 'returns the stretched array' do
          expect(sg.send(:reg_pixels).length).to eq sgi.width * sgi.height
        end
      end

      describe 'inspecting' do
        xit 'writes out average whiteness of choice cells' do
          qz = sample_img 'silvia'
          s = Mimage.new qz.filename, [5] * 5, GridOMR.new(qz.grid_file)
          File.open('spec/out/choices.txt', 'w') do |f|
            5.times do |q|
              t = (0..4).collect do |c|
                s.send(:shade_of, q, c).round
              end
              f.puts "#{q+1}: #{t.join(' ')}"
            end
          end
        end
      end
    end
  end
end