package testcases::WebUtility;
use strict;
use XAO::Projects;

use base qw(testcases::base);

sub test_number_ordinal_suffix {
    my $self=shift;

    my $page=XAO::Objects->new(objname => 'Web::Page');
    $self->assert(ref($page),
                  "Can't load Page object");

    my %matrix=(
        123     => 'rd',
        1001    => 'st',
        14      => 'th',
        23413   => 'th',
        0       => 'th',
        -234    => 'th',
        222     => 'nd',
    );

    foreach my $test (keys %matrix) {
        my $got=$page->expand(
            template    => '<%Utility mode="number-ordinal-suffix" number="<%N/f%>"%>',
            N           => $test,
        );
        my $expect=$matrix{$test};
        $self->assert($got eq $expect,
                      "Test for '$test' failed - expected '$expect', got '$got'");
    }
}

1;