t/configure/044-slurp_file.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 044-slurp_file.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests =>  9;
  10 use Carp;
  11 use File::Temp qw| tempfile |;
  12 use lib qw( lib );
  13 use Parrot::BuildUtil;
  14
  15 {
  16     my ( $fh, $tempfile ) = tempfile( UNLINK => 1 );
  17     open $fh, ">", $tempfile
  18         or croak "Unable to open tempfile for writing";
  19     print $fh "Testing Parrot::BuildUtil::slurp_file()\n";
  20     close $fh or croak "Unable to close tempfile after writing";
  21
  22     ok( -f $tempfile, "tempfile created for testing" );
  23     my $str = Parrot::BuildUtil::slurp_file($tempfile);
  24     ok( $str, "slurpfile() returned true value" );
  25     like(
  26         $str,
  27         qr/Testing Parrot::BuildUtil::slurp_file/,
  28         "Main content of tempfile correctly slurped"
  29     );
  30 }
  31
  32 {
  33     my ( $fh, $tempfile ) = tempfile( UNLINK => 1 );
  34     open $fh, ">", $tempfile
  35         or croak "Unable to open tempfile for writing";
  36     print $fh "Testing Parrot::BuildUtil::slurp_file()\cM\cJ\n";
  37     close $fh or croak "Unable to close tempfile after writing";
  38
  39     ok( -f $tempfile, "tempfile created for testing" );
  40     my $str = Parrot::BuildUtil::slurp_file($tempfile);
  41     ok( $str, "slurpfile() returned true value" );
  42     like(
  43         $str,
  44         qr/Testing Parrot::BuildUtil::slurp_file/,
  45         "Main content of tempfile correctly slurped"
  46     );
  47     like( $str, qr/\n{2}/m, "DOS line endings correctly converted during slurp_file" );
  48 }
  49
  50 {
  51     my $phony = $$;
  52     my $str;
  53     eval { $str = Parrot::BuildUtil::slurp_file($phony); };
  54     like(
  55         $@,
  56         qr/open '$phony'/,
  57         "Got error message expected upon attempting to slurp non-existent file"
  58     );
  59 }
  60
  61 pass("Completed all tests in $0");
  62
  63 ################### DOCUMENTATION ###################
  64
  65 =head1 NAME
  66
  67 044-slurp_file.t - test C<Parrot::BuildUtil::slurp_file()>
  68
  69 =head1 SYNOPSIS
  70
  71     % prove t/configure/044-slurp_file.t
  72
  73 =head1 DESCRIPTION
  74
  75 The files in this directory test functionality used by F<Configure.pl>.
  76
  77 The tests in this file test C<Parrot::BuildUtil::slurp_file()>.
  78
  79 =head1 AUTHOR
  80
  81 James E Keenan
  82
  83 =head1 SEE ALSO
  84
  85 Parrot::BuildUtil, F<Configure.pl>.
  86
  87 =cut
  88
  89 # Local Variables:
  90 #   mode: cperl
  91 #   cperl-indent-level: 4
  92 #   fill-column: 100
  93 # End:
  94 # vim: expandtab shiftwidth=4:
  95