[svn:parrot] r44341 - trunk/t/manifest
mikehh at svn.parrot.org
mikehh at svn.parrot.org
Tue Feb 23 01:01:38 UTC 2010
Author: mikehh
Date: Tue Feb 23 01:01:38 2010
New Revision: 44341
URL: https://trac.parrot.org/parrot/changeset/44341
Log:
fix codetest failures - trailing whitespace
Modified:
trunk/t/manifest/01-basic.t
trunk/t/manifest/02-regenerate_file.t
trunk/t/manifest/03-regenerate_skip.t
trunk/t/manifest/04-alt_file.t
trunk/t/manifest/05-alt_skip.t
Modified: trunk/t/manifest/01-basic.t
==============================================================================
--- trunk/t/manifest/01-basic.t Tue Feb 23 00:59:14 2010 (r44340)
+++ trunk/t/manifest/01-basic.t Tue Feb 23 01:01:38 2010 (r44341)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
# 01-basic.t
@@ -19,22 +19,22 @@
unless (-e 'DEVELOPING');
use_ok('Parrot::Manifest');
-
+
my $script = $0;
my $file = q{MANIFEST};
my $skip = q{MANIFEST.SKIP};
-
+
my $mani = Parrot::Manifest->new( { script => $script, } );
isa_ok( $mani, 'Parrot::Manifest' );
-
+
ok( scalar( @{ $mani->{dirs} } ),
"Parrot::Manifest constructor used 'status' command to find at least 1 directory." );
ok( scalar( @{ $mani->{versioned_files} } ),
"Parrot::Manifest constructor used 'status' command to find at least 1 versioned file." );
-
+
my $manifest_lines_ref = $mani->prepare_manifest();
is( ref($manifest_lines_ref), q{HASH}, "prepare_manifest() returned hash ref" );
-
+
my $cwd = cwd();
{
my $tdir = tempdir( CLEANUP => 1 );
@@ -46,10 +46,10 @@
chdir $cwd
or croak "Unable to change back from temporary directory after testing";
}
-
+
my $print_str = $mani->prepare_manifest_skip();
ok( $print_str, "prepare_manifest_skip() returned" );
-
+
{
my $tdir = tempdir( CLEANUP => 1 );
chdir $tdir
Modified: trunk/t/manifest/02-regenerate_file.t
==============================================================================
--- trunk/t/manifest/02-regenerate_file.t Tue Feb 23 00:59:14 2010 (r44340)
+++ trunk/t/manifest/02-regenerate_file.t Tue Feb 23 01:01:38 2010 (r44341)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
# 02-regenerate_file.t
@@ -21,17 +21,17 @@
unless (-e 'DEVELOPING');
use_ok('Parrot::Manifest');
-
+
my $script = $0;
my $mani = Parrot::Manifest->new( { script => $script, } );
isa_ok( $mani, 'Parrot::Manifest' );
-
+
my $cwd = cwd();
my $f = q{MANIFEST};
-
+
my $manifest_lines_ref = $mani->prepare_manifest();
ok( $manifest_lines_ref, "prepare_manifest_skip() returned" );
-
+
# 1: Copy the real MANIFEST unaltered to the tempdir.
# Assuming the real MANIFEST was correct going in to this test, the
# absence of any change in it will mean that there will be no need to
@@ -49,7 +49,7 @@
or croak "Unable to change back from temporary directory after testing";
unlink qq{$tdir/$f} or croak "Unable to delete file from tempdir";
}
-
+
# 2: Copy the real MANIFEST to the tempdir but mangle it there.
# The alteration in the copied MANIFEST will be sufficient to require
# regeneration of MANIFEST. And for good measure, toss in a line of all
@@ -64,7 +64,7 @@
my @lines;
tie @lines, 'Tie::File', qq{$tdir/$f}
or croak "Unable to tie to $f in tempdir";
-
+
for ( 1 .. 10 ) {
if ( defined( $lines[-1] ) ) {
pop @lines;
@@ -81,7 +81,7 @@
chdir $cwd
or croak "Unable to change back from temporary directory after testing";
}
-
+
# 3: Go to a tempdir which lacks a MANIFEST. Confirm that you need to
# regenerate MANIFEST (but do not bother to actually do it there).
{
Modified: trunk/t/manifest/03-regenerate_skip.t
==============================================================================
--- trunk/t/manifest/03-regenerate_skip.t Tue Feb 23 00:59:14 2010 (r44340)
+++ trunk/t/manifest/03-regenerate_skip.t Tue Feb 23 01:01:38 2010 (r44341)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
# 03-regenerate_skip.t
@@ -21,16 +21,16 @@
unless (-e 'DEVELOPING');
use_ok('Parrot::Manifest');
-
+
my $script = $0;
my $mani = Parrot::Manifest->new( { script => $script, } );
isa_ok( $mani, 'Parrot::Manifest' );
-
+
my $cwd = cwd();
my $sk = q{MANIFEST.SKIP};
my $print_str = $mani->prepare_manifest_skip();
ok( $print_str, "prepare_manifest_skip() returned" );
-
+
# 1: Copy the real MANIFEST.SKIP unaltered to the tempdir.
# Assuming the real MANIFEST.SKIP was correct going in to this test, the
# absence of any change in it will mean that there will be no need to
@@ -48,7 +48,7 @@
chdir $cwd
or croak "Unable to change back from temporary directory after testing";
}
-
+
# 2: Copy the real MANIFEST.SKIP to the tempdir but mangle it there.
# The alteration in the copied MANIFEST.SKIP will be sufficient to require
# regeneration of MANIFEST.SKIP.
@@ -62,7 +62,7 @@
my @lines;
tie @lines, 'Tie::File', qq{$tdir/$sk}
or croak "Unable to tie to $sk in tempdir";
-
+
for ( 1 .. 10 ) {
if ( defined( $lines[-1] ) ) {
pop @lines;
Modified: trunk/t/manifest/04-alt_file.t
==============================================================================
--- trunk/t/manifest/04-alt_file.t Tue Feb 23 00:59:14 2010 (r44340)
+++ trunk/t/manifest/04-alt_file.t Tue Feb 23 01:01:38 2010 (r44341)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
# 04-alt_file.t
@@ -17,10 +17,10 @@
unless (-e 'DEVELOPING');
use_ok('Parrot::Manifest');
-
+
my $script = $0;
my $g = q{something_other_than_MANIFEST};
-
+
my $mani = Parrot::Manifest->new(
{
script => $script,
@@ -28,10 +28,10 @@
}
);
isa_ok( $mani, 'Parrot::Manifest' );
-
+
my $manifest_lines_ref = $mani->prepare_manifest();
ok( $manifest_lines_ref, "prepare_manifest_skip() returned" );
-
+
ok( !-f $g, "No $g found" );
my $need_for_file = $mani->determine_need_for_manifest($manifest_lines_ref);
ok( $need_for_file, "Need to regenerate $g" );
Modified: trunk/t/manifest/05-alt_skip.t
==============================================================================
--- trunk/t/manifest/05-alt_skip.t Tue Feb 23 00:59:14 2010 (r44340)
+++ trunk/t/manifest/05-alt_skip.t Tue Feb 23 01:01:38 2010 (r44341)
@@ -1,5 +1,5 @@
#! perl
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
# 05-alt_skip.t
@@ -17,10 +17,10 @@
unless (-e 'DEVELOPING');
use_ok('Parrot::Manifest');
-
+
my $script = $0;
my $g = q{something_other_than_MANIFEST.SKIP};
-
+
my $mani = Parrot::Manifest->new(
{
script => $script,
@@ -28,10 +28,10 @@
}
);
isa_ok( $mani, 'Parrot::Manifest' );
-
+
my $print_str = $mani->prepare_manifest_skip();
ok( $print_str, "prepare_manifest_skip() returned" );
-
+
ok( !-f $g, "No $g found" );
my $need_for_skip = $mani->determine_need_for_manifest_skip($print_str);
ok( $need_for_skip, "Need to regenerate $g" );
More information about the parrot-commits
mailing list