t/80-leaks.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 my $debug = shift @ARGV;
   6
   7 use Test::More tests => 4;
   8 use Data::Dump qw/dump/;
   9 use lib 'lib';
  10
  11 BEGIN {
  12         use_ok('CWMP::MemLeak');
  13 }
  14
  15 #use Cwd qw/abs_path/;
  16 #ok(my $abs_path = abs_path($0), "abs_path");
  17 #$abs_path =~ s!/[^/]*$!/!;     #!fix-vim
  18
  19 ok( my $leak = CWMP::MemLeak->new({
  20         debug => $debug,
  21 }), 'new' );
  22 isa_ok( $leak, 'CWMP::MemLeak' );
  23
  24 ok( ! $leak->report, 'report' );
  25