Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
lib	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
testdata	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
00compile.t	929 B	-r--r--r--	2014-12-27 11:48
01perl_bugs.t	539 B	-r--r--r--	2014-12-27 11:48
FIRST_MAKEFILE.t	808 B	-r--r--r--	2014-12-27 11:49
INST.t	4.72 KB	-r--r--r--	2014-12-27 11:48
INSTALL_BASE.t	2.01 KB	-r--r--r--	2014-12-27 11:49
INST_PREFIX.t	9.07 KB	-r--r--r--	2014-12-27 11:48
Liblist.t	670 B	-r--r--r--	2014-12-27 11:48
META_for_testing.json	1.39 KB	-r--r--r--	2014-12-27 11:48
META_for_testing.yml	839 B	-r--r--r--	2014-12-27 11:48
META_for_testing_tricky_version.yml	574 B	-r--r--r--	2014-12-27 11:48
MM_Any.t	747 B	-r--r--r--	2014-12-27 11:48
MM_BeOS.t	1.04 KB	-r--r--r--	2014-12-27 11:48
MM_Cygwin.t	3.2 KB	-r--r--r--	2014-12-27 11:48
MM_NW5.t	7.68 KB	-r--r--r--	2014-12-27 11:48
MM_OS2.t	6.79 KB	-r--r--r--	2014-12-27 11:48
MM_Unix.t	5.63 KB	-r--r--r--	2014-12-27 11:49
MM_VMS.t	1.62 KB	-r--r--r--	2014-12-27 11:48
MM_Win32.t	10.83 KB	-r--r--r--	2014-12-27 11:48
MakeMaker_Parameters.t	1.57 KB	-r--r--r--	2014-12-27 11:49
Mkbootstrap.t	3.91 KB	-r--r--r--	2014-12-27 11:48
PL_FILES.t	797 B	-r--r--r--	2014-12-27 11:49
VERSION_FROM.t	599 B	-r--r--r--	2014-12-27 11:48
WriteEmptyMakefile.t	655 B	-r--r--r--	2014-12-27 11:48
arch_check.t	1.92 KB	-r--r--r--	2014-12-27 11:48
backwards.t	354 B	-r--r--r--	2014-12-27 11:48
basic.t	14.61 KB	-r--r--r--	2014-12-27 11:49
build_man.t	1.65 KB	-r--r--r--	2014-12-27 11:48
cd.t	1.15 KB	-r--r--r--	2014-12-27 11:49
config.t	261 B	-r--r--r--	2014-12-27 11:48
dir_target.t	256 B	-r--r--r--	2014-12-27 11:48
echo.t	2.48 KB	-r--r--r--	2014-12-27 11:49
fix_libs.t	693 B	-r--r--r--	2014-12-27 11:48
fixin.t	2.39 KB	-r--r--r--	2014-12-27 11:48
hints.t	1.47 KB	-r--r--r--	2014-12-27 11:48
installed_file.t	933 B	-r--r--r--	2014-12-27 11:48
is_of_type.t	842 B	-r--r--r--	2014-12-27 11:48
make.t	271 B	-r--r--r--	2014-12-27 11:48
maketext_filter.t	905 B	-r--r--r--	2014-12-27 11:48
meta_convert.t	3.35 KB	-r--r--r--	2014-12-27 11:49
metafile_data.t	22.35 KB	-r--r--r--	2014-12-27 11:48
metafile_file.t	7.37 KB	-r--r--r--	2014-12-27 11:48
min_perl_version.t	6.03 KB	-r--r--r--	2014-12-27 11:49
miniperl.t	1.12 KB	-r--r--r--	2014-12-27 11:49
oneliner.t	2.07 KB	-r--r--r--	2014-12-27 11:49
parse_abstract.t	1.59 KB	-r--r--r--	2014-12-27 11:48
parse_version.t	4.78 KB	-r--r--r--	2014-12-27 11:49
pm.t	741 B	-r--r--r--	2014-12-27 11:48
pm_to_blib.t	1.51 KB	-r--r--r--	2014-12-27 11:49
pod2man.t	904 B	-r--r--r--	2014-12-27 11:48
postamble.t	1.61 KB	-r--r--r--	2014-12-27 11:49
prefixify.t	1.23 KB	-r--r--r--	2014-12-27 11:48
prereq.t	3.36 KB	-r--r--r--	2014-12-27 11:49
prereq_print.t	1.91 KB	-r--r--r--	2014-12-27 11:48
problems.t	972 B	-r--r--r--	2014-12-27 11:48
prompt.t	1.24 KB	-r--r--r--	2014-12-27 11:48
recurs.t	2.9 KB	-r--r--r--	2014-12-27 11:49
revision.t	411 B	-r--r--r--	2014-12-27 11:48
several_authors.t	3.55 KB	-r--r--r--	2014-12-27 11:49
split_command.t	1.44 KB	-r--r--r--	2014-12-27 11:48
test_boilerplate.t	389 B	-r--r--r--	2014-12-27 11:48
testlib.t	784 B	-r--r--r--	2014-12-27 11:48
writemakefile_args.t	7.01 KB	-r--r--r--	2014-12-27 11:49
xs.t	999 B	-r--r--r--	2014-12-27 11:49

