view release on metacpan or  search on metacpan

t/07_run_two.t  view on Meta::CPAN

#!/usr/bin/perl

use Test::More tests => 3;
use File::Spec;
use File::Temp;
use File::Basename;

my $module = 'EPublisher';
use_ok( $module );

my $debug = "";

my $dir       = File::Spec->rel2abs( dirname( __FILE__ ) );
my $include   = File::Spec->catfile( $dir, 'lib' );
my $txt       = File::Temp->new;

$txt->unlink_on_destroy( 1 );

my $config = {
    Test => {
        source => {
          type => 'Module',
          lib  => [ $include ],
          name => 'Text',
        },
        target => {
            type => 'Text',
            output => $txt->filename,
        },
    }
};

my $obj = $module->new( debug => \&debug );
$obj->{__config} = $config;

$obj->run( ['Test'] );

my $check = q!100: Module 101: =pod

=head1 Text - a test library for text output 200: Text !;
is( $debug, $check, 'debug' );


my $txt_check   = "Text - a test library for text output\n    Ein Absatz im POD.\n\n";
my $txt_content = do{ local( @ARGV, $/) = $txt->filename; <> };
is ( $txt_content, $txt_check, 'check generated text' );

sub debug{
    $debug .= $_[0] . " ";
}