2007-10-25 12:27:49 by steve
Updated
This commit is contained in:
10
t/00-load.t
10
t/00-load.t
@@ -1,10 +0,0 @@
|
||||
#!/usr/bin/perl -I../lib -I./lib
|
||||
|
||||
use Test::More tests => 2;
|
||||
|
||||
BEGIN {
|
||||
use_ok( 'Xen::Tools' );
|
||||
use_ok( 'Xen::Tools::Log' );
|
||||
}
|
||||
|
||||
diag( "Testing Xen::Tools $Xen::Tools::VERSION, Perl $], $^X" );
|
||||
@@ -7,7 +7,7 @@
|
||||
# --
|
||||
# http://www.steve.org.uk/
|
||||
#
|
||||
# $Id: modules.sh,v 1.1 2007-09-01 19:23:10 steve Exp $
|
||||
# $Id: modules.sh,v 1.2 2007-10-25 12:27:49 steve Exp $
|
||||
#
|
||||
|
||||
cat <<EOF
|
||||
@@ -26,7 +26,7 @@ use Test::More qw( no_plan );
|
||||
EOF
|
||||
|
||||
|
||||
for i in `rgrep '^use ' .. | grep -v Expect | awk '{print $2}' | tr -d
|
||||
for i in `rgrep '^use ' .. | grep -v Expect | grep -v Xen:: | grep -v Moose | awk '{print $2}' | tr -d
|
||||
\;\(\) | sort | uniq`; \
|
||||
do \
|
||||
echo "BEGIN{ use_ok( '$i' ); }"; \
|
||||
|
||||
12
t/modules.t
12
t/modules.t
@@ -10,6 +10,10 @@
|
||||
|
||||
use Test::More qw( no_plan );
|
||||
|
||||
BEGIN{ use_ok( 'Carp' ); }
|
||||
require_ok( 'Carp' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'Config' ); }
|
||||
require_ok( 'Config' );
|
||||
|
||||
@@ -38,6 +42,10 @@ BEGIN{ use_ok( 'File::Path' ); }
|
||||
require_ok( 'File::Path' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Spec' ); }
|
||||
require_ok( 'File::Spec' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'File::Temp' ); }
|
||||
require_ok( 'File::Temp' );
|
||||
|
||||
@@ -50,6 +58,10 @@ BEGIN{ use_ok( 'Pod::Usage' ); }
|
||||
require_ok( 'Pod::Usage' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'POSIX' ); }
|
||||
require_ok( 'POSIX' );
|
||||
|
||||
|
||||
BEGIN{ use_ok( 'strict' ); }
|
||||
require_ok( 'strict' );
|
||||
|
||||
|
||||
Reference in New Issue
Block a user