1
0
mirror of synced 2026-05-05 15:53:45 +00:00

2006-06-13 13:26:00 by steve

Do the same for tests, no more literal tabs.
This commit is contained in:
steve
2006-06-13 13:26:01 +00:00
parent 2b3b14a943
commit 2c23effd90
10 changed files with 110 additions and 111 deletions

View File

@@ -5,7 +5,7 @@
#
# Steve
# --
# $Id: plugin-checks.t,v 1.3 2006-06-09 15:12:33 steve Exp $
# $Id: plugin-checks.t,v 1.4 2006-06-13 13:26:00 steve Exp $
#
@@ -31,16 +31,16 @@ sub testPlugins
#
foreach my $file ( glob( "hooks/$dist/*" ) )
{
ok( -e $file, "$file" );
ok( -e $file, "$file" );
if ( -f $file )
{
#
# Make sure the file is OK
#
my $result = testFile( $file );
is( $result, 0, " File contains no mention of the config hash" );
}
if ( -f $file )
{
#
# Make sure the file is OK
#
my $result = testFile( $file );
is( $result, 0, " File contains no mention of the config hash" );
}
}
}
@@ -58,11 +58,11 @@ sub testFile
foreach my $line ( <FILY> )
{
if ( $line =~ /\$CONFIG{[ \t'"]+(.*)[ \t'"]+}/ )
{
close( FILY );
return $line;
}
if ( $line =~ /\$CONFIG{[ \t'"]+(.*)[ \t'"]+}/ )
{
close( FILY );
return $line;
}
}
close( FILY );