}
}
-plan tests => 116;
+plan tests => 202;
use t::common qw( new_fh );
use File::Spec;
'0-983',
'0-99_04',
'1-0000',
+ '1-0003',
);
my @output_versions = (
'0.91', '0.92', '0.93', '0.94', '0.95', '0.96', '0.97', '0.98',
'0.981', '0.982', '0.983',
'0.99_01', '0.99_02', '0.99_03', '0.99_04',
- '1.00', '1.000', '1.0000',
+ '1.00', '1.000', '1.0000', '1.0001', '1.0002',
+ '1.0003', '1.0004', '1.0005',
);
foreach my $input_filename (
eval "use DBM::Deep::09830";
$db = DBM::Deep::09830->new( $output_filename );
}
- elsif ( $v =~ /^1/ ) {
+ elsif ( $v =~ /^1\.000?[0-2]?/ ) {
+ push @INC, File::Spec->catdir( 'utils', 'lib' );
+ eval "use DBM::Deep::10002";
+ $db = DBM::Deep::10002->new( $output_filename );
+ }
+ elsif ( $v =~ /^1\.000[3-5]/ ) {
push @INC, 'lib';
eval "use DBM::Deep";
$db = DBM::Deep->new( $output_filename );
#XXX This needs to be made OS-portable
sub run_prog {
- open( my $fh, '-|', "@_ 2>&1" )
+ open( my $fh, '-|', "$^X @_ 2>&1" )
or die "Cannot launch '@_' as a piped filehandle: $!\n";
return join '', <$fh>;
}