t/pharness/04-Usage.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 04-Usage.t
   5
   6 use strict;
   7 use warnings;
   8
   9 use lib qw( lib );
  10 use Test::More;
  11 eval {
  12     use Parrot::Config qw( %PConfig );
  13 };
  14 plan( skip_all => 't/harness only runs once configuration has completed' )
  15     if $@;
  16 plan( tests =>  2 );
  17 use Carp;
  18 use Parrot::Harness::Options qw( Usage );
  19 use IO::CaptureOutput qw| capture |;
  20
  21 {
  22     my $stdout;
  23     capture(
  24         sub { Usage(); },
  25         \$stdout,
  26     );
  27     like($stdout,
  28         qr/perl\st\/harness\s\[options\]\s\[testfiles\]/,
  29         "Got expected Usage message"
  30     );
  31 }
  32
  33 pass("Completed all tests in $0");
  34
  35 ################### DOCUMENTATION ###################
  36
  37 =head1 NAME
  38
  39 04-Usage.t - test Parrot::Harness::Options
  40
  41 =head1 SYNOPSIS
  42
  43     % prove t/pharness/04-Usage.t
  44
  45 =head1 DESCRIPTION
  46
  47 This file holds tests for Parrot::Harness::Options::Usage().
  48
  49 =head1 AUTHOR
  50
  51 James E Keenan
  52
  53 =head1 SEE ALSO
  54
  55 Parrot::Harness::Options, F<t/harness>.
  56
  57 =cut
  58
  59 # Local Variables:
  60 #   mode: cperl
  61 #   cperl-indent-level: 4
  62 #   fill-column: 100
  63 # End:
  64 # vim: expandtab shiftwidth=4: