view release on metacpan or  search on metacpan

t/00-plugin.t  view on Meta::CPAN

## no critic (RequireExtendedFormatting, ProhibitComplexRegexes)
use strict;
use warnings;

use Test::Fatal qw( exception );
use Test::More import => [ qw( BAIL_OUT can_ok is_deeply like note plan require_ok subtest ) ], tests => 9;

use App::Prove ();

my $plugin_name = 'App::Prove::Plugin::TestArgs';

require_ok( $plugin_name ) or BAIL_OUT "Cannot require plugin '$plugin_name'!";

can_ok( $plugin_name, 'load' );

subtest 'provoke fatal perl diagnostics' => sub {
  plan tests => 3;

  like exception { $plugin_name->load }, qr/\ACan't use an undefined value as/, 'pass no aruments';

  like exception { $plugin_name->load( [] ) },
    $] == 5.008009 ? qr/\ACan't coerce array into hash/ : qr/\ANot a HASH reference/, 'pass wrong reference type';

  like exception { $plugin_name->load( 'file' ) }, qr/\ACan't use string/, 'pass string(scalar) argument';
};

sub wocta {
  plan tests => 2;

  my ( $config_file ) = @_;

  my $has_name  = $config_file =~ m/_name_/;
  my $app_prove = App::Prove->new;
  $app_prove->process_args( qw( t/foo.t t/bar.t ) );
  $app_prove->state_manager( $app_prove->state_class->new( { store => App::Prove->STATE_FILE } ) );
  $plugin_name->load( { app_prove => $app_prove, args => [ $config_file ] } );

  is_deeply $app_prove->test_args,
    {
    $has_name ? 't/foo.t (foo once)'   : 'foo once'   => [ qw( ABC DEF ) ],
    $has_name ? 't/foo.t (foo twice)'  : 'foo twice'  => [],
    $has_name ? 't/foo.t (foo thrice)' : 'foo thrice' => [ 'GHI' ]
    },
    'check test args';

  is_deeply [ $app_prove->_get_tests ],
    [
    [ 't/foo.t', $has_name ? 't/foo.t (foo once)'   : 'foo once' ],
    [ 't/foo.t', $has_name ? 't/foo.t (foo twice)'  : 'foo twice' ],
    [ 't/foo.t', $has_name ? 't/foo.t (foo thrice)' : 'foo thrice' ],
    [ 't/bar.t', 't/bar.t' ]
    ],
    'check tests';
}

sub wcta {
  plan tests => 2;

  my ( $config_file ) = @_;

  my $has_name  = $config_file =~ m/_name_/;
  my $app_prove = App::Prove->new;
  $app_prove->process_args( qw( t/foo.t t/bar.t :: UVW XYZ ) );
  $app_prove->state_manager( $app_prove->state_class->new( { store => App::Prove->STATE_FILE } ) );
  $plugin_name->load( { app_prove => $app_prove, args => [ $config_file ] } );