t/pharness/02-get_test_prog_args.t

   1 #! perl
   2 # Copyright (C) 2007, Parrot Foundation.
   3 # $Id$
   4 # 02-get_test_prog_args.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 => 12 );
  17 use Carp;
  18 use Parrot::Harness::Options qw( get_test_prog_args );
  19
  20 my ($args, $optsref);
  21 my ($gc_debug, $run_exec);
  22
  23 $optsref = {
  24     'd'     => 1,
  25     'g'     => 1,
  26     'D'     => 40,
  27 };
  28 ($gc_debug, $run_exec) = (0,0);
  29 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
  30 like($args, qr/-d/, "Got expected option");
  31 like($args, qr/-D40/, "Got expected option");
  32
  33 $optsref = {
  34     'd'     => 1,
  35     'g'     => 1,
  36     'D'     => 40,
  37     'O'     => 2,
  38 };
  39 ($gc_debug, $run_exec) = (0,0);
  40 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
  41 like($args, qr/-d/, "Got expected option");
  42 like($args, qr/-D40/, "Got expected option");
  43 like($args, qr/-O2/, "Got expected option");
  44
  45 $optsref = {
  46     'd'     => 1,
  47     'g'     => 1,
  48     'D'     => 40,
  49 };
  50 ($gc_debug, $run_exec) = (1,0);
  51 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
  52 like($args, qr/-d/, "Got expected option");
  53 like($args, qr/-D40/, "Got expected option");
  54 like($args, qr/\s--gc-debug/, "Got expected option");
  55
  56 $optsref = {
  57     'd'     => 1,
  58     'g'     => 1,
  59     'D'     => 40,
  60 };
  61 ($gc_debug, $run_exec) = (0,1);
  62 $args = get_test_prog_args($optsref, $gc_debug, $run_exec);
  63 like($args, qr/-d/, "Got expected option");
  64 like($args, qr/-D40/, "Got expected option");
  65 like($args, qr/\s--run-exec/, "Got expected option");
  66
  67 pass("Completed all tests in $0");
  68
  69 ################### DOCUMENTATION ###################
  70
  71 =head1 NAME
  72
  73 02-get_test_prog_args.t - test Parrot::Harness::Options
  74
  75 =head1 SYNOPSIS
  76
  77     % prove t/pharness/02-get_test_prog_args.t
  78
  79 =head1 DESCRIPTION
  80
  81 This file holds tests for Parrot::Harness::Options::get_test_prog_args().
  82
  83 =head1 AUTHOR
  84
  85 James E Keenan
  86
  87 =head1 SEE ALSO
  88
  89 Parrot::Harness::Options, F<t/harness>.
  90
  91 =cut
  92
  93 # Local Variables:
  94 #   mode: cperl
  95 #   cperl-indent-level: 4
  96 #   fill-column: 100
  97 # End:
  98 # vim: expandtab shiftwidth=4: