root/lang/perl/Const/trunk/t/03-obj.t @ 14680

#!perl -T
#
# $Id: 03-obj.t,v 0.1 2008/06/26 22:26:16 dankogai Exp $
#
use strict;
use warnings;
use Const;
#use Test::More 'no_plan';
use Test::More tests => 5;

{
    package Foo;
    sub new { my $pkg = shift; bless { @_ }, $pkg }
    sub get { $_[0]->{foo} }
    sub set { $_[0]->{foo} = $_[1] };
}
{
    Const my $o => Foo->new(foo=>1);
    isa_ok $o, 'Foo';
    is $o->get, 1, '$o->get == 1';
    eval{ $o = Foo->new(foo=>2) };
    ok $@, $@;
    eval{ $o->set(2) };
    ok !$@, '$o->set(2)';
    is $o->get, 2, '$o->get == 2';
}

__END__
#SCALAR
ARRAY
HASH
#CODE
#REF
#GLOB
#LVALUE
#FORMAT
#IO
#VSTRING
#Regexp