#!/usr/local/bin/perl -w
#
# $Id: testserver.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::Test::Test1_impl;
use COPE::Test::Test4_impl;

$|=1;

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

my $test_impl = Test::Test1_impl->new;
my $testref = $orb->object_to_string( $boa->servant_to_reference( $test_impl ) );
print "$testref\n";

$boa->impl_is_ready();