view release on metacpan or  search on metacpan

t/calendar-plugin-renderer.t  view on Meta::CPAN

#!/usr/bin/perl

package T;

use File::Temp qw(tempfile tempdir);
use Moo;
use namespace::autoclean;
with 'Calendar::Plugin::Renderer';

sub calendar_bahai {
    my ($self) = @_;

    # Month: 1, Year: 172
    return save($self->svg_calendar(
        {
            adjust_height => 21,
            start_index   => 6,
            month_name    => 'Baha',
            days          => 19,
            year          => 172
        }));
}

sub calendar_saka {
    my ($self) = @_;

    # Month: 1, Year: 1937
    return save($self->svg_calendar(
        {
            start_index => 0,
            month_name  => 'Chaitra',
            days        => 30,
            year        => 1937
        }));
}

sub calendar_hijri {
    my ($self) = @_;

    # Month: 7, Year: 1437
    return save($self->svg_calendar(
        {
            start_index => 6,
            month_name  => 'Rajab',
            days        => 30,
            year        => 1437
        }));
}

sub calendar_persian {
    my ($self) = @_;

    # Month: 2, Year: 1395
    return save($self->svg_calendar(
        {
            start_index => 3,
            month_name  => 'Ordibehesht',
            days        => 31,
            year        => 1395
        }));
}

sub calendar_gregorian {
    my ($self) = @_;

    # Month: 5, Year: 2016
    return save($self->svg_calendar(
        {
            start_index => 0,
            days        => 31,
            month_name  => 'May',
            year        => 2016
        }));
}

sub calendar_julian {
    my ($self) = @_;

    # Month: 4, Year: 2019
    return save($self->svg_calendar(
        {
            start_index => 0,
            days        => 30,
            month_name  => 'April',
            year        => 2019
        }));
}

sub calendar_hebrew {
    my ($self) = @_;

    # Month: 1, Year: 5779
    return save($self->svg_calendar(
        {
            start_index => 4,
            days        => 30,
            month_name  => 'Nisan',
            year        => 5779
        }));
}

sub save {
    my ($calendar) = @_;

    my $dir = tempdir(CLEANUP => 1);
    my ($fh, $filename) = tempfile(DIR => $dir);
    print $fh $calendar;
    close $fh;

    return $filename;
}

package main;

use 5.006;
use strict; use warnings;
use Test::More;
use XML::SemanticDiff;

my $xml = XML::SemanticDiff->new;
my $T   = T->new;
my $got_calendar_bahai     = $T->calendar_bahai;
my $got_calendar_gregorian = $T->calendar_gregorian;
my $got_calendar_hijri     = $T->calendar_hijri;
my $got_calendar_persian   = $T->calendar_persian;
my $got_calendar_saka      = $T->calendar_saka;
my $got_calendar_julian    = $T->calendar_julian;
my $got_calendar_hebrew    = $T->calendar_hebrew;

is(is_same_calendar($xml, $got_calendar_bahai,     't/bahai.xml'    ), 1, 'Bahai Calendar'    );
is(is_same_calendar($xml, $got_calendar_gregorian, 't/gregorian.xml'), 1, 'Gregorian Calendar');
is(is_same_calendar($xml, $got_calendar_hijri,     't/hijri.xml'    ), 1, 'Hijri Calendar'    );
is(is_same_calendar($xml, $got_calendar_hebrew,    't/hebrew.xml'   ), 1, 'Hebrew Calendar'     );
is(is_same_calendar($xml, $got_calendar_julian,    't/julian.xml'   ), 1, 'Julian Calendar'     );
is(is_same_calendar($xml, $got_calendar_persian,   't/persian.xml'  ), 1, 'Persian Calendar'  );
is(is_same_calendar($xml, $got_calendar_saka,      't/saka.xml'     ), 1, 'Saka Calendar'     );

is(is_same_calendar($xml, $got_calendar_bahai,     't/fake-bahai.xml'    ), 0, 'Fake Bahai Calendar'    );
is(is_same_calendar($xml, $got_calendar_gregorian, 't/fake-gregorian.xml'), 0, 'Fake Gregorian Calendar');
is(is_same_calendar($xml, $got_calendar_hijri,     't/fake-hijri.xml'    ), 0, 'Fake Hijri Calendar'    );
is(is_same_calendar($xml, $got_calendar_hebrew,    't/fake-hebrew.xml'   ), 0, 'Fake Hebrew Calendar'   );
is(is_same_calendar($xml, $got_calendar_julian,    't/fake-julian.xml'   ), 0, 'Fake Julian Calendar'   );
is(is_same_calendar($xml, $got_calendar_persian,   't/fake-persian.xml'  ), 0, 'Fake Persian Calendar'  );
is(is_same_calendar($xml, $got_calendar_saka,      't/fake-saka.xml'     ), 0, 'Fake Saka Calendar'     );

done_testing();

# PRIVATE METHOD

sub is_same_calendar {
    my ($xml, $got, $expected) = @_;

    my @changes = $xml->compare($got, $expected);
    return (scalar(@changes))?(0):(1);
}