package testcases::Web::WebStyler;
use strict;
use CGI;
use XAO::Utils;
use XAO::Web;

use base qw(XAO::testcases::Web::base);

###############################################################################

sub test_all {
    my $self=shift;

    # XXX severely incomple and needs cleaner interface. Before
    # modifying interface add tests for all old ways of calling it!

    my %matrix=(
        t1 => {
            template => '<%Styler dollars="1234.567"%>',
            result => '$1,234.57',
        },
        t2 => {
            template => '<%Styler dollars="1234.567" format="%.0f"%>',
            result => '$1,235',
        },
        t3 => {
            template => '<%Styler dollars="33.415"%>',
            result => '$33.42',
        },
        t4 => {
            template => '<%Styler dollars="33.7"%>',
            result => '$33.70',
        },
        t5 => {
            template => '<%Styler dollars="3.5999"%>',
            result => '$3.60',
        },
        t10 => {
            template => '<%Styler real="3.5999"%>',
            result => '3.60',
        },
        t11 => {
            template => '<%Styler real="33333.5999"%>',
            result => '33,333.60',
        },
        t12 => {
            template => '<%Styler real="3.333333" format="%.4f"%>',
            result => '3.3333',
        },
        t13 => {
            template => '<%Styler real="3.333333" format="%.1f"%>',
            result => '3.3',
        },
        t14 => {
            template => '<%Styler real="2222.333333" format="%.4f"%>',
            result => '2,222.3333',
        },
        t15 => {
            template => '<%Styler real="2.333333" format="%07.2f"%>',
            result => '0,002.33',
        },
        t16 => {
            template => '<%Styler real="9876.543" format="%08.2f"%>',
            result => '09,876.54',
        },
        t17 => {
            template => '<%Styler real="333.333" format="--%07.2f--"%>',
            result => '--0333.33--',
        },
        t20 => {
            template => '<%Styler number="6" format="%02u"%>',
            result => '06',
        },
        t21 => {
            template => '<%Styler real="0.00012" format="//%0.4f"%>',
            result => '//0.0001',
        },
    );

    my $page=XAO::Objects->new(objname => 'Web::Page');
    foreach my $test (keys %matrix) {
        my $template=$matrix{$test}->{template};
        my $expect=$matrix{$test}->{result};
        my $got=$page->expand(template => $template);

        $self->assert($got eq $expect,
                      "Test $test failed - on '$template' expected '$expect', got '$got'");
    }
}

###############################################################################
1;