1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#============================================================= -*-perl-*-
#
# t/class/subclass.t
#
# Test the My::Class subclass of Badger::Class.
#
# Written by Andy Wardley <abw@wardley.org>
#
# Run with -h option for help.
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
#========================================================================
use lib qw( t/class/lib ../t/class/lib ./lib ../lib ../../lib );
use Badger::Test
debug => 'My::Class', # run with -d option for debugging
args => \@ARGV,
tests => 7;
package Badger::Test::SubClass1;
use My::Class
fields => 'x y z';
package main;
my $obj = Badger::Test::SubClass1->new( x => 1, y => 2, z => 3 );
ok( $obj, 'created new object' );
is( $obj->x, 1, 'x is 1' );
is( $obj->y, 2, 'x is 2' );
is( $obj->z, 3, 'x is 3' );
$obj->x(10);
$obj->y(20);
$obj->z(30);
is( $obj->x, 10, 'x is 10' );
is( $obj->y, 20, 'x is 20' );
is( $obj->z, 30, 'x is 30' );
1;
|
