21 lines
657 B
Perl
21 lines
657 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# Copyright 1999-2003 Mitel Networks Corporation
|
||
|
|
# This program is free software; you can redistribute it and/or
|
||
|
|
# modify it under the same terms as Perl itself.
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Test::More tests => 8;
|
||
|
|
|
||
|
|
require_ok("Test::Harness");
|
||
|
|
require_ok("Test::More");
|
||
|
|
require_ok("Test::Inline");
|
||
|
|
require_ok("WWW::Automate");
|
||
|
|
require_ok("Test::Simple");
|
||
|
|
require_ok("esmith::TestUtils");
|
||
|
|
|
||
|
|
ok(-e "/etc/e-smith/tests", "Test directory exists");
|
||
|
|
ok(-d "/etc/e-smith/tests", "Test directory is a directory");
|