#
# Renjin : JVM-based interpreter for the R language for the statistical analysis
# Copyright Â© 2010-2019 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-dist-tests.R using GNU R version 3.3.1 (2016-06-21)
library(hamcrest)
library(stats)
set.seed(1)
test.rlnorm.1 <- function() assertThat({set.seed(1);rlnorm(n = 0x1p+0, meanlog = c(0x0p+0, 0x1p-1, 0x1.4p+2), sdlog = c(0x0p+0, 0x1p+0, 0x1p-1, 0x1.4p+2))}, identicalTo(0x1p+0))
test.rlnorm.2 <- function() assertThat({set.seed(1);rlnorm(n = 1:5, meanlog = c(0x0p+0, 0x1p-1, 0x1.4p+2), sdlog = c(0x0p+0, 0x1p+0, 0x1p-1, 0x1.4p+2))}, identicalTo(c(0x1p+0, 0x1.c32e97cdd9e32p-1, 0x1.455f34fc21df9p+7, 0x1.f63bb60bca3d9p-7, 0x1.a61298e1e069cp+0), tol = 0.000100))
test.rlnorm.3 <- function() assertThat({set.seed(1);rlnorm(n = 0x1.ep+3, meanlog = c(0x0p+0, 0x1p-1, 0x1.4p+2), sdlog = c(0x0p+0, 0x1p+0, 0x1p-1, 0x1.4p+2))}, identicalTo(c(0x1p+0, 0x1.c32e97cdd9e32p-1, 0x1.455f34fc21df9p+7, 0x1.f63bb60bca3d9p-7, 0x1.a61298e1e069cp+0, 0x1.6dd130d18dcb4p+9, 0x1.2dd9afdb90847p+0, 0x1.be9feb3eab5fdp-6, 0x1.28d389970338fp+7, 0x1.a0ccccfa0909p+0, 0x1.3144ce6827d88p+1, 0x1.4a1f7adb87647p+11, 0x1p+0, 0x1.36ffb16e8077ap+0, 0x1.3c0c00e42c1cbp+8), tol = 0.000100))
test.rlnorm.4 <- function() assertThat({set.seed(1);rlnorm(n = numeric(0), meanlog = c(0x0p+0, 0x1p-1, 0x1.4p+2),     sdlog = c(0x0p+0, 0x1p+0, 0x1p-1, 0x1.4p+2))}, identicalTo(numeric(0)))
test.rlnorm.5 <- function() assertThat({set.seed(1);rlnorm(n = 0x1.8p+1, meanlog = c(NA, 0x1p-1, 0x1.4p+2), sdlog = c(0x0p+0, 0x1p+0, 0x1p-1, 0x1.4p+2))}, identicalTo(c(NaN, 0x1.c32e97cdd9e32p-1, 0x1.455f34fc21df9p+7)))
