view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

		#include "EXTERN.h"
		#include "perl.h"
		#include "XSUB.h"
		#include "foo.h"
		#include "bar.h"

		#ifndef FOO
		#error Did not import compiler flags
		#endif

		MODULE = Foo::Bar                PACKAGE = Foo::Bar

		const char*
		foo()
			CODE:
			RETVAL = foo();
			OUTPUT:
			RETVAL
		---
	$dist->add_file('include/foo.h', undent(<<'		---'));
		char* foo();
		---
	$dist->add_file('inc/auto/share/module/TestLib/include/bar.h', undent(<<'		---'));
		#define BAR 1
		---
	$dist->add_file('inc/auto/share/module/TestLib/compile.json', undent(<<'		---'));
		{ "defines": { "FOO": "ABC" } }
		---
	$dist->add_file('src/foo.c', undent(<<'		---'));
		char* foo() {
			return "Hello World!\n";
		}
		---
	$dist->add_file('planner/xs.pl', undent(<<'		---'));
		use lib 'inc';
		load_extension("Dist::Build::XS");
		load_extension("Dist::Build::XS::Export");
		load_extension("Dist::Build::XS::Import");

		export_headers(dir => 'include');
		export_flags(extra_compiler_flags => [ '-Wall' ]);

		add_xs(
			include_dirs  => [ 'include' ],
			extra_sources => [ glob 'src/*.c' ],
			import        => [ 'TestLib' ],
		);
		---
}

$dist->regen;

my $interpreter = ($Config{startperl} eq $^X )
                ? qr/#!\Q$^X\E/
                : qr/(?:#!\Q$^X\E|\Q$Config{startperl}\E)/;
my ($guts, $ec);

sub _mod2pm   { (my $mod = shift) =~ s{::}{/}g; return "$mod.pm" }
sub _path2mod { (my $pm  = shift) =~ s{/}{::}g; return substr $pm, 5, -3 }
sub _mod2dist { (my $mod = shift) =~ s{::}{-}g; return $mod; }
sub _slurp { do { local (@ARGV,$/)=$_[0]; <> } }

#--------------------------------------------------------------------------#
# configure
#--------------------------------------------------------------------------#

{
  ok(my $pid = open2(my ($in, $out), $^X, 'Build.PL', '--install_base', 'install'), 'Running Build.PL') or BAIL_OUT("Couldn't run Build.PL");
  my $output = do { local $/;  <$in> };

  is(waitpid($pid, 0), $pid, 'Ran Build.PL successfully');
  is($?, 0, 'Build returned 0') or BAIL_OUT("");
  like($output, qr/Creating new 'Build' script for 'Foo-Bar' version '0.001'/, 'Output as expected');

  ok( -f 'Build', "Build created" );
  if ($^O eq 'MSWin32') {
    ok( -f 'Build.bat', 'Build is executable');
  }
  else {
    ok( -x 'Build', "Build is executable" );
  }

  open my $fh, "<", "Build";
  my $line = <$fh>;

  like( $line, qr{\A$interpreter}, "Build has shebang line with \$^X" );
  ok( -f '_build/params', "_build/params created" );
  ok( -f '_build/graph', "_build/graph created" );
}

#--------------------------------------------------------------------------#
# build
#--------------------------------------------------------------------------#

{
  ok( my $pid = open2(my($in, $out), $^X, 'Build'), 'Can run Build' );
  my $output = do { local $/; <$in> };
  is( waitpid($pid, 0), $pid, 'Could run Build');
  is($?, 0, 'Build returned 0');
  my $filename = catfile(qw/lib Foo Bar.pm/);
  like($output, qr{\Q$filename}, 'Build output looks correctly');
  ok( -d 'blib',        "created blib" );
  ok( -d 'blib/lib',    "created blib/lib" );
  ok( -d 'blib/script', "created blib/script" );

  # check pm
  my $pmfile = _mod2pm($dist->name);
  ok( -f 'blib/lib/' . $pmfile, "$dist->{name} copied to blib" );
  is( _slurp("lib/$pmfile"), _slurp("blib/lib/$pmfile"), "pm contents are correct" );
  is((stat "blib/lib/$pmfile")[2] & 0222, 0, "pm file in blib is readonly" );

  # check bin
  ok( -f 'blib/script/simple', "bin/simple copied to blib" );
  like( _slurp("blib/script/simple"), '/' .quotemeta(_slurp("blib/script/simple")) . "/", "blib/script/simple contents are correct" );
  if ($^O eq 'MSWin32') {
    ok( -f "blib/script/simple.bat", "blib/script/simple is executable");
  }
  else {
    ok( -x "blib/script/simple", "blib/script/simple is executable" );
  }
  is((stat "blib/script/simple")[2] & 0222, 0, "script in blib is readonly" );