Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
big_e_pi.t	395 B	-r--r--r--	2014-12-27 11:48
bigexp.t	527 B	-r--r--r--	2014-12-27 11:48
bigint.t	2.08 KB	-r--r--r--	2014-12-27 11:48
bignum.t	1.89 KB	-r--r--r--	2014-12-27 11:48
bigrat.t	1.71 KB	-r--r--r--	2014-12-27 11:48
bii_e_pi.t	323 B	-r--r--r--	2014-12-27 11:48
biinfnan.t	180 B	-r--r--r--	2014-12-27 11:48
bir_e_pi.t	483 B	-r--r--r--	2014-12-27 11:48
bn_lite.t	458 B	-r--r--r--	2014-12-27 11:49
bninfnan.t	180 B	-r--r--r--	2014-12-27 11:48
br_lite.t	461 B	-r--r--r--	2014-12-27 11:49
brinfnan.t	180 B	-r--r--r--	2014-12-27 11:48
in_effect.t	749 B	-r--r--r--	2014-12-27 11:48
infnan.inc	1.34 KB	-r--r--r--	2014-12-27 11:48
option_a.t	391 B	-r--r--r--	2014-12-27 11:48
option_l.t	1.18 KB	-r--r--r--	2014-12-27 11:49
option_p.t	307 B	-r--r--r--	2014-12-27 11:48
overrides.t	3.57 KB	-r--r--r--	2014-12-27 11:48
ratopt_a.t	462 B	-r--r--r--	2014-12-27 11:48
scope_f.t	859 B	-r--r--r--	2014-12-27 11:48
scope_i.t	891 B	-r--r--r--	2014-12-27 11:48
scope_r.t	859 B	-r--r--r--	2014-12-27 11:48

Rename

#!perl -w

# Test behaviour of hex and oct overrides in detail, and also how the three
# modules interact.

use Test::More tests => 35;

# For testing that existing CORE::GLOBAL overrides are not clobbered
BEGIN
  {
  if ($] > 5.009004)
    {
    no warnings 'syntax';
    *CORE::GLOBAL::hex = sub(_) { ++$hex_called; CORE::hex(@_?$_[0]:$_) };
    *CORE::GLOBAL::oct = sub(_) { ++$oct_called; CORE::oct(@_?$_[0]:$_) };
    }
  else
    {
    *CORE::GLOBAL::hex = sub(;$) { ++$hex_called; CORE::hex(@_?$_[0]:$_) };
    *CORE::GLOBAL::oct = sub(;$) { ++$oct_called; CORE::oct(@_?$_[0]:$_) };
    }
  }

{
  use bigint;
  $_ = "20";
  is hex, "32", 'bigint hex override without arguments infers $_';
  is oct, "16", 'bigint oct override without arguments infers $_';
  @_ = 1..20;
  is hex(@_), "32", 'bigint hex override provides scalar context';
  is oct(@_), "16", 'bigint oct override provides scalar context';
  SKIP:
    {
    skip "no lexical hex/oct", 2 unless $] > do { no bigint; 5.009004};
    is ref hex(1), 'Math::BigInt',
      'bigint hex() works when bignum and bigrat are loaded';
    is ref oct(1), 'Math::BigInt',
      'bigint oct() works when bignum and bigrat are loaded';
    }
}
{
  use bignum;
  $_ = "20";
  is hex, "32", 'bignum hex override without arguments infers $_';
  is oct, "16", 'bignum oct override without arguments infers $_';
  @_ = 1..20;
  is hex(@_), "32", 'bignum hex override provides scalar context';
  is oct(@_), "16", 'bignum oct override provides scalar context';
  SKIP:
    {
    skip "no lexical hex/oct", 2 unless $] > 5.009004;
    is ref hex(1), 'Math::BigInt',
      'bignum hex() works when bigint and bigrat are loaded';
    is ref oct(1), 'Math::BigInt',
      'bignum oct() works when bigint and bigrat are loaded';
    }
}
{
  use bigrat;
  $_ = "20";
  is hex, "32", 'bigrat hex override without arguments infers $_';
  is oct, "16", 'bigrat oct override without arguments infers $_';
  @_ = 1..20;
  is hex(@_), "32", 'bigrat hex override provides scalar context';
  is oct(@_), "16", 'bigrat oct override provides scalar context';
  SKIP:
    {
    skip "no lexical hex/oct", 2 unless $] > 5.009004;
    is ref hex(1), 'Math::BigInt',
      'bigrat hex() works when bignum and bigint are loaded';
    is ref oct(1), 'Math::BigInt',
      'bigrat oct() works when bignum and bigint are loaded';
    }
}

$hex_called = 0;
() = hex 0;
is $hex_called, 1, 'existing hex overrides are called';
$oct_called = 0;
() = oct 0;
is $oct_called, 1, 'existing oct overrides are called';

{
  package _importer;
  {
    use bigint 'hex', 'oct';
    ::is \&hex, \&bigint::hex, 'exported hex function';
    ::is \&oct, \&bigint::oct, 'exported oct function';
  }
  ::ok ref hex(), 'exported hex function returns ref outside pragma scope';
  ::ok ref oct(), 'exported oct function returns ref outside pragma scope';
  ::is oct("20"), "16", 'exported oct function works with "decimal"';
    # (used to return 20 because it thought it was decimal)
}
{
  package _importer2;
  use bignum 'hex', 'oct';
  ::is \&hex, \&bignum::hex, 'bignum exports hex';
  ::is \&oct, \&bignum::oct, 'bignum exports oct';
  ::is \&hex, \&bigint::hex, 'bignum exports same hex as bigint';
  ::is \&oct, \&bigint::oct, 'bignum exports same oct as bigint';
}
{
  package _importer3;
  use bigrat 'hex', 'oct';
  ::is \&hex, \&bigrat::hex, 'bigrat exports hex';
  ::is \&oct, \&bigrat::oct, 'bigrat exports oct';
  ::is \&hex, \&bigint::hex, 'bigrat exports same hex as bigint';
  ::is \&oct, \&bigint::oct, 'bigrat exports same oct as bigint';
}
is ref(hex 0), "", 'hex export is not global';
is ref(oct 0), "", 'oct export is not global';