Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

[GH #877] Remove Parrot::Revision #945

Merged
merged 5 commits into from

3 participants

@paultcochrane

This set of changes removes Parrot::Revision as mentioned in GH #877. Comments welcome.

paultcochrane added some commits
@paultcochrane paultcochrane [GH #877] Removed @revision@ text in myconfig output
The @revision@ information was only useful back in the Subversion days and
consequently (since we are now using Git) isn't necessary anymore.
fbcfca5
@paultcochrane paultcochrane [GH #877] Removed auto::revision from configure steps
We wish to remove the Parrot::Revision functionality, so this dependence
within the configure step needs to be removed.
ac200f4
@paultcochrane paultcochrane [GH #877] Removed Parrot::Revision dependence in Configure.pl
Since we wish to remove Parrot::Revision, we therefore no longer need to
update the Parrot revision number when configuring.
f1dcee4
@paultcochrane paultcochrane [GH #877] Removed config/auto/revision.pm and its tests
In issue GH#877 the old Parrot::Revision code should be removed.  This
removes the configure step and its associated tests.

The references in t/configure/testlib/*defectivefoobar have also been
removed.
7bb92e8
@paultcochrane paultcochrane [GH #877] Removed Parrot::Revision
Now that the dependencies on Parrot::Revision have been removed, it's now
possible to remove Parrot::Revision itself.  The tests pass, so all is good.
94df5d8
@leto
Owner

Looks great, merging.

@leto leto merged commit 58e5de9 into parrot:master
@jkeenan
Owner
@paultcochrane

Hi Jim,
thanks! It's nice to be back and able to help out again :-)
Paul

@paultcochrane paultcochrane deleted the paultcochrane:ptc/remove_parrot_revision branch
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Mar 22, 2013
  1. @paultcochrane

    [GH #877] Removed @revision@ text in myconfig output

    paultcochrane authored
    The @revision@ information was only useful back in the Subversion days and
    consequently (since we are now using Git) isn't necessary anymore.
  2. @paultcochrane

    [GH #877] Removed auto::revision from configure steps

    paultcochrane authored
    We wish to remove the Parrot::Revision functionality, so this dependence
    within the configure step needs to be removed.
  3. @paultcochrane

    [GH #877] Removed Parrot::Revision dependence in Configure.pl

    paultcochrane authored
    Since we wish to remove Parrot::Revision, we therefore no longer need to
    update the Parrot revision number when configuring.
  4. @paultcochrane

    [GH #877] Removed config/auto/revision.pm and its tests

    paultcochrane authored
    In issue GH#877 the old Parrot::Revision code should be removed.  This
    removes the configure step and its associated tests.
    
    The references in t/configure/testlib/*defectivefoobar have also been
    removed.
  5. @paultcochrane

    [GH #877] Removed Parrot::Revision

    paultcochrane authored
    Now that the dependencies on Parrot::Revision have been removed, it's now
    possible to remove Parrot::Revision itself.  The tests pass, so all is good.
This page is out of date. Refresh to see the latest.
View
5 Configure.pl
@@ -18,7 +18,6 @@
print_introduction
print_conclusion
);
-use Parrot::Revision;
$| = 1; # $OUTPUT_AUTOFLUSH = 1;
@@ -63,9 +62,6 @@
print_introduction($parrot_version)
unless $args->{silent};
-# Update revision number if needed
-Parrot::Revision::update();
-
my $conf = Parrot::Configure->new();
$conf->add_steps( @{ $steps_list_ref } );
@@ -669,7 +665,6 @@ =head2 Example
auto::snprintf
# auto::perldoc
auto::ctags
- auto::revision
auto::icu
auto::platform
gen::config_h
View
6 MANIFEST
@@ -186,7 +186,6 @@ config/auto/pmc.pm []
config/auto/pod2man.pm []
config/auto/readline.pm []
config/auto/readline/readline_c.in []
-config/auto/revision.pm []
config/auto/signal.pm []
config/auto/signal/test1_c.in []
config/auto/signal/test2_c.in []
@@ -1041,7 +1040,6 @@ lib/Parrot/Pmc2c/Parser.pm [devel]lib
lib/Parrot/Pmc2c/Pmc2cMain.pm [devel]lib
lib/Parrot/Pmc2c/UtilFunctions.pm [devel]lib
lib/Parrot/Pmc2c/VTable.pm [devel]lib
-lib/Parrot/Revision.pm [devel]lib
lib/Parrot/SHA1.pm [devel]lib
lib/Parrot/SearchOps.pm [devel]lib
lib/Parrot/Test.pm [devel]lib
@@ -1613,8 +1611,6 @@ t/configure/012-verbose.t [test]
t/configure/013-die.t [test]
t/configure/015-no_return.t [test]
t/configure/016-no_return_but_result.t [test]
-t/configure/017-revision_from_cache.t [test]
-t/configure/018-revision_to_cache.t [test]
t/configure/019-version.t [test]
t/configure/020-version.t [test]
t/configure/021-version.t [test]
@@ -1647,7 +1643,6 @@ t/configure/049-options_test_prepare.t [test]
t/configure/050-fatal.t [test]
t/configure/051-fatal_step.t [test]
t/configure/059-silent.t [test]
-t/configure/061-revision_from_cache.t [test]
t/configure/062-sha1.t [test]
t/configure/063-git_describe.t [test]
t/configure/testlib/Make_VERSION_File.pm [test]
@@ -2053,7 +2048,6 @@ t/steps/auto/pmc-01.t [test]
t/steps/auto/pod2man-01.t [test]
t/steps/auto/readline-01.t [test]
t/steps/auto/readline-02.t [test]
-t/steps/auto/revision-01.t [test]
t/steps/auto/signal-01.t [test]
t/steps/auto/sizes-01.t [test]
t/steps/auto/snprintf-01.t [test]
View
63 config/auto/revision.pm
@@ -1,63 +0,0 @@
-# Copyright (C) 2005-2007, Parrot Foundation.
-
-=head1 NAME
-
-config/auto/revision.pm - Parrot's configure revision
-
-=head1 DESCRIPTION
-
-Determines parrot's revision. In a release, this field is empty.
-
-=cut
-
-package auto::revision;
-
-use strict;
-use warnings;
-
-use base qw(Parrot::Configure::Step);
-
-use Parrot::Revision;
-use Parrot::BuildUtil;
-
-sub _init {
- my $self = shift;
- my %data;
- $data{description} = q{Determine Parrot's revision};
- $data{result} = q{};
- return \%data;
-}
-
-sub runstep {
- my ( $self, $conf ) = @_;
-
- my $revision = $Parrot::Revision::current;
-
- if ( defined($revision) and $revision !~ /^[a-z0-9]+$/i ) {
- die "Invalid Parrot revision (SHA1): $!";
- }
-
- $conf->data->set( revision => $revision );
-
- my ( $bc_major, $bc_minor ) = Parrot::BuildUtil::get_bc_version();
- $conf->data->set( 'PBC_MAJOR' => $bc_major,
- 'PBC_MINOR' => $bc_minor );
-
- if ( defined $revision ) {
- $self->set_result($revision);
- }
- else {
- $self->set_result("done");
- }
-
- return 1;
-}
-
-1;
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
View
2  config/gen/config_pm/myconfig.in
@@ -1,4 +1,4 @@
-Summary of my parrot @VERSION@ (r@revision@) configuration:
+Summary of my parrot @VERSION@ configuration:
configdate='@configdate@'
Platform:
osname=@osname@, archname=@archname@
View
1  lib/Parrot/Configure/Step/List.pm
@@ -58,7 +58,6 @@ my @steps = qw(
auto::coverage
auto::pod2man
auto::ctags
- auto::revision
auto::icu
auto::libffi
auto::ipv6
View
88 lib/Parrot/Revision.pm
@@ -1,88 +0,0 @@
-# Copyright (C) 2005-2011, Parrot Foundation.
-
-=head1 NAME
-
-Parrot::Revision - Revision number of Parrot
-
-B<Note:> This package is largely obsolete, as the Git version control system
-does not use a continually incrementing integer to designate a particular
-revision, as our previous CVS and Subversion VCSes did. We retain it for
-backwards compatibility for certain high-level languages built on top of
-Parrot.
-
-=head1 SYNOPSIS
-
- use Parrot::Revision;
-
- print $Parrot::Revision::current;
-
-=head1 DESCRIPTION
-
-Get parrot's current and configure time revision.
-
-We currently always return "1" to tell old HLL's that this version of Parrot is too new for them.
-There is currently no way to say "we are too new for you", so we have to lie again and say we are
-too old.
-
-=cut
-
-package Parrot::Revision;
-
-use strict;
-use warnings;
-use lib qw( lib );
-use Parrot::Configure::Utils qw( :cache );
-
-our $cache = q{.parrot_current_rev};
-
-our $current = _get_revision();
-
-sub update {
- my $prev = _get_revision();
- my $revision = 1;
- $current = _handle_update( {
- prev => $prev,
- revision => $revision,
- cache => $cache,
- current => $current,
- } );
-}
-
-sub _handle_update {
- my $args = shift;
- if (! defined $args->{revision}) {
- $args->{revision} = 'unknown';
- print_to_cache($args->{cache}, $args->{revision});
- return $args->{revision};
- }
- else {
- if (defined ($args->{prev}) && ($args->{revision} ne $args->{prev})) {
- print_to_cache($args->{cache}, $args->{revision});
- return $args->{revision};
- }
- else {
- return $args->{current};
- }
- }
-}
-
-sub _get_revision {
- my $revision;
- if (-f $cache) {
- $revision = read_from_cache($cache);
- }
- else {
- $revision = 1;
- print_to_cache($cache, $revision);
- }
- return $revision;
-}
-
-1;
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
View
106 t/configure/017-revision_from_cache.t
@@ -1,106 +0,0 @@
-#! perl
-# Copyright (C) 2007, Parrot Foundation.
-# 017-revision_from_cache.t
-
-use strict;
-use warnings;
-
-use Test::More;
-if (-e 'DEVELOPING' and ! -e 'Makefile') {
- plan tests => 12;
-}
-else {
- plan skip_all =>
- q{Relevant only when working in checkout from repository and prior to configuration};
-}
-use Carp;
-use Cwd;
-use File::Copy;
-use File::Path ();
-use File::Temp qw| tempdir |;
-use lib qw( lib );
-use Parrot::Configure::Utils qw( print_to_cache );
-
-my $cwd = cwd();
-{
- my $rev = 16000;
- my ($cache, $libdir) = setup_cache($rev, $cwd);
- require Parrot::Revision;
- no warnings 'once';
- is($Parrot::Revision::current, $rev,
- "Got expected revision number from cache");
- use warnings;
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-pass("Completed all tests in $0");
-
-##### SUBROUTINES #####
-
-sub setup_cache {
- my ($rev, $cwd) = @_;
- my $tdir = tempdir( CLEANUP => 1 );
- ok( chdir $tdir, "Changed to temporary directory for testing" );
- my $libdir = qq{$tdir/lib};
- ok( (File::Path::mkpath( [ $libdir ], 0, 0777 )), "Able to make libdir");
- local @INC;
- unshift @INC, $libdir;
-
- ok( (File::Path::mkpath( [ qq{$libdir/Parrot} ], 0, 0777 )),
- "Able to make Parrot dir");
- ok( (copy qq{$cwd/lib/Parrot/Revision.pm},
- qq{$libdir/Parrot}),
- "Able to copy Parrot::Revision");
- ok( (File::Path::mkpath( [ qq{$libdir/File} ], 0, 0777 )),
- "Able to make File dir");
- ok( (copy qq{$cwd/lib/File/Which.pm},
- qq{$libdir/File/Which.pm}),
- "Able to copy File::Which");
- ok( (File::Path::mkpath( [ qq{$libdir/Parrot/Configure} ], 0, 0777 )),
- "Able to make Parrot dir");
- ok( (copy qq{$cwd/lib/Parrot/Configure/Utils.pm},
- qq{$libdir/Parrot/Configure/Utils.pm}),
- "Able to copy Parrot::Configure::Utils");
- ok( (copy qq{$cwd/lib/Parrot/BuildUtil.pm},
- qq{$libdir/Parrot/BuildUtil.pm}),
- "Able to copy Parrot::BuildUtil");
-
- my $cache = q{.parrot_current_rev};
- print_to_cache($cache, $rev);
- return ($cache, $libdir);
-}
-
-################### DOCUMENTATION ###################
-
-=head1 NAME
-
-017-revision_from_cache.t - test Parrot::Revision
-
-=head1 SYNOPSIS
-
- % prove t/configure/017-revision_from_cache.t
-
-=head1 DESCRIPTION
-
-The files in this directory test functionality used by F<Configure.pl>.
-
-The tests in this file test Parrot::Revision (F<lib/Parrot/Revision.pm>).
-
-=head1 AUTHOR
-
-James E Keenan
-
-=head1 SEE ALSO
-
-Parrot::Configure, F<Configure.pl>.
-
-=cut
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
View
99 t/configure/018-revision_to_cache.t
@@ -1,99 +0,0 @@
-#! perl
-# Copyright (C) 2007-2011, Parrot Foundation.
-# 018-revision_to_cache.t
-
-use strict;
-use warnings;
-
-use Test::More;
-if (-e 'DEVELOPING' and ! -e 'Makefile') {
- plan tests => 13;
-}
-else {
- plan skip_all =>
- q{Relevant only when working in checkout from repository and prior to configuration};
-}
-use Carp;
-use Cwd;
-use File::Copy;
-use File::Path ();
-use File::Temp qw| tempdir |;
-use lib qw( lib );
-
-my $cwd = cwd();
-{
- my $tdir = tempdir( CLEANUP => 1 );
- ok( chdir $tdir, "Changed to temporary directory for testing" );
- my $libdir = qq{$tdir/lib};
- ok( (File::Path::mkpath( [ $libdir ], 0, 0777 )), "Able to make libdir");
- local @INC;
- unshift @INC, $libdir;
-
- ok( (File::Path::mkpath( [ qq{$libdir/Parrot} ], 0, 0777 )),
- "Able to make Parrot dir");
- ok( (copy qq{$cwd/lib/Parrot/Revision.pm},
- qq{$libdir/Parrot}),
- "Able to copy Parrot::Revision");
- ok( (File::Path::mkpath( [ qq{$libdir/File} ], 0, 0777 )),
- "Able to make File dir");
- ok( (copy qq{$cwd/lib/File/Which.pm},
- qq{$libdir/File/Which.pm}),
- "Able to copy File::Which");
- ok( (File::Path::mkpath( [ qq{$libdir/Parrot/Configure} ], 0, 0777 )),
- "Able to make Parrot dir");
- ok( (copy qq{$cwd/lib/Parrot/Configure/Utils.pm},
- qq{$libdir/Parrot/Configure/Utils.pm}),
- "Able to copy Parrot::Configure::Utils");
- ok( (copy qq{$cwd/lib/Parrot/BuildUtil.pm},
- qq{$libdir/Parrot/BuildUtil.pm}),
- "Able to copy Parrot::BuildUtil");
-
- require Parrot::Revision;
- no warnings 'once';
- TODO: {
- local $TODO = "doesn't work at the moment - git migration";
- like($Parrot::Revision::current, qr/^[0-9a-f]{40}$/,
- "Got git hash for revision number");
- };
- use warnings;
- my $cache = q{.parrot_current_rev};
- ok( ( -e $cache ), "Cache for revision number was created");
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-pass("Completed all tests in $0");
-
-################### DOCUMENTATION ###################
-
-=head1 NAME
-
-018-revision_to_cache.t - test Parrot::Revision
-
-=head1 SYNOPSIS
-
- % prove t/configure/018-revision_to_cache.t
-
-=head1 DESCRIPTION
-
-The files in this directory test functionality used by F<Configure.pl>.
-
-The tests in this file test Parrot::Revision (F<lib/Parrot/Revision.pm>).
-
-=head1 AUTHOR
-
-James E Keenan
-
-=head1 SEE ALSO
-
-Parrot::Configure, F<Configure.pl>.
-
-=cut
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
View
149 t/configure/061-revision_from_cache.t
@@ -1,149 +0,0 @@
-#! perl
-# Copyright (C) 2007, Parrot Foundation.
-# 061-revision_from_cache.t
-
-use strict;
-use warnings;
-
-use Test::More;
-if (-e 'DEVELOPING' and ! -e 'Makefile') {
- plan tests => 25;
-}
-else {
- plan skip_all =>
- q{Relevant only when working in checkout from repository and prior to configuration};
-}
-use Carp;
-use Cwd;
-use File::Copy;
-use File::Path ();
-use File::Temp qw| tempdir |;
-use lib qw( lib );
-use Parrot::Revision ();
-use Parrot::Configure::Utils qw( :cache );
-
-my $cwd = cwd();
-{ # revision undef
- my $rev = 16000;
- my ($cache, $libdir) = setup_cache($rev, $cwd);
- my $prev = 34567;
- my $revision = undef;
- my $current = 12345;
- my $ret = Parrot::Revision::_handle_update( {
- prev => $prev,
- revision => $revision,
- cache => $cache,
- current => $current,
- } );
- is($ret, q{unknown}, "Got expected return value from _handle_update");
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-{ # prev undef
- my $rev = 16000;
- my ($cache, $libdir) = setup_cache($rev, $cwd);
- my $revision = 67890;
- my $current = 12345;
- my $ret = Parrot::Revision::_handle_update( {
- prev => undef,
- revision => $revision,
- cache => $cache,
- current => $current,
- } );
- is($ret, $current, "Got expected return value from _handle_update");
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-{ # prev and revision both defined and identical
- my $rev = 16000;
- my ($cache, $libdir) = setup_cache($rev, $cwd);
- my $prev = 67890;
- my $revision = 67890;
- my $current = 12345;
- my $ret = Parrot::Revision::_handle_update( {
- prev => $prev,
- revision => $revision,
- cache => $cache,
- current => $current,
- } );
- is($ret, $current, "Got expected return value from _handle_update");
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-{ # prev and revision both defined but not identical
- my $rev = 16000;
- my ($cache, $libdir) = setup_cache($rev, $cwd);
- my $prev = 67890;
- my $revision = 67891;
- my $current = 12345;
- my $ret = Parrot::Revision::_handle_update( {
- prev => $prev,
- revision => $revision,
- cache => $cache,
- current => $current,
- } );
- is($ret, $revision, "Got expected return value from _handle_update");
- unlink qq{$libdir/Parrot/Revision.pm}
- or croak "Unable to delete file after testing";
- ok( chdir $cwd, "Able to change back to starting directory");
-}
-
-pass("Completed all tests in $0");
-
-
-##### SUBROUTINES #####
-
-sub setup_cache {
- my ($rev, $cwd) = @_;
- my $tdir = tempdir( CLEANUP => 1 );
- ok( chdir $tdir, "Changed to temporary directory for testing" );
- my $libdir = qq{$tdir/lib};
- ok( (File::Path::mkpath( [ $libdir ], 0, 0777 )), "Able to make libdir");
- local @INC;
- unshift @INC, $libdir;
- ok( (File::Path::mkpath( [ qq{$libdir/Parrot} ], 0, 0777 )), "Able to make Parrot dir");
- ok( (copy qq{$cwd/lib/Parrot/Revision.pm},
- qq{$libdir/Parrot}), "Able to copy Parrot::Revision");
- my $cache = q{.parrot_current_rev};
- print_to_cache($cache, $rev);
- return ($cache, $libdir);
-}
-
-################### DOCUMENTATION ###################
-
-=head1 NAME
-
-061-revision_from_cache.t - test Parrot::Revision
-
-=head1 SYNOPSIS
-
- % prove t/configure/061-revision_from_cache.t
-
-=head1 DESCRIPTION
-
-The files in this directory test functionality used by F<Configure.pl>.
-
-The tests in this file test Parrot::Revision (F<lib/Parrot/Revision.pm>).
-
-=head1 AUTHOR
-
-James E Keenan
-
-=head1 SEE ALSO
-
-Parrot::Configure, F<Configure.pl>.
-
-=cut
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
View
1  t/configure/testlib/adefectivefoobar
@@ -54,7 +54,6 @@ auto::gettext
auto::snprintf
# auto::perldoc
auto::ctags
-auto::revision
auto::icu
auto::platform
gen::config_h
View
1  t/configure/testlib/bdefectivefoobar
@@ -63,7 +63,6 @@ auto::gettext
auto::snprintf
# auto::perldoc
auto::ctags
-auto::revision
auto::icu
auto::platform
gen::config_h
View
1  t/configure/testlib/cdefectivefoobar
@@ -64,7 +64,6 @@ auto::gettext
auto::snprintf
# auto::perldoc
auto::ctags
-auto::revision
auto::icu
auto::platform
gen::config_h
View
1  t/configure/testlib/ddefectivefoobar
@@ -56,7 +56,6 @@ auto::gettext
auto::snprintf
# auto::perldoc
auto::ctags
-auto::revision
auto::icu
auto::platform
gen::config_h
View
106 t/steps/auto/revision-01.t
@@ -1,106 +0,0 @@
-#! perl
-# Copyright (C) 2007, Parrot Foundation.
-# auto/revision-01.t
-
-use strict;
-use warnings;
-use Test::More tests => 12;
-use lib qw( lib t/configure/testlib );
-use_ok('config::auto::revision');
-use Parrot::Configure::Options qw( process_options );
-use Parrot::Configure::Step::Test;
-use Parrot::Configure::Test qw(
- test_step_constructor_and_description
-);
-
-########## regular ##########
-
-my ($args, $step_list_ref) = process_options(
- {
- argv => [ ],
- mode => q{configure},
- }
-);
-
-my $conf = Parrot::Configure::Step::Test->new;
-$conf->include_config_results( $args );
-
-my $pkg = q{auto::revision};
-
-$conf->add_steps($pkg);
-$conf->options->set( %{$args} );
-my $step = test_step_constructor_and_description($conf);
-
-my ($testrev, $ret);
-{
- $testrev = 99999;
- local $Parrot::Revision::current = $testrev;
- $ret = $step->runstep($conf);
- ok( $ret, "runstep() returned true value" );
- is($conf->data->get('revision'), $testrev,
- "'revision' element was set correctly");
- is($step->result(), $testrev, "Expected result $testrev was set");
-}
-
-#{
-# $testrev = 0;
-# local $Parrot::Revision::current = $testrev;
-# $ret = $step->runstep($conf);
-# ok( $ret, "runstep() returned true value" );
-# is($conf->data->get('revision'), $testrev,
-# "'revision' element was set correctly");
-# is($step->result(), q{done}, "Expected result was set");
-#}
-
-{
- $testrev = q{_foobar};
- local $Parrot::Revision::current = $testrev;
- eval { $ret = $step->runstep($conf); };
- like($@, qr/^Invalid Parrot revision \(SHA1\)/,
- "Got expected error message");
-}
-
-{
- $testrev = undef;
- local $Parrot::Revision::current = $testrev;
- $ret = $step->runstep($conf);
- ok( $ret, "runstep() returned true value" );
- ok(! defined($conf->data->get('revision')),
- "'revision' element is undefined as expected");
- is($step->result(), q{done}, "Expected result was set");
-}
-
-pass("Completed all tests in $0");
-
-################### DOCUMENTATION ###################
-
-=head1 NAME
-
-auto/revision-01.t - test auto::revision
-
-=head1 SYNOPSIS
-
- % prove t/steps/auto/revision-01.t
-
-=head1 DESCRIPTION
-
-The files in this directory test functionality used by F<Configure.pl>.
-
-The tests in this file test auto::revision.
-
-=head1 AUTHOR
-
-James E Keenan
-
-=head1 SEE ALSO
-
-config::auto::revision, F<Configure.pl>.
-
-=cut
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Something went wrong with that request. Please try again.