t/configure/018-revision_to_cache.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 018-revision_to_cache.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 if (-e 'DEVELOPING' and ! -e 'Makefile') {
  11     plan tests =>  8;
  12 }
  13 else {
  14     plan skip_all =>
  15         q{Relevant only when working in checkout from repository and prior to configuration};
  16 }
  17 use Carp;
  18 use Cwd;
  19 use File::Copy;
  20 use File::Path ();
  21 use File::Temp qw| tempdir |;
  22 use lib qw( lib );
  23
  24 my $cwd = cwd();
  25 {
  26     my $tdir = tempdir( CLEANUP => 1 );
  27     ok( chdir $tdir, "Changed to temporary directory for testing" );
  28     my $libdir = qq{$tdir/lib};
  29     ok( (File::Path::mkpath( [ $libdir ], 0, 0777 )), "Able to make libdir");
  30     local @INC;
  31     unshift @INC, $libdir;
  32     ok( (File::Path::mkpath( [ qq{$libdir/Parrot} ], 0, 0777 )), "Able to make Parrot dir");
  33     ok( (copy qq{$cwd/lib/Parrot/Revision.pm},
  34             qq{$libdir/Parrot}), "Able to copy Parrot::Revision");
  35     require Parrot::Revision;
  36     no warnings 'once';
  37     like($Parrot::Revision::current, qr/^\d+$/,
  38         "Got numeric value for revision number");
  39     use warnings;
  40     my $cache = q{.parrot_current_rev};
  41     ok( ( -e $cache ), "Cache for revision number was created");
  42     unlink qq{$libdir/Parrot/Revision.pm}
  43         or croak "Unable to delete file after testing";
  44     ok( chdir $cwd, "Able to change back to starting directory");
  45 }
  46
  47 pass("Completed all tests in $0");
  48
  49 ################### DOCUMENTATION ###################
  50
  51 =head1 NAME
  52
  53 018-revision_to_cache.t - test Parrot::Revision
  54
  55 =head1 SYNOPSIS
  56
  57     % prove t/configure/018-revision_to_cache.t
  58
  59 =head1 DESCRIPTION
  60
  61 The files in this directory test functionality used by F<Configure.pl>.
  62
  63 The tests in this file test Parrot::Revision (F<lib/Parrot/Revision.pm>).
  64
  65 =head1 AUTHOR
  66
  67 James E Keenan
  68
  69 =head1 SEE ALSO
  70
  71 Parrot::Configure, F<Configure.pl>.
  72
  73 =cut
  74
  75 # Local Variables:
  76 #   mode: cperl
  77 #   cperl-indent-level: 4
  78 #   fill-column: 100
  79 # End:
  80 # vim: expandtab shiftwidth=4: