Added tests to compare to alternative packages.

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/test_alt.r b/tests/test_alt.r
new file mode 100644
index 0000000..ba6daaf
--- /dev/null
+++ b/tests/test_alt.r
@@ -0,0 +1,18 @@
+chk_0 <- TRUE
+
+add_to_vector <- function(vect_name, val) {
+	vect <- get(vect_name, envir = globalenv())
+	vect <- c(vect, val)
+	assign(vect_name, vect, envir = globalenv())
+	return(TRUE)
+}
+
+display_vector <- function(vect_name) {
+	vect <- get(vect_name, envir = globalenv())
+	display_msg(vect)
+	return(TRUE)
+}
+
+no_return_method <- function(i) {
+	
+}
\ No newline at end of file