dist/Devel-PPPort/t/grok.t

   1 ################################################################################
   2 #
   3 #            !!!!!   Do NOT edit this file directly!   !!!!!
   4 #
   5 #            Edit mktests.PL and/or parts/inc/grok instead.
   6 #
   7 #  This file was automatically generated from the definition files in the
   8 #  parts/inc/ subdirectory by mktests.PL. To learn more about how all this
   9 #  works, please read the F<HACKERS> file that came with this distribution.
  10 #
  11 ################################################################################
  12
  13 use FindBin ();
  14
  15 BEGIN {
  16   if ($ENV{'PERL_CORE'}) {
  17     chdir 't' if -d 't';
  18     unshift @INC, '../lib' if -d '../lib' && -d '../ext';
  19     require Config; import Config;
  20     use vars '%Config';
  21     if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
  22       print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
  23       exit 0;
  24     }
  25   }
  26
  27   use lib "$FindBin::Bin";
  28   use lib "$FindBin::Bin/../parts/inc";
  29
  30   die qq[Cannot find "$FindBin::Bin/../parts/inc"] unless -d "$FindBin::Bin/../parts/inc";
  31
  32   sub load {
  33     eval "use Test";
  34     require 'testutil.pl' if $@;
  35     require 'inctools';
  36   }
  37
  38   if (10) {
  39     load();
  40     plan(tests => 10);
  41   }
  42 }
  43
  44 use Devel::PPPort;
  45 use strict;
  46 BEGIN { $^W = 1; }
  47
  48 package Devel::PPPort;
  49 use vars '@ISA';
  50 require DynaLoader;
  51 @ISA = qw(DynaLoader);
  52 bootstrap Devel::PPPort;
  53
  54 package main;
  55
  56 ok(&Devel::PPPort::grok_number("42"), 42);
  57 ok(!defined(&Devel::PPPort::grok_number("A")));
  58 ok(&Devel::PPPort::grok_bin("10000001"), 129);
  59 ok(&Devel::PPPort::grok_hex("deadbeef"), 0xdeadbeef);
  60 ok(&Devel::PPPort::grok_oct("377"), 255);
  61
  62 ok(&Devel::PPPort::Perl_grok_number("42"), 42);
  63 ok(!defined(&Devel::PPPort::Perl_grok_number("A")));
  64 ok(&Devel::PPPort::Perl_grok_bin("10000001"), 129);
  65 ok(&Devel::PPPort::Perl_grok_hex("deadbeef"), 0xdeadbeef);
  66 ok(&Devel::PPPort::Perl_grok_oct("377"), 255);
  67