fix codetest failure - ASSERT_ARGS does not have a ; after and
[parrot.git] / t / manifest / 05-alt_skip.t
blob5a9ed17fc67580357407ac49e837f1863506c759
1 #! perl
2 # Copyright (C) 2007-2010, Parrot Foundation.
3 # $Id$
4 # 05-alt_skip.t
6 use strict;
7 use warnings;
9 use Test::More tests =>  6;
10 use Carp;
11 use lib (qw| lib |);
13 SKIP: {
14     skip
15         q{Relevant only when working in checkout from repository},
16          5
17         unless (-e 'DEVELOPING');
19     use_ok('Parrot::Manifest');
21     my $script = $0;
22     my $g      = q{something_other_than_MANIFEST.SKIP};
24     my $mani = Parrot::Manifest->new(
25         {
26             script => $script,
27             skip   => $g,
28         }
29     );
30     isa_ok( $mani, 'Parrot::Manifest' );
32     my $print_str = $mani->prepare_manifest_skip();
33     ok( $print_str, "prepare_manifest_skip() returned" );
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" );
40 pass("Completed all tests in $0");
42 ################### DOCUMENTATION ###################
44 =head1 NAME
46 05-alt_skip.t - What happens when MANIFEST.SKIP has a different name
48 =head1 SYNOPSIS
50     % prove t/manifest/05-alt_skip.t
52 =head1 DESCRIPTION
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.
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()>.
61 =head1 AUTHOR
63 James E Keenan (jkeenan@cpan.org)
65 =head1 SEE ALSO
67 Parrot::Manifest, Parrot::Manifest::Files, Parrot::Manifest::Skip,
68 F<tools/dev/mk_manifest_and_skip.pl>.
70 =cut
72 # Local Variables:
73 #   mode: cperl
74 #   cperl-indent-level: 4
75 #   fill-column: 100
76 # End:
77 # vim: expandtab shiftwidth=4: