# New Ticket Created by "Paul Cochrane"
# Please include the string: [perl #40545]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40545 >
Hi,
This patch adds tests for yacc, lex and pmc files to the
Parrot::Distribution tests and fixes the test for a file dummy.c not
existing which was giving a false positive.
Comments welcome,
Paul
files affected:
t/perl/Parrot_Distribution.t
Index: t/perl/Parrot_Distribution.t
===================================================================
--- t/perl/Parrot_Distribution.t (revision 14906)
+++ t/perl/Parrot_Distribution.t (working copy)
@@ -5,7 +5,7 @@
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
-use Test::More 'tests' => 8;
+use Test::More 'tests' => 14;
=head1 NAME
@@ -31,10 +31,19 @@
isa_ok($d, 'Parrot::Docs::Directory');
ok($d->c_source_file_with_name('pf_items'), 'C source file');
-ok( ! $d->c_source_file_with_name('dummy'), 'C source file not there');
+ok( ! $d->c_source_file_with_name('moomoo'), 'C source file not there');
ok($d->c_header_file_with_name('parrot'), 'C header file');
-ok( ! $d->c_header_file_with_name('dummy'), 'C header file not there');
+ok( ! $d->c_header_file_with_name('moomoo'), 'C header file not there');
+ok($d->pmc_source_file_with_name('parrotinterpreter'), 'PMC code');
+ok( ! $d->pmc_source_file_with_name('moomoo'), 'PMC code file not there');
+
+ok($d->yacc_source_file_with_name('imcc'), 'Yacc code');
+ok( ! $d->yacc_source_file_with_name('moomoo'), 'Yacc code file not there');
+
+ok($d->lex_source_file_with_name('imcc'), 'Lex code');
+ok( ! $d->lex_source_file_with_name('moomoo'), 'Lex code file not there');
+
ok($d->file_for_perl_module('Parrot::Docs::Section::Parrot'), 'Perl module file');
ok( ! $d->file_for_perl_module('Parrot::Dummy'), 'Perl module file not there');
