#!/usr/bin/perl -w

use strict;
use warnings;
use Test::Repocop::Common;
use Test::Repocop::TestDB;
use Test::Repocop::CLI::Base;

our @ISA=qw/Test::Repocop::CLI/;
our @LONGOPT_POD2USAGE=qw/-verbose 1 -exitval 1/;
__PACKAGE__->get_and_process_cli_options();
&Test::Repocop::Workdir::die_if_nothing_to_report();
unless (@ARGV) {
    __PACKAGE__->usage();
    exit 1;
}

my $testdb=Test::Repocop::TestDB->new();
$testdb->remove_test(map {split (',',$_)} @ARGV);
&Test::Repocop::Common::discard_test_environment(map {split (',',$_)} @ARGV);

__END__

=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<--workdir> I<workdir>]
[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<--workdir> I<dir>

Provides alternative location for the Repocop workdir. Repocop workdir
is a place where test results and packages metadata information are stored.
Default is I<~/.repocop>.

=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-2022 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

