ok( 0
   ,opcmsg( OPC_SEV_MINOR
          ,$application
          ,$object 
          ,"this is ia test of a perl XS implementation of opcmsg (test 2)" 
          ,$msg_group 
          ,$ENV{'HOSTNAME'} 
          )
); #10


##</code><code>##

my $msg_group = defined $ENV{'OVO_MSG_GROUP'} ? $ENV{'OVO_MSG_GROUP'} : 'OVO_test_group' ;
my $application = defined $ENV{'OVO_APPLICATION'} ? $ENV{'OVO_APPLICATION'} : 'application' ;
my $object = defined $ENV{'OVO_OBJECT'} ? $ENV{'OVO_OBJECT'} : 'object' ;