#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Test::Deep;
use DDG::Test::Goodie;

zci answer_type => 'sig_figs';
zci is_cached => 1;

sub build_structured_answer {
    my ($exp_result, $exp_input) = @_;
    return $exp_result, structured_answer => {
        data => {
            title    => "$exp_result",
            subtitle => "Number of Significant Figures in $exp_input",
        },
        templates => {
            group  => 'text',
            moreAt => 0,
        },
    };
}

sub build_test { test_zci(build_structured_answer(@_)) }

ddg_goodie_test(
    [qw( DDG::Goodie::SigFigs)],
    'sigfigs 78'                    => build_test('2', '78'),
    "sigfigs 10.12404"              => build_test('7', '10.12404'),
    "significant digits of 3030."   => build_test('4', '3,030.'),
    "significant figures 0.0100235" => build_test('6', '0.0100235'),
    "sig figs 302.056"              => build_test('6', '302.056'),
    "significant figs 045.30"       => build_test('4', '045.30'),
    'sigfigs 01.1234000'            => build_test('8', '01.1234000'),
    'significant figures 000123000' => build_test('3', '000,123,000'),
    'sigfigs 0'                     => build_test('0', '0'),
    'sig figs 001,70'               => build_test('3', '001,70'),
    'significant figs 1_200.'       => build_test('4', '1,200.'),
    'sig figs 501,.3'               => build_test('4', '501,.3'),
    'sf'                            => undef,
    'sf 78'                         => undef,
    'significant figures a'         => undef,
    'significant figures of 1.230'  => build_test('4', '1.230'),
    'sig figs 1h1'                  => undef,
    'significant figures 1. 5h'     => undef,
    'sig figs 000.'                 => build_test('0', '000.'),
    # As Question
    'What are the significant figures of 312?' => build_test('3', '312'),
    'How many sig figs are there in 11.3'      => build_test('3', '11.3'),
);

done_testing;