t/01-names_types.t

   1 use Test::More tests => 17;
   2 BEGIN { use_ok('LibTracker::Client') };
   3
   4
   5 for( my $i = 0; $i < 16; $i++ ) {
   6         my $name = LibTracker::Client->service_name($i);
   7         my $type = LibTracker::Client->service_type($name);
   8
   9         is( $type, $i, "name - type : $name - $type" );
  10 }
  11