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/11get_set_parser.t

    r2030 r2172  
    1717ok( my $s3 = SWISH::3->new( handler => sub { } ), "new parser" ); 
    1818 
    19 ok( my $conf1 = $s3->get_config, "get initial config" ); 
     19ok( my $conf1 = $s3->get_config,      "get initial config" ); 
    2020ok( my $config = SWISH::3::Config->new, "new config" ); 
    2121ok( !$s3->set_config($config), "set config" ); 
    …… 
    2424); 
    2525ok( my $conf2 = $s3->get_config, "get conf2" ); 
    26 diag("config = $config"); 
    27 diag("conf1 = $conf1"); 
    28 diag("conf2 = $conf2"); 
     26 
     27#diag("config = $config"); 
     28#diag("conf1 = $conf1"); 
     29#diag("conf2 = $conf2"); 
    2930 
    3031ok( my $ana1 = $s3->get_analyzer, "get initial analyzer" ); 
    …… 
    3637ok( my $ana2 = $s3->get_analyzer, "get ana2" ); 
    3738 
    38 # avoid spurious libswish3 mem error due to "random" order of Perl 
    39 # SV cleanup 
    40 #undef $analyzer; 
    41 #undef $ana2; 
    42 #undef $ana1; 
    43 #undef $conf2; 
    44 #undef $conf1; 
    45 #undef $config; 
    46 undef $s3; 
    47