#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use DDG::Test::Goodie;
zci answer_type => 'calc';
zci is_cached => 1;
ddg_goodie_test(
[qw( DDG::Goodie::Calculator )],
'what is 2-2' => test_zci(
"2 - 2 = 0",
heading => 'Calculator',
html => qq(
)
),
'solve 2+2' => test_zci(
"2 + 2 = 4",
heading => 'Calculator',
html => qq()
),
'2^8' => test_zci(
"2 ^ 8 = 256",
heading => 'Calculator',
html => qq()
),
'2 *7' => test_zci(
"2 * 7 = 14",
heading => 'Calculator',
html => qq()
),
'1 dozen * 2' => test_zci(
"1 dozen * 2 = 24",
heading => 'Calculator',
html => qq()
),
'dozen + dozen' => test_zci(
"dozen + dozen = 24",
heading => 'Calculator',
html => qq()
),
'2divided by 4' => test_zci(
"2 divided by 4 = 0.5",
heading => 'Calculator',
html => qq()
),
'(2c) + pi' => test_zci(
"(2 speed of light) + pi = 599,584,919.141593",
heading => 'Calculator',
html => qq()
),
'2^dozen' => test_zci(
"2 ^ dozen = 4,096",
heading => 'Calculator',
html => qq()
),
'2^2' => test_zci(
"2 ^ 2 = 4",
heading => 'Calculator',
html => qq()
),
'2^0.2' => test_zci(
"2 ^ 0.2 = 1.14869835499704",
heading => 'Calculator',
html => qq()
),
'cos(0)' => test_zci(
"cos(0) = 1",
heading => 'Calculator',
html => qq()
),
'tan(1)' => test_zci(
"tan(1) = 1.5574077246549",
heading => 'Calculator',
html => qq()
),
'sin(1)' => test_zci(
"sin(1) = 0.841470984807897",
heading => 'Calculator',
html => qq()
),
'$3.43+$34.45' => test_zci(
'$3.43 + $34.45 = $37.88',
heading => 'Calculator',
html => qq()
),
'64*343' => test_zci(
'64 * 343 = 21,952',
heading => 'Calculator',
html => qq(),
),
'//' => undef,
dividedbydividedby => undef,
);
done_testing;