require_relative '../../../spec_helper'
require_relative '../fixtures/classes'
require_relative 'shared/basic'
require_relative 'shared/numeric_basic'
require_relative 'shared/integer'

describe "Array#pack with format 'L'" do
  it_behaves_like :array_pack_basic, 'L'
  it_behaves_like :array_pack_basic_non_float, 'L'
  it_behaves_like :array_pack_arguments, 'L'
  it_behaves_like :array_pack_numeric_basic, 'L'
  it_behaves_like :array_pack_integer, 'L'
end

describe "Array#pack with format 'l'" do
  it_behaves_like :array_pack_basic, 'l'
  it_behaves_like :array_pack_basic_non_float, 'l'
  it_behaves_like :array_pack_arguments, 'l'
  it_behaves_like :array_pack_numeric_basic, 'l'
  it_behaves_like :array_pack_integer, 'l'
end

describe "Array#pack with format 'L'" do
  describe "with modifier '<'" do
    it_behaves_like :array_pack_32bit_le, 'L<'
  end

  describe "with modifier '>'" do
    it_behaves_like :array_pack_32bit_be, 'L>'
  end

  guard -> { platform_is wordsize: 32 or platform_is :mingw32 } do
    describe "with modifier '<' and '_'" do
      it_behaves_like :array_pack_32bit_le, 'L<_'
      it_behaves_like :array_pack_32bit_le, 'L_<'
    end

    describe "with modifier '<' and '!'" do
      it_behaves_like :array_pack_32bit_le, 'L<!'
      it_behaves_like :array_pack_32bit_le, 'L!<'
    end

    describe "with modifier '>' and '_'" do
      it_behaves_like :array_pack_32bit_be, 'L>_'
      it_behaves_like :array_pack_32bit_be, 'L_>'
    end

    describe "with modifier '>' and '!'" do
      it_behaves_like :array_pack_32bit_be, 'L>!'
      it_behaves_like :array_pack_32bit_be, 'L!>'
    end
  end

  guard -> { platform_is wordsize: 64 and platform_is_not :mingw32 } do
    describe "with modifier '<' and '_'" do
      it_behaves_like :array_pack_64bit_le, 'L<_'
      it_behaves_like :array_pack_64bit_le, 'L_<'
    end

    describe "with modifier '<' and '!'" do
      it_behaves_like :array_pack_64bit_le, 'L<!'
      it_behaves_like :array_pack_64bit_le, 'L!<'
    end

    describe "with modifier '>' and '_'" do
      it_behaves_like :array_pack_64bit_be, 'L>_'
      it_behaves_like :array_pack_64bit_be, 'L_>'
    end

    describe "with modifier '>' and '!'" do
      it_behaves_like :array_pack_64bit_be, 'L>!'
      it_behaves_like :array_pack_64bit_be, 'L!>'
    end
  end
end

describe "Array#pack with format 'l'" do
  describe "with modifier '<'" do
    it_behaves_like :array_pack_32bit_le, 'l<'
  end

  describe "with modifier '>'" do
    it_behaves_like :array_pack_32bit_be, 'l>'
  end

  guard -> { platform_is wordsize: 32 or platform_is :mingw32 } do
    describe "with modifier '<' and '_'" do
      it_behaves_like :array_pack_32bit_le, 'l<_'
      it_behaves_like :array_pack_32bit_le, 'l_<'
    end

    describe "with modifier '<' and '!'" do
      it_behaves_like :array_pack_32bit_le, 'l<!'
      it_behaves_like :array_pack_32bit_le, 'l!<'
    end

    describe "with modifier '>' and '_'" do
      it_behaves_like :array_pack_32bit_be, 'l>_'
      it_behaves_like :array_pack_32bit_be, 'l_>'
    end

    describe "with modifier '>' and '!'" do
      it_behaves_like :array_pack_32bit_be, 'l>!'
      it_behaves_like :array_pack_32bit_be, 'l!>'
    end
  end

  guard -> { platform_is wordsize: 64 and platform_is_not :mingw32 } do
    describe "with modifier '<' and '_'" do
      it_behaves_like :array_pack_64bit_le, 'l<_'
      it_behaves_like :array_pack_64bit_le, 'l_<'
    end

    describe "with modifier '<' and '!'" do
      it_behaves_like :array_pack_64bit_le, 'l<!'
      it_behaves_like :array_pack_64bit_le, 'l!<'
    end

    describe "with modifier '>' and '_'" do
      it_behaves_like :array_pack_64bit_be, 'l>_'
      it_behaves_like :array_pack_64bit_be, 'l_>'
    end

    describe "with modifier '>' and '!'" do
      it_behaves_like :array_pack_64bit_be, 'l>!'
      it_behaves_like :array_pack_64bit_be, 'l!>'
    end
  end
end

little_endian do
  describe "Array#pack with format 'L'" do
    it_behaves_like :array_pack_32bit_le, 'L'
  end

  describe "Array#pack with format 'l'" do
    it_behaves_like :array_pack_32bit_le, 'l'
  end

  guard -> { platform_is wordsize: 32 or platform_is :mingw32 } do
    describe "Array#pack with format 'L' with modifier '_'" do
      it_behaves_like :array_pack_32bit_le, 'L_'
    end

    describe "Array#pack with format 'L' with modifier '!'" do
      it_behaves_like :array_pack_32bit_le, 'L!'
    end

    describe "Array#pack with format 'l' with modifier '_'" do
      it_behaves_like :array_pack_32bit_le, 'l_'
    end

    describe "Array#pack with format 'l' with modifier '!'" do
      it_behaves_like :array_pack_32bit_le, 'l!'
    end
  end

  guard -> { platform_is wordsize: 64 and platform_is_not :mingw32 } do
    describe "Array#pack with format 'L' with modifier '_'" do
      it_behaves_like :array_pack_64bit_le, 'L_'
    end

    describe "Array#pack with format 'L' with modifier '!'" do
      it_behaves_like :array_pack_64bit_le, 'L!'
    end

    describe "Array#pack with format 'l' with modifier '_'" do
      it_behaves_like :array_pack_64bit_le, 'l_'
    end

    describe "Array#pack with format 'l' with modifier '!'" do
      it_behaves_like :array_pack_64bit_le, 'l!'
    end
  end
end

big_endian do
  describe "Array#pack with format 'L'" do
    it_behaves_like :array_pack_32bit_be, 'L'
  end

  describe "Array#pack with format 'l'" do
    it_behaves_like :array_pack_32bit_be, 'l'
  end

  guard -> { platform_is wordsize: 32 or platform_is :mingw32 } do
    describe "Array#pack with format 'L' with modifier '_'" do
      it_behaves_like :array_pack_32bit_be, 'L_'
    end

    describe "Array#pack with format 'L' with modifier '!'" do
      it_behaves_like :array_pack_32bit_be, 'L!'
    end

    describe "Array#pack with format 'l' with modifier '_'" do
      it_behaves_like :array_pack_32bit_be, 'l_'
    end

    describe "Array#pack with format 'l' with modifier '!'" do
      it_behaves_like :array_pack_32bit_be, 'l!'
    end
  end

  guard -> { platform_is wordsize: 64 and platform_is_not :mingw32 } do
    describe "Array#pack with format 'L' with modifier '_'" do
      it_behaves_like :array_pack_64bit_be, 'L_'
    end

    describe "Array#pack with format 'L' with modifier '!'" do
      it_behaves_like :array_pack_64bit_be, 'L!'
    end

    describe "Array#pack with format 'l' with modifier '_'" do
      it_behaves_like :array_pack_64bit_be, 'l_'
    end

    describe "Array#pack with format 'l' with modifier '!'" do
      it_behaves_like :array_pack_64bit_be, 'l!'
    end
  end
end