# -------------------------------------------------------------------------------------------------------------------------  #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #           File Name              :  jesus_test.r                                                                           #
  #           Last Updated Funclist  :  15 Feb 2014,  1:13 AM (Saturday)                                                       #
  #                                                                                                                            #
  #           Author Name            :  Rick Saporta                                                                           #
  #           Author Email           :  RickSaporta@gmail.com                                                                  #
  #           Author URL             :  www.github.com/rsaporta                                                                #
  #                                                                                                                            #
  #           Packages Called        :  NA                                                                                     #
  #           Packages Used via NS   :  NA                                                                                     #
  #                                                                                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  #                                                                                                                            #
  #   testFunc           ( RDS=TRUE )                                                                                          #
  #                                                                                                                            #
  #                                                                                                                            #
  #                                                     <END FUNCS>                                                            #
  #  -----------------------------------------------------------------------------------------------------------------------   #
  # -------------------------------------------------------------------------------------------------------------------------  #

testFunc <- function(RDS=TRUE) {
	obj1 <- 1:20
	obj2 <- 200:211

	jesus(obj1, obj2, verbose=TRUE, RDS=RDS, summary=FALSE)
}

.us()

## -----------  RDS TEST ----------- ##
obj1 <- "wrong obj1, global"
obj2 <- "wrong obj2, global"

RDS <- TRUE
.us(); res <- testFunc(RDS)
c # in case browsing
rm(obj1, obj2)

(obj1 <- readRDS(res[[1]]))
(obj2 <- readRDS(res[[2]]))

## -----------  RDA TEST ----------- ##

obj1 <- "wrong obj1, global"
obj2 <- "wrong obj2, global"

RDS <- FALSE
.us(); res <- testFunc(RDS)
c # in case browsing

rm(obj1, obj2)

get(load(res[[1]]))
get(load(res[[2]]))