t/02-properties.t

   1 use Test::More tests => 6;
   2 BEGIN { use_ok('LibTracker::Client') };
   3
   4 SKIP: {
   5         skip "LTC_TRACKER_RUNNING not set", 5 unless defined $ENV{LTC_TRACKER_RUNNING};
   6
   7         my $tracker = LibTracker::Client->get_instance();
   8         ok( $tracker, "get instance" );
   9         isa_ok( $tracker, "LibTracker::Client", "type check" );
  10
  11         # version
  12         my $version = $tracker->get_version();
  13         ok( $version, "tracker version : $version" );
  14
  15         # status
  16         my $status = $tracker->get_status();
  17         ok( $status, "tracker status : $status" );
  18
  19         # services
  20         my $services = $tracker->get_services(0);
  21         ok( ref $services, scalar( keys %{$services} ) ." tacker services" );
  22 }
  23