t/configure/045-generated_file_header.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4
   5 use strict;
   6 use warnings;
   7
   8 use Test::More tests => 12;
   9 use Carp;
  10 use File::Temp qw| tempfile |;
  11 use lib qw( lib );
  12 use Parrot::BuildUtil;
  13
  14 {
  15     my $header;
  16     my ( $filename, $style ) = ( 'foobar', 'SPAF' );
  17     eval { $header = Parrot::BuildUtil::generated_file_header( $filename, $style ); };
  18     like(
  19         $@,
  20         qr/unknown style /,
  21         'error when no arguments passed',
  22     );
  23 }
  24
  25 {
  26     my $header;
  27     my ( $filename, $style ) = ( 'foobar', 'perl' );
  28
  29     require File::Spec;
  30     my $script = File::Spec->abs2rel($0);
  31     $script =~ s/\\/\//g;
  32
  33     eval { $header = Parrot::BuildUtil::generated_file_header( $filename, $style ); };
  34     is( $@, '', "no error when called with '$style' style" );
  35
  36     like( $header, qr/ft=perl:/, "filetype set to '$style'" );
  37     like( $header, qr/from '$filename'/, 'filename set' );
  38     like( $header, qr/by $script/, 'script set' );
  39
  40     my @header = split /\n/ => $header;
  41     is(
  42         @{[ grep( { /^#  / } @header ) ]},
  43         @header,
  44         'each line starts with a comment marker',
  45     );
  46 }
  47
  48 {
  49     my $header;
  50     my ( $filename, $style ) = ( 'foobar', 'c' );
  51
  52     require File::Spec;
  53     my $script = File::Spec->abs2rel($0);
  54     $script =~ s/\\/\//g;
  55
  56     eval { $header = Parrot::BuildUtil::generated_file_header( $filename, $style ); };
  57     is( $@, '', "no error when called with '$style' style" );
  58
  59     like( $header, qr/ft=c:/, "filetype set to '$style'" );
  60     like( $header, qr/from '$filename'/, 'filename set' );
  61     like( $header, qr/by $script/, 'script set' );
  62
  63     my @header = split /\n/ => $header;
  64     is(
  65         @{[ grep( { /^[ \/]\*[ \/]?/ } @header ) ]},
  66         @header,
  67         'each line starts with a comment marker',
  68     );
  69 }
  70
  71 pass("Completed all tests in $0");
  72
  73 ################### DOCUMENTATION ###################
  74
  75 =head1 NAME
  76
  77 044-generated_file_header.t - test C<Parrot::BuildUtil::generated_file_header()>
  78
  79 =head1 SYNOPSIS
  80
  81     % prove t/configure/045-generated_file_header.t
  82
  83 =head1 DESCRIPTION
  84
  85 The files in this directory test functionality used by F<Configure.pl>.
  86
  87 The tests in this file test C<Parrot::BuildUtil::generated_file_header()>.
  88
  89 =head1 AUTHOR
  90
  91 James E Keenan
  92
  93 =head1 SEE ALSO
  94
  95 Parrot::BuildUtil, F<Configure.pl>.
  96
  97 =cut
  98
  99 # Local Variables:
 100 #   mode: cperl
 101 #   cperl-indent-level: 4
 102 #   fill-column: 100
 103 # End:
 104 # vim: expandtab shiftwidth=4:
 105
 106