Show
Ignore:
Timestamp:
09/22/08 00:19:34 (4 months ago)
Author:
karpet
Message:

still have some mem leaks somewhere, but this is at least a better approach

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/t/12-stash.t

    r2030 r2172  
    22 
    33{ 
     4 
    45    package MyConfig; 
    56    our @ISA = ('SWISH::3::Config'); 
     7 
    68    sub DESTROY { 
    79        $_[0]->SUPER::DESTROY; 
    …… 
    1012 
    1113use_ok('SWISH::3'); 
    12 ok(my $s3 = SWISH::3->new( config_class => 'MyConfig' ), "new s3"); 
    13 ok(my $conf = $s3->config, "get config"); 
    14 undef $conf; 
    15 undef $s3; 
    16 diag("s3 == undef"); 
     14ok( my $s3 = SWISH::3->new( config_class => 'MyConfig' ), "new s3" ); 
     15ok( my $conf = $s3->config, "get config" );