RenjinCoreTest.java

package com.activequant;

import junit.framework.Test;
import junit.framework.TestCase;
import junit.framework.TestSuite;

import org.renjin.sexp.DoubleVector;

import com.activequant.utils.RenjinCore;

/**
 * Unit test for simple App.
 */
public class RenjinCoreTest extends TestCase {
	/**
	 * Create the test case
	 * 
	 * @param testName
	 *            name of the test case
	 */
	public RenjinCoreTest(String testName) {
		super(testName);
	}

	/**
	 * @return the suite of tests being tested
	 */
	public static Test suite() {
		return new TestSuite(RenjinCoreTest.class);
	}

	public void testRenjin() throws Exception {
		RenjinCore r = new RenjinCore();
		r.put("a", 1);
		r.execute("b = c(a, sqrt(a + 1));");
		r.execute("b = c(a, sqrt(a + 1), sqrt(50));");
		r.execute("d = sum(b);");
		r.execute("sdb = sd(c(1,2,3));");
		// r.execute("plot(b);");
		
		assertEquals(DoubleVector.class, r.get("b").getClass());
		assertEquals(9.485281374238571, ((DoubleVector)r.get("d")).get(0));
		
		System.out.println("Obj: " + r.get("b") + " " + r.get("b").getClass());
		System.out.println(r.get("d"));
		System.out.println(r.get("sdb"));
	}

}