Alien-Taco

 view release on metacpan or  search on metacpan

t/3_client_sub.t  view on Meta::CPAN

is($t->get_output(), '{"x":{"_Taco_Object_":78}}', 'replace object');

isa_ok($res, 'Alien::Taco::Object');
is($res->_number(), 678, 'interpret object number');


# Dummy Taco client without invoking a server script.

package TestClient;

use parent 'Alien::Taco';

sub new {
    my $class = shift;

    my $in_io = new IO::String();
    my $out_io = new IO::String();

    my $self = bless {
        in_io => $in_io,
        out_io => $out_io,

t/3_server_sub.t  view on Meta::CPAN

$s->_delete_object(1);

is($s->_get_object(1), undef, 'delete object');


# Dummy Taco server.

package TestServer;

use parent 'Alien::Taco::Server';

sub new {
    my $class = shift;

    my $in_io = new IO::String();
    my $out_io = new IO::String();

    my $self = bless {
        nobject => 0,
        objects => {},

t/4_client_msg.t  view on Meta::CPAN

        value => '!',
    },
    'set_value');


# A test client which just stores message hashes rather than attempting
# to send them.

package TestClient;

use parent 'Alien::Taco';

sub new {
    my $class = shift;

    return bless {msg => undef}, $class;
}

sub _interact {
    my $self = shift;
    $self->{'msg'} = shift;

t/4_server_msg.t  view on Meta::CPAN

our @use_param;

sub import {
    my $package = shift;
    @use_param = @_;
}


package TestServer;

use parent 'Alien::Taco::Server';

sub new {
    my $class = shift;
    return bless {
        nobject => 0,
        objects => {},
    }, $class;
}