# Copyright 2017 Kouhei Sutou <kou@clear-code.com>
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#     http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.

class ToArrowTest < Test::Unit::TestCase
  sub_test_case("Matrix") do
    test("Int32") do
      data = [
        [1, 2, 3, 4],
        [5, 6, 7, 8],
        [9, 10, 11, 12],
        [-1, -2, -3, -4],
        [-5, -6, -7, -8],
        [-9, -10, -11, -12],
      ]
      matrix = GSL::Matrix::Int.alloc(*data)
      tensor = matrix.to_arrow
      assert_equal([
                     [6, 4],
                     data.flatten,
                   ],
                   [
                     tensor.shape,
                     tensor.buffer.data.to_s.unpack("l*"),
                   ])
    end

    test("Double") do
      data = [
        [1.0, 2.0, 3.0, 4.0],
        [5.0, 6.0, 7.0, 8.0],
        [9.0, 10.0, 11.0, 12.0],
        [13.0, 14.0, 15.0, 16.0],
        [17.0, 18.0, 19.0, 20.0],
        [21.0, 22.0, 23.0, 24.0],
      ]
      matrix = GSL::Matrix.alloc(*data)
      tensor = matrix.to_arrow
      assert_equal([
                     [6, 4],
                     data.flatten,
                   ],
                   [
                     tensor.shape,
                     tensor.buffer.data.to_s.unpack("d*"),
                   ])
    end
  end
end