File Coverage

blib/lib/DDG/Test/Spice.pm

Criterion	Covered	Total	%
statement	56	66	84.8
branch	2	6	33.3
condition			n/a
subroutine	15	16	93.7
pod			n/a
total	73	88	82.9

package DDG::Test::Spice;
our $AUTHORITY = 'cpan:DDG';
# ABSTRACT: Adds keywords to easily test Spice plugins.
$DDG::Test::Spice::VERSION = '1016';
use strict;
use warnings;
use Carp;
use Test::More;
use DDG::Test::Block;
use DDG::ZeroClickInfo::Spice;
use DDG::Meta::ZeroClickInfoSpice;
use Package::Stash;
use Class::Load 'load_class';


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


	my %spice_params = (
		call_type => 'include',
	);

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


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


	$stash->add_symbol('&ddg_spice_test', sub { block_test(sub {
		my $query = shift;
		my $answer = shift;
		my $spice = shift;
		if ($answer) {
			is_deeply($answer,$spice,'Testing query '.$query);
		} else {
			fail('Expected result but dont get one on '.$query);
		}
	},@_)});


	$stash->add_symbol('&alt_to_test', sub {
		my ($spice, $alt_tos) = @_;

		load_class($spice);

		my $rewrites = $spice->alt_rewrites;
		ok($rewrites, "$spice has rewrites");

		ok($spice =~ /^(DDG.+::)/, "Extract base from $spice");
		my $base = $1;

		for my $alt (@$alt_tos){
			my ($cb, $path) = @{DDG::Meta::ZeroClickInfoSpice::params_from_target("$base$alt")};
			my $rw = $rewrites->{$alt};
			ok($rw, "$alt exists");
			ok($rw->callback eq $cb, "$alt callback");
			ok($rw->path eq $path, "$alt path");
		}
	});
}

1;

__END__