#
# Renjin : JVM-based interpreter for the R language for the statistical analysis
# Copyright Â© 2010-2018 BeDataDriven Groep B.V. and contributors
#
# This program 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.
#
# This program 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 this program; if not, a copy is available at
# https://www.gnu.org/licenses/gpl-2.0.txt
#

# Generated by gen-unary-tests.R using GNU R version 3.5.3 (2019-03-11)
library(hamcrest)
Sys.setlocale('LC_COLLATE', 'C')
is.recursive.foo <- function(...) 41L
as.vector.foo <- function(...) 99
as.vector.bar <- function(...) 98
Math.bar <- function(...) 44
Summary.bar <- function(...) 45
Ops.bar <- function(...) 46
test.is.recursive.1 <- function() assertThat(is.recursive(NULL), identicalTo(FALSE))
test.is.recursive.2 <- function() assertThat(is.recursive(logical(0)), identicalTo(FALSE))
test.is.recursive.3 <- function() assertThat(is.recursive(c(TRUE, TRUE, FALSE, FALSE, TRUE)), identicalTo(FALSE))
test.is.recursive.4 <- function() assertThat(is.recursive(structure(c(TRUE, FALSE), .Names = c("a", ""))), identicalTo(FALSE))
test.is.recursive.5 <- function() assertThat(is.recursive(c(TRUE, FALSE, NA)), identicalTo(FALSE))
test.is.recursive.6 <- function() assertThat(is.recursive(integer(0)), identicalTo(FALSE))
test.is.recursive.7 <- function() assertThat(is.recursive(structure(integer(0), .Names = character(0))), identicalTo(FALSE))
test.is.recursive.8 <- function() assertThat(is.recursive(1:3), identicalTo(FALSE))
test.is.recursive.9 <- function() assertThat(is.recursive(c(1L, NA, 4L, NA, 999L)), identicalTo(FALSE))
test.is.recursive.10 <- function() assertThat(is.recursive(c(1L, 2L, 1073741824L, 1073741824L)), identicalTo(FALSE))
test.is.recursive.11 <- function() assertThat(is.recursive(numeric(0)), identicalTo(FALSE))
test.is.recursive.12 <- function() assertThat(is.recursive(c(3.14159, 6.28319, 9.42478, 12.5664, 15.708)), identicalTo(FALSE))
test.is.recursive.13 <- function() assertThat(is.recursive(c(-3.14159, -6.28319, -9.42478, -12.5664, -15.708)), identicalTo(FALSE))
test.is.recursive.14 <- function() assertThat(is.recursive(structure(1:2, .Names = c("a", "b"))), identicalTo(FALSE))
test.is.recursive.15 <- function() assertThat(is.recursive(structure(c(1.5, 2.5), .Names = c("a", "b"))), identicalTo(FALSE))
test.is.recursive.16 <- function() assertThat(is.recursive(c(1.5, 1.51, 0, 1.49, -30)), identicalTo(FALSE))
test.is.recursive.17 <- function() assertThat(is.recursive(c(1.5, 1.51, 0, 1.49, -30, NA)), identicalTo(FALSE))
test.is.recursive.18 <- function() assertThat(is.recursive(c(1.5, 1.51, 0, 1.49, -30, NaN)), identicalTo(FALSE))
test.is.recursive.19 <- function() assertThat(is.recursive(c(1.5, 1.51, 0, 1.49, -30, Inf)), identicalTo(FALSE))
test.is.recursive.20 <- function() assertThat(is.recursive(c(1.5, 1.51, 0, 1.49, -30, -Inf)), identicalTo(FALSE))
test.is.recursive.21 <- function() assertThat(is.recursive(character(0)), identicalTo(FALSE))
test.is.recursive.22 <- function() assertThat(is.recursive(c("4.1", "blahh", "99.9", "-413", NA)), identicalTo(FALSE))
test.is.recursive.23 <- function() assertThat(is.recursive(complex(0)), identicalTo(FALSE))
test.is.recursive.24 <- function() assertThat(is.recursive(list(1, 2, 3)), identicalTo(TRUE))
test.is.recursive.25 <- function() assertThat(is.recursive(list(1, 2, NULL)), identicalTo(TRUE))
test.is.recursive.26 <- function() assertThat(is.recursive(list(1L, 2L, 3L)), identicalTo(TRUE))
test.is.recursive.27 <- function() assertThat(is.recursive(list(1L, 2L, NULL)), identicalTo(TRUE))
test.is.recursive.28 <- function() assertThat(is.recursive(list(1, 2, list(3, 4))), identicalTo(TRUE))
test.is.recursive.29 <- function() assertThat(is.recursive(list(1, 2, numeric(0))), identicalTo(TRUE))
test.is.recursive.30 <- function() assertThat(is.recursive(list(3, "a", structure(list("b", list(TRUE, "c")), .Names = c("", "z")))), identicalTo(TRUE))
test.is.recursive.31 <- function() assertThat(is.recursive(structure(list(1, 2, 3), .Names = c(NA, "", "b"))), identicalTo(TRUE))
test.is.recursive.32 <- function() assertThat(is.recursive(pairlist(41, "a", 21L)), identicalTo(TRUE))
test.is.recursive.33 <- function() assertThat(is.recursive(structure(pairlist(a = 41, 42))), identicalTo(TRUE))
test.is.recursive.34 <- function() assertThat(is.recursive(structure(pairlist(a = 41, NULL))), identicalTo(TRUE))
test.is.recursive.35 <- function() assertThat(is.recursive(structure(1:12, .Dim = 3:4)), identicalTo(FALSE))
test.is.recursive.36 <- function() assertThat(is.recursive(structure(1:12, .Dim = 3:4, .Dimnames = structure(list(    c("a", "b", "c"), c("d", "e", "f", "g")), .Names = c("x", "y")))), identicalTo(FALSE))
test.is.recursive.37 <- function() assertThat(is.recursive(structure(1:3, rando.attrib = 941L)), identicalTo(FALSE))
test.is.recursive.38 <- function() assertThat(is.recursive(structure(1:3, .Dim = 3L, .Dimnames = list(c("a", "b", "c")))), identicalTo(FALSE))
test.is.recursive.39 <- function() assertThat(is.recursive(structure(1:3, .Dim = 3L, .Dimnames = structure(list(    c("a", "b", "c")), .Names = "z"))), identicalTo(FALSE))
test.is.recursive.40 <- function() assertThat(is.recursive(structure(list("foo"), class = "foo")), identicalTo(TRUE))
test.is.recursive.41 <- function() assertThat(is.recursive(structure(list("bar"), class = "foo")), identicalTo(TRUE))
test.is.recursive.42 <- function() assertThat(is.recursive(quote(xyz)), identicalTo(FALSE))
test.is.recursive.43 <- function() assertThat(is.recursive(quote(sin(3.14))), identicalTo(TRUE))
test.is.recursive.44 <- function() assertThat(is.recursive("NaN"), identicalTo(FALSE))
test.is.recursive.45 <- function() assertThat(is.recursive("NABOOM!"), identicalTo(FALSE))
test.is.recursive.46 <- function() assertThat(is.recursive("NaNaNabooboo"), identicalTo(FALSE))
test.is.recursive.47 <- function() assertThat(is.recursive("-Inf"), identicalTo(FALSE))
test.is.recursive.48 <- function() assertThat(is.recursive("+Infinity"), identicalTo(FALSE))
test.is.recursive.49 <- function() assertThat(is.recursive("Infinity and beyond!"), identicalTo(FALSE))
test.is.recursive.50 <- function() assertThat(is.recursive("Infi"), identicalTo(FALSE))
test.is.recursive.51 <- function() assertThat(is.recursive("0.03f"), identicalTo(FALSE))
test.is.recursive.52 <- function() assertThat(is.recursive("  0.0330   "), identicalTo(FALSE))
test.is.recursive.53 <- function() assertThat(is.recursive(structure("foo", class = "foo")), identicalTo(FALSE))
test.is.recursive.54 <- function() assertThat(is.recursive(structure(list(1L, "bar"), class = "bar")), identicalTo(TRUE))