Rename

#!/usr/bin/perl -w

BEGIN {
    unshift @INC, 't/lib/';
}
chdir 't';

use vars qw( $required );
use Test::More tests => 18;

BEGIN { use_ok( 'ExtUtils::Mkbootstrap' ) }

# Mkbootstrap makes a backup copy of "$_[0].bs" if it exists and is non-zero
my $file_is_ready;
local *OUT;
if (open(OUT, '>mkboot.bs')) {
	$file_is_ready = 1;
	print OUT 'meaningless text';
	close OUT;
}

SKIP: {
	skip("could not make dummy .bs file: $!", 2) unless $file_is_ready;

Mkbootstrap('mkboot');
	ok( -s 'mkboot.bso', 'Mkbootstrap should backup the .bs file' );
	local *IN;
	if (open(IN, 'mkboot.bso')) {
		chomp ($file_is_ready = <IN>);
		close IN;
	}

is( $file_is_ready, 'meaningless text', 'backup should be a perfect copy' );
}

# if it doesn't exist or is zero bytes in size, it won't be backed up
Mkbootstrap('fakeboot');
ok( !( -f 'fakeboot.bso' ), 'Mkbootstrap should not backup an empty file' );

use TieOut;
my $out = tie *STDOUT, 'TieOut';

# with $Verbose set, it should print status messages about libraries
$ExtUtils::Mkbootstrap::Verbose = 1;
Mkbootstrap('');
is( $out->read, "\tbsloadlibs=\n", 'should report libraries in Verbose mode' );

Mkbootstrap('', 'foo');
like( $out->read, qr/bsloadlibs=foo/, 'should still report libraries' );

# if ${_[0]}_BS exists, require it
$file_is_ready = open(OUT, '>boot_BS');

SKIP: {
	skip("cannot open boot_BS for writing: $!", 1) unless $file_is_ready;

print OUT '$main::required = 1';
	close OUT;
	Mkbootstrap('boot');

ok( $required, 'baseext_BS file should be require()d' );
}

# if there are any arguments, open a file named baseext.bs
$file_is_ready = open(OUT, '>dasboot.bs');

SKIP: {
	skip("cannot make dasboot.bs: $!", 5) unless $file_is_ready;

# if it can't be opened for writing, we want to prove that it'll die
	close OUT;
	chmod 0444, 'dasboot.bs';

SKIP: {
	    skip("cannot write readonly files", 1) if -w 'dasboot.bs';

eval{ Mkbootstrap('dasboot', 1) };
	    like( $@, qr/Unable to open dasboot\.bs/, 'should die given bad filename' );
	}

# now put it back like it was
	chmod 0777, 'dasboot.bs';
	eval{ Mkbootstrap('dasboot', 'myarg') };
	is( $@, '', 'should not die, given good filename' );

# red and reed (a visual pun makes tests worth reading)
	my $read = $out->read();
	like( $read, qr/Writing dasboot.bs/, 'should print status' );
	like( $read, qr/containing: my/, 'should print verbose status on request' );

# now be tricky, and set the status for the next skip block
	$file_is_ready = open(IN, 'dasboot.bs');
	ok( $file_is_ready, 'should have written a new .bs file' );
}

SKIP: {
	skip("cannot read .bs file: $!", 2) unless $file_is_ready;

my $file = do { local $/ = <IN> };

# filename should be in header
	like( $file, qr/# dasboot DynaLoader/, 'file should have boilerplate' );

# should print arguments within this array
	like( $file, qr/qw$myarg$;/, 'should have written array to file' );
}

# overwrite this file (may whack portability, but the name's too good to waste)
$file_is_ready = open(OUT, '>dasboot.bs');

SKIP: {
	skip("cannot make dasboot.bs again: $!", 1) unless $file_is_ready;
	close OUT;

# if $DynaLoader::bscode is set, write its contents to the file
    local $DynaLoader::bscode;
	$DynaLoader::bscode = 'Wall';
	$ExtUtils::Mkbootstrap::Verbose = 0;

# if arguments contain '-l' or '-L' or '-R' print dl_findfile message
	eval{ Mkbootstrap('dasboot', '-Larry') };
	is( $@, '', 'should be able to open a file again');

$file_is_ready = open(IN, 'dasboot.bs');
}

SKIP: {
	skip("cannot open dasboot.bs for reading: $!", 3) unless $file_is_ready;

my $file = do { local $/ = <IN> };
	is( $out->read, "Writing dasboot.bs\n", 'should hush without Verbose set' );

# and find our hidden tribute to a fine example
	like( $file, qr/dl_findfile.+Larry/s, 'should load libraries if needed' );
	like( $file, qr/Wall\n1;\n/ms, 'should write $DynaLoader::bscode if set' );
}

close IN;
close OUT;

END {
	# clean things up, even on VMS
	1 while unlink(qw( mkboot.bso boot_BS dasboot.bs .bs ));
}