#!/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(
2 - 2 = 0
) ), 'solve 2+2' => test_zci( "2 + 2 = 4", heading => 'Calculator', html => qq(
2 + 2 = 4
) ), '2^8' => test_zci( "2 ^ 8 = 256", heading => 'Calculator', html => qq(
28 = 256
) ), '2 *7' => test_zci( "2 * 7 = 14", heading => 'Calculator', html => qq(
2 * 7 = 14
) ), '1 dozen * 2' => test_zci( "1 dozen * 2 = 24", heading => 'Calculator', html => qq(
1 dozen * 2 = 24
) ), 'dozen + dozen' => test_zci( "dozen + dozen = 24", heading => 'Calculator', html => qq(
dozen + dozen = 24
) ), '2divided by 4' => test_zci( "2 divided by 4 = 0.5", heading => 'Calculator', html => qq(
2 divided by 4 = 0.5
) ), '(2c) + pi' => test_zci( "(2 speed of light) + pi = 599,584,919.141593", heading => 'Calculator', html => qq(
(2 speed of light) + pi = 599,584,919.141593
) ), '2^dozen' => test_zci( "2 ^ dozen = 4,096", heading => 'Calculator', html => qq(
2dozen = 4,096
) ), '2^2' => test_zci( "2 ^ 2 = 4", heading => 'Calculator', html => qq(
22 = 4
) ), '2^0.2' => test_zci( "2 ^ 0.2 = 1.14869835499704", heading => 'Calculator', html => qq(
20.2 = 1.14869835499704
) ), 'cos(0)' => test_zci( "cos(0) = 1", heading => 'Calculator', html => qq(
cos(0) = 1
) ), 'tan(1)' => test_zci( "tan(1) = 1.5574077246549", heading => 'Calculator', html => qq(
tan(1) = 1.5574077246549
) ), 'sin(1)' => test_zci( "sin(1) = 0.841470984807897", heading => 'Calculator', html => qq(
sin(1) = 0.841470984807897
) ), '$3.43+$34.45' => test_zci( '$3.43 + $34.45 = $37.88', heading => 'Calculator', html => qq(
\$3.43 + \$34.45 = \$37.88
) ), '64*343' => test_zci( '64 * 343 = 21,952', heading => 'Calculator', html => qq(
64 * 343 = 21,952
), ), '//' => undef, dividedbydividedby => undef, ); done_testing;