From 1673a4ddc2b4504dbf8fc1e2197c3002bbcfafea Mon Sep 17 00:00:00 2001
From: gebele <gebele@in-silico.ch>
Date: Mon, 15 Jan 2018 12:11:21 +0000
Subject: added R packages test

---
 test/Rpackages.rb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 test/Rpackages.rb

diff --git a/test/Rpackages.rb b/test/Rpackages.rb
new file mode 100644
index 0000000..000fd2b
--- /dev/null
+++ b/test/Rpackages.rb
@@ -0,0 +1,20 @@
+require_relative "setup.rb"
+
+class LazarRpackagesTest < MiniTest::Test
+
+  def test_libPaths
+    r = R.eval('.libPaths()')
+    assert_equal 2, r.payload.size
+    assert_equal "/home/ist/lazar/R", r.payload[0]
+  end
+
+  def test_user_packages_installed
+    packages = ["caret", "randomForest", "ggplot2", "pls", "doMC", "gridExtra", "foreach", "iterators", "stringi"]
+    packages.each do |p|
+      r = R.eval "require(#{p})"
+      assert_equal 1, r.payload[0]
+    end
+  end
+
+end
+
-- 
cgit v1.2.3