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::set_uint64($event, "Test2", 11111111111111);
  18 LWES::set_int64($event, "Test3", 22222222222222);
  19 LWES::emit(undef, undef);
  20 LWES::emit($emitter, $event);
  21
  22 LWES::destroy_event($event);
  23 LWES::destroy_emitter($emitter);
  24
  25
  26 1;
  27