Artifact Content
Not logged in

Artifact f3d35793231b18505a253ebfccd4308ff3a21bd9:


/* 
 * JavaLoadTclBlend.java --
 *
 *      This file tests loading of Tcl Blend into a JVM.
 *
 * Copyright (c) 2002 by Mo DeJong
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: JavaLoadTclBlend.java,v 1.2 2002/07/22 09:27:20 mdejong Exp $
 */

package tests;

import tcl.lang.*;

public class JavaLoadTclBlend {
    public static void main(String[] args) throws Exception {
        Interp interp = null;

        try {
            interp = new Interp();
            interp.eval("expr {1 + 2}");
            if (!interp.getResult().toString().equals("3"))
                System.exit(-1);
        } finally {
            if (interp != null)
                interp.dispose();
        }
        System.exit(0);
    }
}