Group
Extension

Matches 64

Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/copy-mbf.t ( view source; MetaCPAN )
k(defined($y), '$y is defined');
    is(ref($y), 'Math::BigFloat', '$y has the right class');
    isnt(refaddr($y), refaddr($x), '$y is a different object than $x');

    # sign

    ok(defined($y->{s
,
       'mantissa of $y and $x use the same reference type');
    isnt(ref($y->{_m}), '', 'mantissa of $y is a reference');
    isnt(refaddr($y->{_m}), refaddr($x->{_m}),
      'mantissa of $y is not
onent mantissa of $y and $x use the same reference type');
    isnt(ref($y->{_e}), '', 'exponent mantissa of $y is a reference');
    isnt(refaddr($y->{_e}), refaddr($x->{_e}),
      'exponent mantiss
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/copy-mbi.t ( view source; MetaCPAN )
 ok(defined($y), '$y is defined');
    is(ref($y), 'Math::BigInt', '$y has the right class');
    isnt(refaddr($y), refaddr($x), '$y is a different object than $x');

    # sign

    ok(defined($y->{s

       'mantissa of $y and $x use the same reference type');
    isnt(ref($y->{value}), '', 'mantissa of $y is a reference');
    isnt(refaddr($y->{value}), refaddr($x->{value}),
      'mantissa of $
 ok(defined($y), '$y is defined');
    is(ref($y), 'Math::BigInt', '$y has the right class');
    isnt(refaddr($y), refaddr($x), '$y is a different object than $x');

    # sign

    ok(defined($y->{s
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-ternary-_modpow.t ( view source; MetaCPAN )
 2 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg");

            isnt(refaddr($got[0]), refaddr($m),
       
, 2 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");

            isnt(refaddr($got), refaddr($m),
            
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-binary-_sub.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($x),
                 "'$test' output arg is not the first input arg");
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-binary-_sub.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($x),
             "'$test' output arg is not the first input arg")
    
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-ternary-_modpow.t ( view source; MetaCPAN )
 the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
          if $scalar_util_ok;

        isnt(refaddr($got[0]), refaddr($m
as the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
          if $scalar_util_ok;

        isnt(refaddr($got), refaddr($m),
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-binary-_div.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' first output arg is not the second input
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[1]), refaddr($y),
                 "'$test' second output arg is not the second inpu
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-binary-_div.t ( view source; MetaCPAN )
($LIB->_str($got[0]), $out0,
           "'$test' first output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' first output arg is not the second input arg
$LIB->_str($got[1]), $out1,
           "'$test' second output arg has the right value");

        isnt(refaddr($got[1]), refaddr($y),
             "'$test' second output arg is not the second input ar
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-bitwise-_and.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/as_rat-mbf.t ( view source; MetaCPAN )

    is(ref($y), 'Math::BigRat', '$y is a Math::BigRat');
    cmp_ok($y, "==", 2, '$y == 2');
    isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};

$x = Math::BigFloat -> new("2.5
 is(ref($y), 'Math::BigRat', '$y is a Math::BigRat');
    cmp_ok($y, "==", 2.5, '$y == 2.5');
    isnt(refaddr($x), refaddr($y), '$x and $y are different objects');
};

note("as_rat() returns a Math::
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-binary-_mod.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-binary-_root.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-binary-_add.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-bitwise-_and.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-ternary-_lsft.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-binary-_nok.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-property-_alen.t ( view source; MetaCPAN )
 arg");

        is(ref($got[0]), "",
           "'$test' output arg is a Perl scalar");

        isnt($got[0], undef,
             "'$test' output arg is defined");

        like($got[0], qr/^[+-]?(\
ests => 4,

        is(ref($got), "",
           "'$test' output arg is a Perl scalar");

        isnt($got, undef,
             "'$test' output arg is defined");

        like($got, qr/^[+-]?(\d+(\.\
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-binary-_pow.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/xt/author/lib-arithmetic-binary-_gcd.t ( view source; MetaCPAN )
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got[0]), refaddr($y),
                 "'$test' output arg is not the second input arg")
    SKIP: {
            skip "Scalar::Util not available", 1 unless $scalar_util_ok;

            isnt(refaddr($got), refaddr($y),
                 "'$test' output arg is not the second input arg");
 
Math-BigInt ( P/PJ/PJACKLAM/Math-BigInt-1.999837.tar.gz, PJACKLAM, 2022; MetaCPAN )
Math-BigInt/t/author-lib-arithmetic-ternary-_lsft.t ( view source; MetaCPAN )
    is($LIB->_str($got[0]), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got[0]), refaddr($y),
             "'$test' output arg is not the second input arg")
   
       is($LIB->_str($got), $out0,
           "'$test' output arg has the right value");

        isnt(refaddr($got), refaddr($y),
             "'$test' output arg is not the second input arg")
      

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.