28 lines
630 B
Perl
28 lines
630 B
Perl
|
# t/01-dw.t
|
||
|
|
#
|
||
|
|
# Test to make sure the DW->home directory exists
|
||
|
|
#
|
||
|
|
# Authors:
|
||
|
|
# Ricky Buchanan <ricky@notdoneliving.net>
|
||
|
|
#
|
||
|
|
# Copyright (c) 2012 by Dreamwidth Studios, LLC.
|
||
|
|
#
|
||
|
|
# This program is free software; you may redistribute it and/or modify it under
|
||
|
|
# the same terms as Perl itself. For a copy of the license, please reference
|
||
|
|
# 'perldoc perlartistic' or 'perldoc perlgpl'.
|
||
|
|
#
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Test::More tests => 3;
|
||
|
|
|
||
|
|
BEGIN { require "$ENV{LJHOME}/cgi-bin/LJ/Directories.pm"; }
|
||
|
|
|
||
|
|
use_ok('DW');
|
||
|
|
|
||
|
|
my $dir = DW->home;
|
||
|
|
|
||
|
|
ok( $dir, 'DW->home returns something' );
|
||
|
|
ok( -d $dir, 'DW->home returns a directory' );
|
||
|
|
|