view release on metacpan or  search on metacpan

t/00_CPANPLUS-Internals-Utils.t  view on Meta::CPAN

    ok( $version,                       "Perl version found" );
    like( $version, qr/\d.\d+.\d+/,     "   Looks like a proper version" );
}

### _version_to_number tests ###
{   my $map = {
        '1'      => '1',
        '1.2'    => '1.2',
        '.2'     => '.2',
        'foo'    => '0.0',
        'a.1'    => '0.0',
        '1.2.3'  => '1.002003',
        'v1.2.3' => '1.002003',
        'v1.5'   => '1.005000',
        '1.5-a'  => '1.500',
    };

    while( my($try,$expect) = each %$map ) {
        my $ver = $Class->_version_to_number( version => $try );
        ok( $ver,                       "Version returned" );
        is( $ver, $expect,              "   Value as expected" );
    }
}

### _whoami tests ###
{   sub foo {
        my $me = $Class->_whoami;
        ok( $me,                        "_whoami returned a result" );
        is( $me, 'foo',                 "   Value as expected" );
    }

    foo();
}

### _mode_plus_w tests ###
{   open my $fh, ">$File" or die "Could not open $File for writing: $!";
    close $fh;

    ### remove perms
    ok( -e $File,               "File '$File' created" );
    ok( chmod( 000, $File ),    "   File permissions set to 000" );

    ok( $Class->_mode_plus_w( file => $File ),
                                "   File permissions set to +w" );
    ok( -w $File,               "   File is writable" );

    1 while unlink $File;

    ok( !-e $File,              "   File removed" );
}

### uri encode/decode tests
{   my $org = 'file://foo/bar';

    my $enc = $Class->_uri_encode( uri => $org );

    ok( $enc,                   "String '$org' encoded" );
    like( $enc, qr/%/,          "   Contents as expected" );

    my $dec = $Class->_uri_decode( uri => $enc );
    ok( $dec,                   "String '$enc' decoded" );
    is( $dec, $org,             "   Decoded properly" );
}



# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4: