view release on metacpan or  search on metacpan

t/V0/Types.t  view on Meta::CPAN

use CXC::Gnuplot::V0::LiteralDataValue;
use CXC::Gnuplot::V0::Range;

my sub fLiteralDataValue { CXC::Gnuplot::V0::LiteralDataValue->new( value => @_ ) }

use CXC::Gnuplot::V0::Types -all;


sub check2D ( $class, $x, $y ) {
    object {
        prop blessed => $class;
        call x => object { $x->() };
        call y => object { $y->() };
    };
}

sub check3D ( $class, $x, $y, $z ) {
    object {
        prop blessed => $class;
        call x => object { $x->() };
        call y => object { $y->() };
        call z => object { $z->() };
    };
}

sub check_LiteralDataValue ( $expected ) {
    object {
        prop blessed => 'CXC::Gnuplot::V0::LiteralDataValue';
        call value => $expected;

t/V1/Bound.t  view on Meta::CPAN

    },
);

sub expect_object ( $class, $input, $expected, $name ) {

    my $ctx = context;

    is(
        $class->new( $input->%* ),
        object {
            prop blessed => $class;
            call $_ => $expected->{$_} for keys $expected->%*;
        },
        $name,
    );

    $ctx->release;
}

sub expect_factory_object ( $input, $subclass, $expected, $name ) {

t/V1/Types.t  view on Meta::CPAN

use CXC::Gnuplot::V1::LiteralDataValue;
use CXC::Gnuplot::V1::Range;

my sub fLiteralDataValue { CXC::Gnuplot::V1::LiteralDataValue->new( value => @_ ) }

use CXC::Gnuplot::V1::Types -all;


sub check2D ( $class, $x, $y ) {
    object {
        prop blessed => $class;
        call x => object { $x->() };
        call y => object { $y->() };
    };
}

sub check3D ( $class, $x, $y, $z ) {
    object {
        prop blessed => $class;
        call x => object { $x->() };
        call y => object { $y->() };
        call z => object { $z->() };
    };
}

sub check_LiteralDataValue ( $expected ) {
    object {
        prop blessed => 'CXC::Gnuplot::V1::LiteralDataValue';
        call value => $expected;