Author: jkeenan
Date: Wed Jul 18 19:03:56 2007
New Revision: 19986
Added:
branches/newmanifest/t/manifest/03-regenerate_file.t (contents, props
changed)
Log:
Add test to see whether Parrot::Manifest can determine when to regenerate
MANIFEST and when not.
Added: branches/newmanifest/t/manifest/03-regenerate_file.t
==============================================================================
--- (empty file)
+++ branches/newmanifest/t/manifest/03-regenerate_file.t Wed Jul 18
19:03:56 2007
@@ -0,0 +1,116 @@
+#! perl
+# Copyright (C) 2007, The Perl Foundation.
+# $Id$
+# 03-regenerate_file.t
+
+use strict;
+use warnings;
+
+use Test::More tests => 9;
+use Carp;
+use Cwd;
+use File::Copy;
+use File::Temp qw( tempdir );
+use Tie::File;
+use lib ( qw| lib | );
+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
+# regenerate it.
+{
+ my $tdir = tempdir( CLEANUP => 1 );
+ chdir $tdir or
+ croak "Unable to change to temporary directory for testing";
+ copy(qq{$cwd/$f}, qq{$tdir/$f})
+ or croak "Unable to copy $f to tempdir";
+ ok(-f $f, "$f found in tempdir");
+ my $need_for_file =
+ $mani->determine_need_for_manifest($manifest_lines_ref);
+ ok(! $need_for_file, "No need to regenerate $f");
+ chdir $cwd or
+ croak "Unable to change back from temporary directory after testing";
+}
+
+# 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.
+{
+ my $tdir = tempdir( CLEANUP => 1 );
+ chdir $tdir or
+ croak "Unable to change to temporary directory for testing";
+ copy(qq{$cwd/$f}, qq{$tdir/$f})
+ or croak "Unable to copy $f to tempdir";
+ ok(-f $f, "$f found in tempdir");
+ 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;
+ }
+ }
+ untie @lines or croak "Unable to untie from $f";
+ my $need_for_file =
+ $mani->determine_need_for_manifest_file($manifest_lines_ref);
+ ok($need_for_file, "Need to regenerate $f");
+ ok( $mani->print_manifest_file($manifest_lines_ref),
+ "print_manifest_file() returned true");
+ ok( -f $f,
+ "$f has been created in tempdir");
+ chdir $cwd or
+ croak "Unable to change back from temporary directory after testing";
+}
+
+pass("Completed all tests in $0");
+
+
+################### DOCUMENTATION ###################
+
+=head1 NAME
+
+03-regenerate_file.t - test C<Parrot::Manifest> MANIFEST-related methods
+
+=head1 SYNOPSIS
+
+ % prove t/manifest/03-regenerate_file.t
+
+=head1 DESCRIPTION
+
+The files in this directory test the publicly callable methods of
+F<lib/Parrot/Manifest.pm> and packages which inherit from that package.
+
+F<02-regenerate_file.t> tests whether Parrot::Manifest correctly determines
+whether MANIFESTneeds to be regenerated or not.
+
+=head1 AUTHOR
+
+James E Keenan ([EMAIL PROTECTED])
+
+=head1 SEE ALSO
+
+Parrot::Manifest, Parrot::Manifest::Files, Parrot::Manifest::Skip,
+F<tools/dev/mk_manifest_and_skip.pl>.
+
+=cut
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
+
