package Config::IniFiles::TestPaths;

use strict;
use warnings;

use File::Spec;

use base 'Exporter';

use vars (qw(@EXPORT));

@EXPORT = (qw(t_file t_unlink));

=head2 my $t_filename = t_file($filename)

Returns a portable filename under "./t" for $filename.

=cut

sub t_file
{
    my $filename = shift;

    return File::Spec->catfile(File::Spec->curdir(), "t", $filename);
}

=head2 t_unlink($filename)

Unlinks the t_file $filename.

=cut

sub t_unlink
{
    my $filename = shift;

    return unlink(t_file($filename));
}

1;