t/manifest/05-alt_skip.t

   1 #! perl
   2 # Copyright (C) 2007-2010, Parrot Foundation.
   3 # $Id$
   4 # 05-alt_skip.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests =>  6;
  10 use Carp;
  11 use lib (qw| lib |);
  12
  13 SKIP: {
  14     skip
  15         q{Relevant only when working in checkout from repository},
  16          5
  17         unless (-e 'DEVELOPING');
  18
  19     use_ok('Parrot::Manifest');
  20
  21     my $script = $0;
  22     my $g      = q{something_other_than_MANIFEST.SKIP};
  23
  24     my $mani = Parrot::Manifest->new(
  25         {
  26             script => $script,
  27             skip   => $g,
  28         }
  29     );
  30     isa_ok( $mani, 'Parrot::Manifest' );
  31
  32     my $print_str = $mani->prepare_manifest_skip();
  33     ok( $print_str, "prepare_manifest_skip() returned" );
  34
  35     ok( !-f $g, "No $g found" );
  36     my $need_for_skip = $mani->determine_need_for_manifest_skip($print_str);
  37     ok( $need_for_skip, "Need to regenerate $g" );
  38 }
  39
  40 pass("Completed all tests in $0");
  41
  42 ################### DOCUMENTATION ###################
  43
  44 =head1 NAME
  45
  46 05-alt_skip.t - What happens when MANIFEST.SKIP has a different name
  47
  48 =head1 SYNOPSIS
  49
  50     % prove t/manifest/05-alt_skip.t
  51
  52 =head1 DESCRIPTION
  53
  54 The files in this directory test the publicly callable methods of
  55 F<lib/Parrot/Manifest.pm> and packages which inherit from that package.
  56
  57 F<05-alt_skip.t> tests whether Parrot::Manifest correctly determines
  58 whether we could, in principal, supply a file other than MANIFEST.SKIP to
  59 C<Parrot::Manifest::new()>.
  60
  61 =head1 AUTHOR
  62
  63 James E Keenan (jkeenan@cpan.org)
  64
  65 =head1 SEE ALSO
  66
  67 Parrot::Manifest, Parrot::Manifest::Files, Parrot::Manifest::Skip,
  68 F<tools/dev/mk_manifest_and_skip.pl>.
  69
  70 =cut
  71
  72 # Local Variables:
  73 #   mode: cperl
  74 #   cperl-indent-level: 4
  75 #   fill-column: 100
  76 # End:
  77 # vim: expandtab shiftwidth=4:
  78