#
# $Id: test3server.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::Extra1_impl;

$|=1;

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

# The object used as the target of test calls is accessed unsing
# an iioploc:// URL.  This requires the object key to be passed to 
# its constructor.

my $test_impl = Extra1_impl->new('The_Thing');

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

$boa->impl_is_ready();