view release on metacpan or  search on metacpan

t/11-aes.t  view on Meta::CPAN

#!perl

use Chart::GGPlot::Setup;

use List::AllUtils qw(pairmap);
use Ref::Util qw(is_arrayref);

use Test2::V0;

use Chart::GGPlot::Aes;
use Chart::GGPlot::Aes::Functions qw(:all);

sub aes_quosure_to_hashref {
    my ($aes) = @_;
    return { pairmap { $a => $b->expr } $aes->flatten };
}

{
    my $aes = Chart::GGPlot::Aes->new( x => 'mpg', y => 'wt', color => 'cyl' );
    ok( $aes, 'Aes->new' );

    is( $aes->keys, [ sort(qw(color x y)) ], '$aes->keys' );
    is( $aes->names, $aes->keys, '$aes->names');

    ok( $aes->exists('x'),  '$aes->exists' );
    ok( !$aes->exists('z'), '$aes->exists' );

    is( $aes->at('y'), 'wt', '$aes->at' );
    $aes->set( 'y', 'disp' );
    is( $aes->at('y'), 'disp', '$aes->set' );

    ok(
        (
            List::AllUtils::all { $_ eq 'cyl' }
            ( map { $aes->at($_) } qw(color colour col) )
        ),
        "attribute aliasing"
    );

    my $all_aesthetics = $aes->all_aesthetics;
    ok( ( is_arrayref($all_aesthetics) and @$all_aesthetics > 10 ),
        '$aes->all_aesthetics' );
}

{
    my $aes = aes( x => 'mpg', y => 'wt', color => 'cyl' );
    is(
        aes_quosure_to_hashref($aes),
        { x => 'mpg', y => 'wt', color => 'cyl' },
        'aes()'
    );

    is(
        aes_quosure_to_hashref($aes->hslice( [qw(x color)] )),
        { x => 'mpg', color => 'cyl' },
        '$aes->hslice()'
    );

    is(
        aes_quosure_to_hashref($aes->rename( { color => 'fill' } )),
        { x => 'mpg', y => 'wt', fill => 'cyl' },
        '$aes->rename()'
    );

    is(
        aes_quosure_to_hashref($aes->merge( aes( fontsize => 20 ) )),