Author: paultcochrane
Date: Wed Apr 11 14:07:41 2007
New Revision: 18152
Modified:
trunk/t/distro/file_metadata.t
Log:
[t] Tidied code with perltidy (part 2)
Modified: trunk/t/distro/file_metadata.t
==============================================================================
--- trunk/t/distro/file_metadata.t (original)
+++ trunk/t/distro/file_metadata.t Wed Apr 11 14:07:41 2007
@@ -57,8 +57,8 @@
my @failed = verify_attributes( $test, $expected, 0, $mime_types,
[EMAIL PROTECTED] );
if (@failed) {
- my $failure
- = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ my $failure = join q{}, "Set $test with:\n",
+ map { " $cmd ps $test '$expected' $_;\n" } @failed;
is( $failure, '', $test );
}
else {
@@ -89,8 +89,8 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure
- = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ my $failure = join q{}, "Set $test with:\n",
+ map { " $cmd ps $test '$expected' $_;\n" } @failed;
is( $failure, '', $test );
}
else {
@@ -137,8 +137,8 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure
- = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ my $failure = join q{}, "Set $test with:\n",
+ map { " $cmd ps $test '$expected' $_;\n" } @failed;
is( $failure, '', $test_name );
}
else {
@@ -168,8 +168,8 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure
- = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ my $failure = join q{}, "Set $test with:\n",
+ map { " $cmd ps $test '$expected' $_;\n" } @failed;
is( $failure, '', $test_name );
}
else {
