12-stash.t

Revision 2172, 283 bytes (checked in by karpet, 2 months ago)
still have some mem leaks somewhere, but this is at least a better approach

Line
1	use Test::More tests => 3;
2
3	{
4
5	package MyConfig;
6	our @ISA = ('SWISH::3::Config');
7
8	sub DESTROY {
9	$_[0]->SUPER::DESTROY;
10	}
11	}
12
13	use_ok('SWISH::3');
14	ok( my $s3 = SWISH::3->new( config_class => 'MyConfig' ), "new s3" );
15	ok( my $conf = $s3->config, "get config" );

Note: See TracBrowser for help on using the browser.