#
# $Id: test2server.pl 1206 2006-05-31 07:11:53Z rvosa $
# Copyright (c) 1997 Lunatech Research / Bart Schuller <schuller@lunatech.com>
# See the file "Artistic" in the distribution for licensing and
# (lack of) warranties.


use strict;
use COPE::CORBA::ORB;
use COPE::Data;
use COPE::Data::Testem_impl;

$|=1;

my $orb = CORBA::ORB_init(\@ARGV);
my $boa = $orb->BOA_init();

my $test_impl = new Data::Testem_impl;
my $testref = $orb->object_to_string($test_impl);
print "$testref\n";

$boa->impl_is_ready();