source('./SyncRNG.R')

test.randi <- function()
{
	s <- SyncRNG(seed=123456)
	for (i in 1:5)
		cat(s$randi(), '\n')
}

test.rand <- function()
{
	s <- SyncRNG(seed=123456)
	for (i in 1:5)
		cat(s$rand(), '\n')
}

test.randbelow <- function()
{
	s <- SyncRNG(seed=123456)
	for (i in 1:5)
		cat(s$randbelow(i), '\n')
}

test.shuffle <- function()
{
	s <- SyncRNG(seed=123456)
	x <- c(1:5)
	for (i in 1:5) {
		y <- s$shuffle(x)
		x <- y
		cat(y, '\n')
	}
}

main <- function()
{
	test.randi()
	test.rand()
	test.randbelow()
	test.shuffle()
}

main()