Author: bernhard
Date: Mon Apr 2 12:31:10 2007
New Revision: 17947
Modified:
trunk/t/distro/file_metadata.t
Log:
Improve cut&paste'ability of output from
t/distro/file_metadata.t
Modified: trunk/t/distro/file_metadata.t
==============================================================================
--- trunk/t/distro/file_metadata.t (original)
+++ trunk/t/distro/file_metadata.t Mon Apr 2 12:31:10 2007
@@ -1,5 +1,5 @@
#!perl
-# Copyright (C) 2006, The Perl Foundation.
+# Copyright (C) 2006-2007, The Perl Foundation.
# $Id$
use strict;
@@ -15,7 +15,7 @@
=head1 NAME
-t/distro/file_metadata.t - verify file metadata matches expectations
+t/distro/file_metadata.t - verify that file metadata matches expectations
=head1 SYNOPSIS
@@ -57,9 +57,9 @@
my @failed = verify_attributes( $test, $expected, 0, $mime_types,
[EMAIL PROTECTED] );
if (@failed) {
- my $failure = join " ($expected)\n", @failed;
- $failure = "\n" . $failure . " ($expected)\n";
- is( $failure, "", $test );
+ my $failure
+ = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ is( $failure, '', $test );
}
else {
pass($test);
@@ -78,7 +78,6 @@
if ( !defined( $mime_types->{$file} )
|| $mime_types->{$file} =~ qr{^text/plain} )
{
-
push @plain_files, $file;
}
}
@@ -90,9 +89,9 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure = join " ($expected)\n", @failed;
- $failure = "\n" . $failure . " ($expected)\n";
- is( $failure, "", $test );
+ my $failure
+ = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ is( $failure, '', $test );
}
else {
pass($test);
@@ -138,9 +137,9 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure = join " ($expected)\n", @failed;
- $failure = "\n" . $failure . " ($expected)\n";
- is( $failure, "", $test_name );
+ my $failure
+ = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ is( $failure, '', $test_name );
}
else {
pass($test_name);
@@ -169,9 +168,9 @@
my @failed = verify_attributes( $test, $expected, 1, $keywords );
if (@failed) {
- my $failure = join " ($expected)\n", @failed;
- $failure = "\n" . $failure . " ($expected)\n";
- is( $failure, "", $test_name );
+ my $failure
+ = join q{}, "Set $test with:\n", map { " $cmd ps $test
'$expected' $_;\n" } @failed;
+ is( $failure, '', $test_name );
}
else {
pass($test_name);
@@ -223,8 +222,6 @@
else { plan tests => 4 }
}
-exit;
-
#
# Given a list, a count, and a sub, process that list count elements
# at a time. (do this to speed up execution for the svn/svk commands)
