45 lines
1.6 KiB
Perl
45 lines
1.6 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use DDG::Test::Goodie;
|
|
|
|
zci answer_type => 'root';
|
|
zci is_cached => 1;
|
|
|
|
sub build_structured_answer {
|
|
my ($exp, $base, $text, $html) = @_;
|
|
return $text,
|
|
structured_answer => {
|
|
data => {
|
|
title => $html,
|
|
subtitle => "Calculate $exp-root of $base",
|
|
},
|
|
templates => {
|
|
group => 'text',
|
|
options => {
|
|
title_content => 'DDH.calc_roots.title',
|
|
},
|
|
},
|
|
};
|
|
}
|
|
|
|
sub build_test { test_zci(build_structured_answer(@_)) }
|
|
|
|
ddg_goodie_test(
|
|
[qw( DDG::Goodie::CalcRoots )],
|
|
'square root of negative 9' => build_test('2', '-9', 'The 2-root of -9 is 3 i', '<sup>2</sup>√-9 = 3<em>i</em>'),
|
|
'negative square root of negative 25' => build_test('-2', '-25', 'The -2-root of -25 is -5 i', '-<sup>2</sup>√-25 = -5<em>i</em>'),
|
|
'2nd root of 100' => build_test('2', '100', 'The 2-root of 100 is 10.',
|
|
qq|<sup>2</sup>√100 = <a href="javascript:;" onclick="document.x.q.value='10';document.x.q.focus();">10</a>|),
|
|
'cube root of 33' => build_test('3', '33', 'The 3-root of 33 is 3.20753432999583.',
|
|
qq|<sup>3</sup>√33 = <a href="javascript:;" onclick="document.x.q.value='3.20753432999583';document.x.q.focus();">3.20753432999583</a>|),
|
|
'2nd root of 9999999999' => undef,
|
|
'square root of minus garfield' => undef,
|
|
'cubed root of pete' => undef,
|
|
'negative root of dax the ducky' => undef,
|
|
);
|
|
done_testing;
|