From bfc0a3e7042c488530b56956cb61c2000b4e0efa Mon Sep 17 00:00:00 2001 From: Chris 'BinGOs' Williams Date: Sat, 26 Jan 2013 12:46:44 +0000 Subject: Teach makemeta to use CPAN::Meta to generate both META.json and META.yml --- t/porting/regen.t | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 't/porting') diff --git a/t/porting/regen.t b/t/porting/regen.t index 221ff17841..ec92dd34ab 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -18,9 +18,9 @@ if ( $^O eq "VMS" ) { my $in_regen_pl = 23; # I can't see a clean way to calculate this automatically. my @files = qw(perly.act perly.h perly.tab keywords.c keywords.h uconfig.h); -my @progs = qw(Porting/makemeta regen/regcharclass.pl regen/mk_PL_charclass.pl); +my @progs = qw(regen/regcharclass.pl regen/mk_PL_charclass.pl); -plan (tests => $in_regen_pl + @files + @progs); +plan (tests => $in_regen_pl + @files + @progs + 2); OUTER: foreach my $file (@files) { open my $fh, '<', $file or die "Can't open $file: $!"; @@ -47,3 +47,7 @@ OUTER: foreach my $file (@files) { foreach (@progs, 'regen.pl') { system "$^X $_ --tap"; } + +foreach ( 'META.yml', 'META.json' ) { + system "$^X Porting/makemeta --tap $_"; +} -- cgit v1.2.1