view release on metacpan or  search on metacpan

t/30-weave-file.t  view on Meta::CPAN

        "$test_name passes a pod_document" );

    #
    #  3: is filename right?
    is( $weaver_args->{ filename }, $copied_file,
        "$test_name passes correct filename" );

    #
    #  4: is version right?
    is( $weaver_args->{ version }, '1.00',
        "$test_name passes correct version" );

    #
    #  5: is license right?
    is_deeply( $weaver_args->{ license }, $license,
        "$test_name passes correct license" );


    #
    #  Check output
    #

    #
    #  6: was original file unchanged?
    my $contents =
        do { local $/; open my $fh, '<', $copied_file;    <$fh> };
    eq_or_diff( $contents, $original_contents,
        "$test_name left original file unchanged" );

    if( $unchanged )
    {
        #
        #  7: does output file exist?
        ok( ( not -e $woven_file ), "$test_name skips unchanged output file" );
    }
    else
    {
        SKIP:
        {
            #
            #  7: does output file exist?
            skip 'No output file produced', 1
                unless ok( ( -e $woven_file ),
                    "$test_name produces output file" );

            #
            #  8: does output file match expected?
            my $expected =
                do { local $/; open my $fh, '<', $expected_file; <$fh> };
            my $woven    =
                do { local $/; open my $fh, '<', $woven_file;    <$fh> };
            eq_or_diff( $woven, $expected,
                "$test_name produces correct output" );

        }
    }
}

#  TODO: test new => 1
#  TODO: test new default
#  TODO: test no_backup => 1
#  TODO: test no_backup default