git.maemo.org Git - pkg-perl/blob - deb-src/libdevel-symdump-perl/libdevel-symdump-perl-2.08/t/recur.t

   1 BEGIN {
   2     $|++;
   3     if ($] <= 5.006) {
   4       print "1..0 # Skip: this test is known to fail with 5.005xx\n";
   5       # (2007-06-25 akoenig: I have seen it working in the debugger)
   6       eval "require POSIX; 1" and POSIX::_exit(0);
   7     }
   8 }
   9 package Acme::Meta;
  10
  11 BEGIN {
  12   $::Meta::VERSION = $VERSION = 0; # autovivify for perl >= @26370
  13   $Meta::{'Meta::'} = $main::{'Meta::'};
  14   $Acme::Meta::{'Meta::'} = $main::{'Meta::'};
  15 }
  16 use strict;
  17 require Test::More;
  18 my $tests = 3;
  19 Test::More->import( tests => $tests );
  20 exit unless $tests;
  21 Test::More::ok(1);
  22 $Acme::Meta::Meta::Pie = "good";
  23 Test::More::is ($Acme::Meta::Meta::Meta::Meta::Pie, "good");
  24 Test::More::use_ok('Devel::Symdump');
  25 Devel::Symdump->rnew("Acme");
  26
  27 __END__
  28
  29 # Local Variables:
  30 # mode: cperl
  31 # cperl-indent-level: 2
  32 # End: