# -*- encoding: ascii-8bit -*-

describe :string_unpack_16bit_le, shared: true do
  it "decodes one short for a single format character" do
    "ab".unpack(unpack_format).should == [25185]
  end

  it "decodes two shorts for two format characters" do
    "abcd".unpack(unpack_format(nil, 2)).should == [25185, 25699]
  end

  it "decodes the number of shorts requested by the count modifier" do
    "abcdef".unpack(unpack_format(3)).should == [25185, 25699, 26213]
  end

  it "decodes the remaining shorts when passed the '*' modifier" do
    "abcd".unpack(unpack_format('*')).should == [25185, 25699]
  end

  it "decodes the remaining shorts when passed the '*' modifier after another directive" do
    "abcd".unpack(unpack_format()+unpack_format('*')).should == [25185, 25699]
  end

  it "does not decode a short when fewer bytes than a short remain and the '*' modifier is passed" do
    "\xff".unpack(unpack_format('*')).should == []
  end

  it "adds nil for each element requested beyond the end of the String" do
    [ ["",     [nil, nil, nil]],
      ["abc",  [25185, nil, nil]],
      ["abcd", [25185, 25699, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end

  it "ignores NULL bytes between directives" do
    "abcd".unpack(unpack_format("\000", 2)).should == [25185, 25699]
  end

  it "ignores spaces between directives" do
    "abcd".unpack(unpack_format(' ', 2)).should == [25185, 25699]
  end
end

describe :string_unpack_16bit_le_signed, shared: true do
  it "decodes a short with most significant bit set as a negative number" do
    "\x00\xff".unpack(unpack_format()).should == [-256]
  end
end

describe :string_unpack_16bit_le_unsigned, shared: true do
  it "decodes a short with most significant bit set as a positive number" do
    "\x00\xff".unpack(unpack_format()).should == [65280]
  end
end

describe :string_unpack_16bit_be, shared: true do
  it "decodes one short for a single format character" do
    "ba".unpack(unpack_format).should == [25185]
  end

  it "decodes two shorts for two format characters" do
    "badc".unpack(unpack_format(nil, 2)).should == [25185, 25699]
  end

  it "decodes the number of shorts requested by the count modifier" do
    "badcfe".unpack(unpack_format(3)).should == [25185, 25699, 26213]
  end

  it "decodes the remaining shorts when passed the '*' modifier" do
    "badc".unpack(unpack_format('*')).should == [25185, 25699]
  end

  it "decodes the remaining shorts when passed the '*' modifier after another directive" do
    "badc".unpack(unpack_format()+unpack_format('*')).should == [25185, 25699]
  end

  it "does not decode a short when fewer bytes than a short remain and the '*' modifier is passed" do
    "\xff".unpack(unpack_format('*')).should == []
  end

  it "adds nil for each element requested beyond the end of the String" do
    [ ["",     [nil, nil, nil]],
      ["bac",  [25185, nil, nil]],
      ["badc", [25185, 25699, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end

  it "ignores NULL bytes between directives" do
    "badc".unpack(unpack_format("\000", 2)).should == [25185, 25699]
  end

  it "ignores spaces between directives" do
    "badc".unpack(unpack_format(' ', 2)).should == [25185, 25699]
  end
end

describe :string_unpack_16bit_be_signed, shared: true do
  it "decodes a short with most significant bit set as a negative number" do
    "\xff\x00".unpack(unpack_format()).should == [-256]
  end
end

describe :string_unpack_16bit_be_unsigned, shared: true do
  it "decodes a short with most significant bit set as a positive number" do
    "\xff\x00".unpack(unpack_format()).should == [65280]
  end
end

describe :string_unpack_32bit_le, shared: true do
  it "decodes one int for a single format character" do
    "abcd".unpack(unpack_format).should == [1684234849]
  end

  it "decodes two ints for two format characters" do
    "abghefcd".unpack(unpack_format(nil, 2)).should == [1751605857, 1684235877]
  end

  it "decodes the number of ints requested by the count modifier" do
    "abcedfgh".unpack(unpack_format(2)).should == [1701012065, 1751606884]
  end

  it "decodes the remaining ints when passed the '*' modifier" do
    "acbdegfh".unpack(unpack_format('*')).should == [1684169569, 1751541605]
  end

  it "decodes the remaining ints when passed the '*' modifier after another directive" do
    "abcdefgh".unpack(unpack_format()+unpack_format('*')).should == [1684234849, 1751606885]
  end

  it "does not decode an int when fewer bytes than an int remain and the '*' modifier is passed" do
    "abc".unpack(unpack_format('*')).should == []
  end

  it "adds nil for each element requested beyond the end of the String" do
    [ ["",          [nil, nil, nil]],
      ["abcde",     [1684234849, nil, nil]],
      ["abcdefg",   [1684234849, nil, nil]],
      ["abcdefgh",  [1684234849, 1751606885, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end

  it "ignores NULL bytes between directives" do
    "abcdefgh".unpack(unpack_format("\000", 2)).should == [1684234849, 1751606885]
  end

  it "ignores spaces between directives" do
    "abcdefgh".unpack(unpack_format(' ', 2)).should == [1684234849, 1751606885]
  end
end

describe :string_unpack_32bit_le_signed, shared: true do
  it "decodes an int with most significant bit set as a negative number" do
    "\x00\xaa\x00\xff".unpack(unpack_format()).should == [-16733696]
  end
end

describe :string_unpack_32bit_le_unsigned, shared: true do
  it "decodes an int with most significant bit set as a positive number" do
    "\x00\xaa\x00\xff".unpack(unpack_format()).should == [4278233600]
  end
end

describe :string_unpack_32bit_be, shared: true do
  it "decodes one int for a single format character" do
    "dcba".unpack(unpack_format).should == [1684234849]
  end

  it "decodes two ints for two format characters" do
    "hgbadcfe".unpack(unpack_format(nil, 2)).should == [1751605857, 1684235877]
  end

  it "decodes the number of ints requested by the count modifier" do
    "ecbahgfd".unpack(unpack_format(2)).should == [1701012065, 1751606884]
  end

  it "decodes the remaining ints when passed the '*' modifier" do
    "dbcahfge".unpack(unpack_format('*')).should == [1684169569, 1751541605]
  end

  it "decodes the remaining ints when passed the '*' modifier after another directive" do
    "dcbahgfe".unpack(unpack_format()+unpack_format('*')).should == [1684234849, 1751606885]
  end

  it "does not decode an int when fewer bytes than an int remain and the '*' modifier is passed" do
    "abc".unpack(unpack_format('*')).should == []
  end

  it "adds nil for each element requested beyond the end of the String" do
    [ ["",          [nil, nil, nil]],
      ["dcbae",     [1684234849, nil, nil]],
      ["dcbaefg",   [1684234849, nil, nil]],
      ["dcbahgfe",  [1684234849, 1751606885, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end

  it "ignores NULL bytes between directives" do
    "dcbahgfe".unpack(unpack_format("\000", 2)).should == [1684234849, 1751606885]
  end

  it "ignores spaces between directives" do
    "dcbahgfe".unpack(unpack_format(' ', 2)).should == [1684234849, 1751606885]
  end
end

describe :string_unpack_32bit_be_signed, shared: true do
  it "decodes an int with most significant bit set as a negative number" do
    "\xff\x00\xaa\x00".unpack(unpack_format()).should == [-16733696]
  end
end

describe :string_unpack_32bit_be_unsigned, shared: true do
  it "decodes an int with most significant bit set as a positive number" do
    "\xff\x00\xaa\x00".unpack(unpack_format()).should == [4278233600]
  end
end

describe :string_unpack_64bit_le, shared: true do
  it "decodes one long for a single format character" do
    "abcdefgh".unpack(unpack_format).should == [7523094288207667809]
  end

  it "decodes two longs for two format characters" do
    array = "abghefcdghefabcd".unpack(unpack_format(nil, 2))
    array.should == [7233738012216484449, 7233733596956420199]
  end

  it "decodes the number of longs requested by the count modifier" do
    array = "abcedfghefcdghef".unpack(unpack_format(2))
    array.should == [7523094283929477729, 7378418357791581797]
  end

  it "decodes the remaining longs when passed the '*' modifier" do
    array = "acbdegfhdegfhacb".unpack(unpack_format('*'))
    array.should == [7522813912742519649, 7089617339433837924]
  end

  it "decodes the remaining longs when passed the '*' modifier after another directive" do
    array = "bcahfgedhfgedbca".unpack(unpack_format()+unpack_format('*'))
    array.should == [7234302065976107874, 7017560827710891624]
  end

  it "does not decode a long when fewer bytes than a long remain and the '*' modifier is passed" do
    "abc".unpack(unpack_format('*')).should == []
  end

  it "ignores NULL bytes between directives" do
    array = "abcdefghabghefcd".unpack(unpack_format("\000", 2))
    array.should == [7523094288207667809, 7233738012216484449]
  end

  it "ignores spaces between directives" do
    array = "abcdefghabghefcd".unpack(unpack_format(' ', 2))
    array.should == [7523094288207667809, 7233738012216484449]
  end
end

describe :string_unpack_64bit_le_extra, shared: true do
  it "adds nil for each element requested beyond the end of the String" do
    [ ["",                  [nil, nil, nil]],
      ["abcdefgh",          [7523094288207667809, nil, nil]],
      ["abcdefghcdefab",    [7523094288207667809, nil, nil]],
      ["abcdefghcdefabde",  [7523094288207667809, 7306072665971057763, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end
end

describe :string_unpack_64bit_le_signed, shared: true do
  it "decodes a long with most significant bit set as a negative number" do
    "\x00\xcc\x00\xbb\x00\xaa\x00\xff".unpack(unpack_format()).should == [-71870673923814400]
  end
end

describe :string_unpack_64bit_le_unsigned, shared: true do
  it "decodes a long with most significant bit set as a positive number" do
    "\x00\xcc\x00\xbb\x00\xaa\x00\xff".unpack(unpack_format()).should == [18374873399785737216]
  end
end

describe :string_unpack_64bit_be, shared: true do
  it "decodes one long for a single format character" do
    "hgfedcba".unpack(unpack_format).should == [7523094288207667809]
  end

  it "decodes two longs for two format characters" do
    array = "dcfehgbadcbafehg".unpack(unpack_format(nil, 2))
    array.should == [7233738012216484449, 7233733596956420199]
  end

  it "decodes the number of longs requested by the count modifier" do
    array = "hgfdecbafehgdcfe".unpack(unpack_format(2))
    array.should == [7523094283929477729, 7378418357791581797]
  end

  it "decodes the remaining longs when passed the '*' modifier" do
    array = "hfgedbcabcahfged".unpack(unpack_format('*'))
    array.should == [7522813912742519649, 7089617339433837924]
  end

  it "decodes the remaining longs when passed the '*' modifier after another directive" do
    array = "degfhacbacbdegfh".unpack(unpack_format()+unpack_format('*'))
    array.should == [7234302065976107874, 7017560827710891624]
  end

  it "does not decode a long when fewer bytes than a long remain and the '*' modifier is passed" do
    "abc".unpack(unpack_format('*')).should == []
  end

  it "ignores NULL bytes between directives" do
    array = "hgfedcbadcfehgba".unpack(unpack_format("\000", 2))
    array.should == [7523094288207667809, 7233738012216484449]
  end

  it "ignores spaces between directives" do
    array = "hgfedcbadcfehgba".unpack(unpack_format(' ', 2))
    array.should == [7523094288207667809, 7233738012216484449]
  end
end

describe :string_unpack_64bit_be_extra, shared: true do
  it "adds nil for each element requested beyond the end of the String" do
    [ ["",                  [nil, nil, nil]],
      ["hgfedcba",          [7523094288207667809, nil, nil]],
      ["hgfedcbacdefab",    [7523094288207667809, nil, nil]],
      ["hgfedcbaedbafedc",  [7523094288207667809, 7306072665971057763, nil]]
    ].should be_computed_by(:unpack, unpack_format(3))
  end
end

describe :string_unpack_64bit_be_signed, shared: true do
  it "decodes a long with most significant bit set as a negative number" do
    "\xff\x00\xaa\x00\xbb\x00\xcc\x00".unpack(unpack_format()).should == [-71870673923814400]
  end
end

describe :string_unpack_64bit_be_unsigned, shared: true do
  it "decodes a long with most significant bit set as a positive number" do
    "\xff\x00\xaa\x00\xbb\x00\xcc\x00".unpack(unpack_format()).should == [18374873399785737216]
  end
end