view release on metacpan or  search on metacpan

t/10_test.t  view on Meta::CPAN

#!/usr/bin/perl

# Testing for the test driver

use strict;

BEGIN
{
    $|  = 1;
    $^W = 1;
}
use File::Spec::Functions ':ALL';
use Test::More tests => 30;
use File::HomeDir::Test;
use File::HomeDir;

# Is the test driver enabled?
is($File::HomeDir::Test::ENABLED,  1,                     'File::HomeDir::Test is enabled');
is($File::HomeDir::IMPLEMENTED_BY, 'File::HomeDir::Test', 'IMPLEMENTED_BY is correct');

# Was everything hijacked correctly?
foreach my $method (
    qw{
    my_home
    my_desktop
    my_documents
    my_data
    my_music
    my_pictures
    my_videos
    }
  )
{
    my $dir = File::HomeDir->$method();
    ok($dir,    "$method: Got a directory");
    ok(-d $dir, "$method: Directory exists at $dir");
    ok(-r $dir, "$method: Directory is readable");
    ok(-w $dir, "$method: Directory is writeable");
}