t/manifest/02-regenerate_file.t

   1 #! perl
   2 # Copyright (C) 2007-2010, Parrot Foundation.
   3 # $Id$
   4 # 02-regenerate_file.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 12;
  10 use Carp;
  11 use Cwd;
  12 use File::Copy;
  13 use File::Temp qw( tempdir );
  14 use Tie::File;
  15 use lib (qw| lib |);
  16
  17 SKIP: {
  18     skip
  19         q{Relevant only when working in checkout from repository},
  20         11
  21         unless (-e 'DEVELOPING');
  22
  23     use_ok('Parrot::Manifest');
  24
  25     my $script = $0;
  26     my $mani = Parrot::Manifest->new( { script => $script, } );
  27     isa_ok( $mani, 'Parrot::Manifest' );
  28
  29     my $cwd = cwd();
  30     my $f   = q{MANIFEST};
  31
  32     my $manifest_lines_ref = $mani->prepare_manifest();
  33     ok( $manifest_lines_ref, "prepare_manifest_skip() returned" );
  34
  35     # 1:  Copy the real MANIFEST unaltered to the tempdir.
  36     # Assuming the real MANIFEST was correct going in to this test, the
  37     # absence of any change in it will mean that there will be no need to
  38     # regenerate it.
  39     {
  40         my $tdir = tempdir( CLEANUP => 1 );
  41         chdir $tdir
  42             or croak "Unable to change to temporary directory for testing";
  43         copy( qq{$cwd/$f}, qq{$tdir/$f} )
  44             or croak "Unable to copy $f to tempdir";
  45         ok( -f $f, "$f found in tempdir" );
  46         my $need_for_file = $mani->determine_need_for_manifest($manifest_lines_ref);
  47         ok( !$need_for_file, "No need to regenerate $f" );
  48         chdir $cwd
  49             or croak "Unable to change back from temporary directory after testing";
  50         unlink qq{$tdir/$f} or croak "Unable to delete file from tempdir";
  51     }
  52
  53     # 2:  Copy the real MANIFEST to the tempdir but mangle it there.
  54     # The alteration in the copied MANIFEST will be sufficient to require
  55     # regeneration of MANIFEST.  And for good measure, toss in a line of all
  56     # whitespace to demonstrate that it is correctly skipped.
  57     {
  58         my $tdir = tempdir( CLEANUP => 1 );
  59         chdir $tdir
  60             or croak "Unable to change to temporary directory for testing";
  61         copy( qq{$cwd/$f}, qq{$tdir/$f} )
  62             or croak "Unable to copy $f to tempdir";
  63         ok( -f $f, "$f found in tempdir" );
  64         my @lines;
  65         tie @lines, 'Tie::File', qq{$tdir/$f}
  66             or croak "Unable to tie to $f in tempdir";
  67
  68         for ( 1 .. 10 ) {
  69             if ( defined( $lines[-1] ) ) {
  70                 pop @lines;
  71             }
  72         }
  73         push @lines, q{   };
  74         push @lines, q{};
  75         untie @lines or croak "Unable to untie from $f";
  76         my $need_for_file = $mani->determine_need_for_manifest($manifest_lines_ref);
  77         ok( $need_for_file,                             "Need to regenerate $f" );
  78         ok( $mani->print_manifest($manifest_lines_ref), "print_manifest() returned true" );
  79         ok( -f $f,                                      "$f has been created in tempdir" );
  80         unlink qq{$tdir/$f} or croak "Unable to delete file from tempdir";
  81         chdir $cwd
  82             or croak "Unable to change back from temporary directory after testing";
  83     }
  84
  85     # 3:  Go to a tempdir which lacks a MANIFEST.  Confirm that you need to
  86     # regenerate MANIFEST (but do not bother to actually do it there).
  87     {
  88         my $tdir = tempdir( CLEANUP => 1 );
  89         chdir $tdir
  90             or croak "Unable to change to temporary directory for testing";
  91         ok( !-f $f, "$f found in tempdir" );
  92         my $need_for_file = $mani->determine_need_for_manifest($manifest_lines_ref);
  93         ok( $need_for_file, "We would need to regenerate $f" );
  94         chdir $cwd
  95             or croak "Unable to change back from temporary directory after testing";
  96     }
  97 }
  98
  99 pass("Completed all tests in $0");
 100
 101 ################### DOCUMENTATION ###################
 102
 103 =head1 NAME
 104
 105 02-regenerate_file.t - test C<Parrot::Manifest> MANIFEST-related methods
 106
 107 =head1 SYNOPSIS
 108
 109     % prove t/manifest/02-regenerate_file.t
 110
 111 =head1 DESCRIPTION
 112
 113 The files in this directory test the publicly callable methods of
 114 F<lib/Parrot/Manifest.pm> and packages which inherit from that package.
 115
 116 F<02-regenerate_file.t> tests whether Parrot::Manifest correctly determines
 117 whether MANIFEST needs to be regenerated or not.
 118
 119 =head1 AUTHOR
 120
 121 James E Keenan (jkeenan@cpan.org)
 122
 123 =head1 SEE ALSO
 124
 125 Parrot::Manifest, Parrot::Manifest::Files, Parrot::Manifest::Skip,
 126 F<tools/dev/mk_manifest_and_skip.pl>.
 127
 128 =cut
 129
 130 # Local Variables:
 131 #   mode: cperl
 132 #   cperl-indent-level: 4
 133 #   fill-column: 100
 134 # End:
 135 # vim: expandtab shiftwidth=4:
 136