t/00-LibTracker-Client.t

   1 # Before `make install' is performed this script should be runnable with
   2 # `make test'. After `make install' it should work as `perl LibTracker-Client.t'
   3
   4 #########################
   5
   6 # change 'tests => 2' to 'tests => last_test_to_print';
   7
   8 use Test::More tests => 4;
   9 BEGIN { use_ok('LibTracker::Client') };
  10
  11
  12 my $fail = 0;
  13 foreach my $constname (qw(
  14         DATA_DATE DATA_NUMERIC DATA_STRING DATA_STRING_INDEXABLE
  15         SERVICE_APPLICATIONS SERVICE_APPOINTMENTS SERVICE_BOOKMARKS
  16         SERVICE_CONTACTS SERVICE_CONVERSATIONS SERVICE_DEVELOPMENT_FILES
  17         SERVICE_DOCUMENTS SERVICE_EMAILATTACHMENTS SERVICE_EMAILS SERVICE_FILES
  18         SERVICE_FOLDERS SERVICE_HISTORY SERVICE_IMAGES SERVICE_MUSIC
  19         SERVICE_OTHER_FILES SERVICE_PLAYLISTS SERVICE_PROJECTS SERVICE_TASKS
  20         SERVICE_TEXT_FILES SERVICE_VFS_DEVELOPMENT_FILES SERVICE_VFS_DOCUMENTS
  21         SERVICE_VFS_FILES SERVICE_VFS_FOLDERS SERVICE_VFS_IMAGES
  22         SERVICE_VFS_MUSIC SERVICE_VFS_OTHER_FILES SERVICE_VFS_TEXT_FILES
  23         SERVICE_VFS_VIDEOS SERVICE_VIDEOS)) {
  24   next if (eval "my \$a = $constname; 1");
  25   if ($@ =~ /^Your vendor has not defined LibTracker::Client macro $constname/) {
  26     print "# pass: $@";
  27   } else {
  28     print "# fail: $@";
  29     $fail = 1;
  30   }
  31
  32 }
  33
  34 ok( $fail == 0 , 'Constants' );
  35 #########################
  36
  37 # Insert your test code below, the Test::More module is use()ed here so read
  38 # its man page ( perldoc Test::More ) for help writing this test script.
  39
  40 # get an instance and check its type.
  41 # TODO : handle the case when trackerd/dbus isn't running
  42 my $tracker = LibTracker::Client->get_instance();
  43 ok( $tracker, "got tracker intance" );
  44 isa_ok( $tracker, "LibTracker::Client", "instance type check" );
  45