File Coverage

blib/lib/Test/Dir.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	13	13	100.0
pod	10	10	100.0
total	42	42	100.0

# $Id: Dir.pm,v 1.14 2012-03-07 03:25:35 Martin Exp $

package Test::Dir;

use strict;
use warnings;

our
$VERSION = do { my @r = (q$Revision: 1.14 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };

use base qw( Exporter Test::Dir::Base );

our @EXPORT;
push @EXPORT, qw( dir_exists_ok dir_not_exists_ok );
push @EXPORT, qw( dir_empty_ok dir_not_empty_ok );
push @EXPORT, qw( dir_readable_ok dir_not_readable_ok );
push @EXPORT, qw( dir_writable_ok dir_not_writable_ok );
push @EXPORT, qw( dir_executable_ok dir_not_executable_ok );

=head1 NAME

Test::Dir - test directory attributes

=head1 SYNOPSIS

  use Test::More ...;
  use Test::Dir;

=head1 DESCRIPTION

This modules provides a collection of test utilities for directory attributes.
Use it in combination with Test::More in your test programs.

=head1 FUNCTIONS

=head2 dir_exists_ok(DIRNAME [, TESTNAME] )

Ok if the directory exists, and not ok otherwise.

=cut

sub dir_exists_ok
  {
  Test::Dir::Base::_dir_exists_ok(@_);
  }

=head2 dir_not_exists_ok(DIRNAME [, TESTNAME] )

Ok if the directory does not exist, and not ok otherwise.

=cut

sub dir_not_exists_ok
  {
  Test::Dir::Base::_dir_not_exists_ok(@_);
  }

=head2 dir_empty_ok(DIRNAME [, TESTNAME] )

Ok if the directory is empty (contains no files or subdirectories),
and not ok otherwise.

=cut

sub dir_empty_ok
  {
  Test::Dir::Base::_dir_empty_ok(@_);
  }

=head2 dir_not_empty_ok(DIRNAME [, TESTNAME] )

Ok if the directory is not empty, and not ok otherwise.

=cut

sub dir_not_empty_ok
  {
  Test::Dir::Base::_dir_not_empty_ok(@_);
  }

=head2 dir_readable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is readable, and not ok otherwise.

=cut

sub dir_readable_ok
  {
  Test::Dir::Base::_dir_readable_ok(@_);
  } # dir_readable_ok

=head2 dir_not_readable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is not readable, and not ok otherwise.

=cut

sub dir_not_readable_ok
  {
  Test::Dir::Base::_dir_not_readable_ok(@_);
  } # dir_not_readable_ok


=head2 dir_writable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is writable, and not ok otherwise.

=cut

sub dir_writable_ok
  {
  Test::Dir::Base::_dir_writable_ok(@_);
  } # dir_writable_ok

=head2 dir_not_writable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is not writable, and not ok otherwise.

=cut

sub dir_not_writable_ok
  {
  Test::Dir::Base::_dir_not_writable_ok(@_);
  } # dir_not_writable_ok


=head2 dir_executable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is executable, and not ok otherwise.

=cut

sub dir_executable_ok
  {
  Test::Dir::Base::_dir_executable_ok(@_);
  } # dir_executable_ok

=head2 dir_not_executable_ok(DIRNAME [, TESTNAME] )

Ok if the directory is not executable, and not ok otherwise.

=cut

sub dir_not_executable_ok
  {
  Test::Dir::Base::_dir_not_executable_ok(@_);
  } # dir_not_executable_ok


=head1 TO DO

I know there are a lot more directory attributes that can be tested.
If you need them, please ask (or better yet, contribute code!).

=head1 AUTHOR

Martin 'Kingpin' Thurn, C, L.

=head1 BUGS

Please report any bugs or feature requests to C
rt.cpan.org>, or through the web interface at
L.  I will be
notified, and then you'll automatically be notified of progress on
your bug as I make changes.


=head1 SUPPORT

You can find documentation for this module with the perldoc command.

  perldoc Test::Dir

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L

=item * AnnoCPAN: Annotated CPAN documentation

L

=item * CPAN Ratings

L

=item * Search CPAN

L

=back

=head1 ACKNOWLEDGEMENTS


=head1 COPYRIGHT & LICENSE

Copyright (C) 2007-2008 Martin 'Kingpin' Thurn

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


=cut

1;

__END__