inst/tinytest/test_proto3.R

In RProtoBuf: R Interface to the 'Protocol Buffers' 'API' (Version 2 or 3)

## rprotobuf.h: R/C++ interface class library
##
## Copyright (C) 2017 - 2020  Dirk Eddelbuettel
##
## This file is part of RProtoBuf.
##
## RProtoBuf is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 2 of the License, or
## (at your option) any later version.
##
## RProtoBuf is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with RProtoBuf.  If not, see <http://www.gnu.org/licenses/>.

library(RProtoBuf)

## The Travis CI tests use both proto2 and proto3, so we need to condition against
## running this one with proto2 where it cannot pass we impose a proto3 file
isProto3 <- (RProtoBuf:::getProtobufLibVersion() >= 3000000)

if (!isProto3) exit_file("Need Proto3 for this test.")

#.setUp <- function(){
if( !exists("SearchRequest", "RProtoBuf:DescriptorPool")) {
    unitest.proto.file <- system.file("tinytest", "data", "proto3.proto", package="RProtoBuf")
    readProtoFiles(file = unitest.proto.file)
}
#}

#test.proto3 <- function() {
q <- new(SearchRequest, query="abc", page_number=42L, result_per_page=77L)
expect_equal(q$query, "abc", msg="proto3 string")
expect_equal(q$page_number, 42L, msg="proto3 int")
expect_equal(q$result_per_page, 77L, msg="proto3 int again")
#}