2 files changed, 72 insertions, 0 deletions
diff --git a/tests/test_reliability.py b/tests/test_reliability.py
new file mode 100644
index 0000000..894656a
--- /dev/null
+++ b/tests/test_reliability.py
@@ -0,0 +1,54 @@
+import unittest
+import dialoguer
+
+
+class TestReliability(unittest.TestCase):
+
+	# @classmethod
+	# def setUpClass(cls):
+	# 	source_file_path = __file__.replace('.py', '.r')
+	# 	cls.src_fil_r = dialoguer.Dialogue(source_file_path)
+
+	# @classmethod
+	# def tearDownClass(cls):
+	# 	cls.src_fil_r.close()
+
+	def setUp(self):
+		source_file_path = __file__.replace('.py', '.r')
+		self.src_fil_r = dialoguer.Dialogue(source_file_path)
+
+	def tearDown(self):
+		self.src_fil_r.close()
+
+	def test_integer(self):
+		for i in range(20000):
+			self.src_fil_r.assign_variable('int_i', i)
+			chk_i = self.src_fil_r.import_variable('int_i')
+			self.assertEqual(chk_i, i)
+
+	def test_string(self):
+		for i in range(20000):
+			str_i = str(i)
+			self.src_fil_r.assign_variable('str_i', str_i)
+			chk_i = self.src_fil_r.import_variable('str_i')
+			self.assertEqual(chk_i, str_i)
+
+	def test_method(self):
+		self.src_fil_r.assign_variable('vect_0', 1)
+		for i in range(10000):
+			chk = self.src_fil_r.evaluate_expression('add_to_vector', 'vect_0', i)
+		self.src_fil_r.evaluate_expression('display_vector', 'vect_0')
+
+	def test_vector(self):
+		self.src_fil_r.assign_variable('vect_0', 1)
+		self.src_fil_r.evaluate_expression('add_to_vector', 'vect_0', 2)
+		vect_0 = self.src_fil_r.import_variable('vect_0')
+		print(vect_0)
+
+	def test_no_return(self):
+		val = self.src_fil_r.evaluate_expression('no_return_method', 2)
+		print(val)
+
+
+if __name__ == '__main__':
+	unittest.main()
diff --git a/tests/test_reliability.r b/tests/test_reliability.r
new file mode 100644
index 0000000..ba6daaf
--- /dev/null
+++ b/tests/test_reliability.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