vcs.maemo.org Git - pkg-perl/blob - deb-src/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/autogen.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN { unshift @INC, '.' ;}
   4
   5 require Devel::Symdump;
   6
   7 print "1..8\n";
   8
   9 @p = qw(
  10 scalars arrays hashes functions
  11 unknowns filehandles dirhandles packages);
  12
  13 $i=0;
  14 for (@p){
  15     @x1 = Devel::Symdump->new->$_();
  16     @x2 = Devel::Symdump->$_();
  17     unless ("@x1" eq "@x2"){
  18         print "x1 [@x1] x2 [@x2]\n";
  19         print "not ";
  20     }
  21     print "ok ", ++$i, "\n";
  22 }
  23