view release on metacpan or  search on metacpan

t/datetime.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';

use TestHelper qw( doc );
use Test::More import => [qw( done_testing is )];
use Test::Needs qw( DateTime );

my ($doc) = doc( filename => 'test-data/datetime.pl' );

my $expected = <<'EOF';
use strict;
use warnings;

use DateTime ();

my $dt = DateTime->now;
EOF

is( $doc->tidied_document, $expected, 'DateTime does not import' );

done_testing();