t/1.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 3;
   7
   8 use_ok( 'LWES' );
   9
  10 my $emitter = LWES::create_emitter("224.1.1.1",0,9999,0,60);
  11 isnt($emitter, undef, "Emitter created");
  12
  13 my $event = LWES::create_event(undef, "TestEvent");
  14 isnt($event, undef, "Event created");
  15
  16 LWES::set_string($event, "Test1", "Test1");
  17 LWES::emit(undef, undef);
  18 LWES::emit($emitter, $event);
  19
  20 LWES::destroy_event($event);
  21 LWES::destroy_emitter($emitter);
  22
  23
  24 1;
  25