package edu.vub.at;

import edu.vub.at.exceptions.InterpreterException;
import edu.vub.at.exceptions.XParseError;
import edu.vub.at.objects.ATAbstractGrammar;
import edu.vub.at.objects.ATClosure;
import edu.vub.at.objects.ATContext;
import edu.vub.at.objects.ATObject;
import edu.vub.at.objects.ATTable;
import edu.vub.at.objects.mirrors.NativeClosure;
import edu.vub.at.objects.natives.NATContext;
import edu.vub.at.objects.natives.NATNumber;
import edu.vub.at.objects.natives.NATObject;
import edu.vub.at.objects.natives.NATText;
import edu.vub.at.objects.natives.grammar.AGSymbol;
import edu.vub.at.parser.NATParser;

import junit.framework.TestCase;


public class AmbientTalkTestCase extends TestCase {

	protected ATContext ctx_ = null; 
	
	protected ATClosure unittest_ = new NativeClosure(null) {
		public ATObject base_apply(ATTable arguments) throws InterpreterException {
			ATClosure body = arguments.base_at(NATNumber.ONE).asClosure();
			return OBJUnit._INSTANCE_.base_unittest_(body);
		};
	};
	
	protected void evaluateInput(String input, ATContext ctx) throws InterpreterException {
		try {
			ATAbstractGrammar ag = NATParser._INSTANCE_.base_parse(NATText.atValue(input));
			
			// Evaluate the corresponding tree of ATAbstractGrammar objects
			ag.meta_eval(ctx);
		} catch(XParseError e) {
			e.printStackTrace();
			fail("exception: "+e);
		}
	}
	
	protected void setUp() throws Exception {
		ATObject root = new NATObject(); // object with no dyn or lex parent
		ATObject supr = new NATObject(root); // supr has root as lex parent
		ATObject self = new NATObject(supr, root, NATObject._SHARES_A_); // self has root as lex parent and supr as dyn parent
		ATObject scope = new NATObject(self); // scope has no dyn parent and is nested within self
		
		
		self.meta_defineField(AGSymbol.jAlloc("unittest:"), unittest_);
		
		self.meta_defineField(AGSymbol.jAlloc("unit"), OBJUnit._INSTANCE_);
				
		ctx_ = new NATContext(scope, self);
	}
	
	protected void tearDown() throws Exception {
		ctx_ = null;
	}
	
//	public void testUnitTestFramework() {
//		try {
//			evaluateInput("unit.fail: \"This test should fail.\"", ctx_);
//		} catch (NATException e) {
//			fail("exception : " + e);
//		} catch (AssertionFailedError e) {
//			// ok. this test is supposed to fail
//		}
//
//		try {
//			evaluateInput("unittest: { self.fail: \"This test should fail.\" }", ctx_);
//		} catch (NATException e) {
//			e.printStackTrace();
//			fail("exception : " + e);
//		} catch (AssertionFailedError e) {
//			// ok. this test is supposed to fail
//		}
//	
//	}
	
}