#!/usr/bin/perl -w

use strict;
use Test::Repocop::Options;
use Test::Repocop::TestDB;

&Test::Repocop::Options::get_common_options();
&Test::Repocop::Options::die_if_nothing_to_report();
unless (@ARGV) {
    #exec "pod2usage --exit=0 $0";
    pod2usage({ #-message => "the options below are package-specific:" ,
	-exitval => 0  ,
	-verbose => $verbose,
	#-output  => $filehandle
	      } );
}
my $testdb=Test::Repocop::TestDB->new();
$testdb->remove_test(map {split (',',$_)} @ARGV);
&Test::Repocop::Common::discard_test_environment(map {split (',',$_)} @ARGV);

=head1	NAME

repocop-discard-test - discards cached results for given tests.

=head1	SYNOPSIS

B<repocop-discard-test>
[B<-h|--help>]
[B<-v|--verbose>]
[B<-q|--quiet>]
[B<-c|--cachedir> I<cachedir>]
[I<comma or space separated list of tests>...]

=head1	DESCRIPTION

B<repocop-discard-test>
discards cached results for given tests.

=head1	OPTIONS

=over

=item	B<-c,--cachedir> I<dir>

Provides alternative location for cachedir. 
Repocop cachedir is a place where test results and 
packages metadata information are stored.


=item	B<-h, --help>

Display this help and exit.

=item	B<-v, --verbose>, B<-q, --quiet>

Verbosity level. Multiple -v increase the verbosity level, -q sets it to 0.

=back

=head1	AUTHOR

Written by Igor Vlasenko <viy@altlinux.org>.

=head1	ACKNOWLEGEMENTS

To Alexey Torbin <at@altlinux.org>, whose qa-robot package
had a strong influence on repocop. 

=head1	COPYING

Copyright (c) 2008 Igor Vlasenko, ALT Linux Team.

This is free software; you can redistribute it and/or modify it under the terms
of the GNU General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

=cut

