Added tests for remove_all_keywords().

Signed-off-by: Devendra Gera <[email protected]>

diff --git a/t/tags.t b/t/tags.t
index 606bbfb..1c0d2e9 100644 (file)
--- a/t/tags.t
+++ b/t/tags.t
@@ -2,14 +2,14 @@ use Test::More;
 use LibTracker::Client qw(:all);
 
 if( defined $ENV{LTC_TRACKER_RUNNING} ) {
-       plan tests => 16;
+       plan tests => 20;
 }
 else {
        plan skip_all => "LTC_TRACKER_RUNNING is not set";
 }
 
 SKIP: {
-       skip "LTC_META_FILE is not set", 16 unless defined $ENV{LTC_META_FILE};
+       skip "LTC_META_FILE is not set", 20 unless defined $ENV{LTC_META_FILE};
 
        my $file = $ENV{LTC_META_FILE};
        my $tag1 = "XXX_LTCTAG1_XXX";
@@ -51,7 +51,15 @@ SKIP: {
        ok( ref $results =~ /ARRAY/, "results type check" );
        ok( contains( $results, $file ), "results include test file" );
 
-       # TODO : write tests for remove_all_keywords()
+       # remove all tags
+       my $success = $tracker->remove_all_keywords(SERVICE_FILES, $file);
+       ok( $success, "remove all tags" );
+
+       # verify
+       $results = $tracker->get_keywords(SERVICE_FILES, $file);
+       ok( $results, "results resturned after removing all tags" );
+       ok( ref $results =~ /ARRAY/, "no results type check" );
+       cmp_ok( scalar @{$results}, '==', 0, "zero results" );
 }
 
 sub contains