The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use lib 'lib';
use Test::More tests => 4;
use_ok( 'CPAN::Source' );

my $source = CPAN::Source->new( 
    mirror => 'http://cpan.nctu.edu.tw',
    cache_path => '.cache' , 
    cache_expiry => '14 days' );

ok( $source );
ok( $source->stamp );
ok( $source->stamp->isa('DateTime') );