File Coverage

blib/lib/DDG/Test/Goodie.pm

Criterion	Covered	Total	%
statement	44	49	89.8
branch	3	8	37.5
condition			n/a
subroutine	13	13	100.0
pod			n/a
total	60	70	85.7

package DDG::Test::Goodie;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Adds keywords to easily test Goodie plugins.
$DDG::Test::Goodie::VERSION = '1017';
use strict;
use warnings;
use Carp;
use Test::More;
use Test::Deep;
use DDG::Test::Block;
use DDG::ZeroClickInfo;
use Package::Stash;

binmode STDOUT, ':utf8';
binmode Test::More->builder->output, ':utf8';
binmode Test::More->builder->failure_output, ':utf8';


sub import {
	my ( $class, %params ) = @_;
	my $target = caller;
	my $stash = Package::Stash->new($target);


	my %zci_params;

	$stash->add_symbol('&test_zci', sub {
		my $answer = shift;
		ref $_[0] eq 'HASH' ?
			DDG::ZeroClickInfo->new(%zci_params, %{$_[0]}, answer => $answer ) :
			DDG::ZeroClickInfo->new(%zci_params, @_, answer => $answer )
	});


	$stash->add_symbol('&zci', sub {
		if (ref $_[0] eq 'HASH') {
			for (keys %{$_[0]}) {
				$zci_params{$_} = $_[0]->{$_};
			}
		} else {
			while (@_) {
				my $key = shift;
				my $value = shift;
				$zci_params{$key} = $value;
			}
		}
	});


	$stash->add_symbol('&ddg_goodie_test', sub { block_test(sub {
			my ($query, $answer, $zci) = @_;
		subtest "Query: $query" => sub {
			if ($answer) {
				$zci->{caller} = $answer->caller;    # TODO: Review all this cheating; seriously.
				cmp_deeply($answer,$zci,'Deep: full ZCI object');
			} else {
				fail('Expected result but dont get one on '.$query) unless defined $answer;
			}
		};
		},@_)
	});

}

1;

__END__