import org.codehaus.groovy.scriptom.*;

class TestTypesByrefVB6 extends GroovyTestCase
{
  //TODO: Obviously, this is hardly a complete test suite!!!
  
  void testString()
  {
    Scriptom.inApartment
    {
      def testObj = new ActiveXObject("ScriptomTest.TestByref"); 
    
      VariantByref svalue = new VariantByref("This is Groovy!");
      testObj.StringByref(svalue);
      assertEquals svalue.value, "This is Groovy!  VB6 was here!"
    }
  }
}