1 # Licensed to the Apache Software Foundation (ASF) under one
2 # or more contributor license agreements. See the NOTICE file
3 # distributed with this work for additional information
4 # regarding copyright ownership. The ASF licenses this file
5 # to you under the Apache License, Version 2.0 (the
6 # "License"); you may not use this file except in compliance
7 # with the License. You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing,
12 # software distributed under the License is distributed on an
13 # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
14 # KIND, either express or implied. See the License for the
15 # specific language governing permissions and limitations
18 test_that("BufferReader can be created from R objects", {
19 num <- BufferReader$create(numeric(13))
20 int <- BufferReader$create(integer(13))
21 raw <- BufferReader$create(raw(16))
23 expect_r6_class(num, "BufferReader")
24 expect_r6_class(int, "BufferReader")
25 expect_r6_class(raw, "BufferReader")
27 expect_equal(num$GetSize(), 13 * 8)
28 expect_equal(int$GetSize(), 13 * 4)
29 expect_equal(raw$GetSize(), 16)
32 test_that("BufferReader can be created from Buffer", {
33 buf <- buffer(raw(76))
34 reader <- BufferReader$create(buf)
36 expect_r6_class(reader, "BufferReader")
37 expect_equal(reader$GetSize(), 76)