Perlito5 - XS - organize tests a bit

Author: sbertrang

t5-xs/Makefile

@@ -1,19 +1,32 @@
 
-CODE =	package Some::Thing;
-#CODE +=	sub foo { my $$something = 21; return $$something * 2; }
-CODE +=	sub foo { warn( "MOO" ) }
-#CODE +=	sub foo { my $$something = [qw[ Hello World ]]; return $$something }
-#CODE +=	sub bar { my @something = qw( Hello World ); return \@something }
+# keep names uppercase and a single word to keep the makefile simple
+TESTS +=	ReturnHelloWorld
+TESTS +=	ReturnArray
+TESTS +=	ReturnArrayRef
+TESTS +=	Warn
 
 all: rebuild test
 
-test:
-	perl ../perlito5.pl -I../src5/lib -Cast-perl5 -e '${CODE}'
-	test -d Some-Thing || h2xs --skip-ppport -An Some::Thing
-	perl ../perlito5.pl -I../src5/lib -Cxs -e '${CODE}' > Some-Thing/Thing.xs
-	cd Some-Thing && perl Makefile.PL && make test TEST_VERBOSE=1
+test: ${TESTS:%=test-%}
 
+# to strip leading "test-" in target rule from target name
+TEST = ${@:test-%=%}
+
+# prepend "test-" to all test targets
+${TESTS:%=test-%}:
+	perl ../perlito5.pl -I../src5/lib -Cast-perl5 ${TEST}.pl
+	test -d ${TEST} || ( \
+		h2xs --skip-ppport -An ${TEST} && \
+		cd ${TEST} && echo -e "use Test::More tests => 2;\nBEGIN { use_ok('${TEST}') }\nok( ${TEST}::test() );" > \
+		    t/${TEST}.t \
+	)
+	perl ../perlito5.pl -I../src5/lib -Cxs ${TEST}.pl > ${TEST}/${TEST}.xs
+	cd ${TEST} && perl Makefile.PL && make test TEST_VERBOSE=1
 
 rebuild:
 	cd ../ && make build-5to5
 
+clean:
+	-for D in ${TESTS}; do \
+	    ( cd $${D} && make clean; rm -f Makefile.old ); \
+	done

t5-xs/ReturnArray.pl

@@ -0,0 +1,9 @@
+package ReturnArray;
+
+sub test
+{
+	my @something = qw[ Hello World ];
+
+	return @something;
+}
+

t5-xs/ReturnArray/Changes

@@ -0,0 +1,6 @@
+Revision history for Perl extension ReturnArray.
+
+0.01  Fri Aug 16 20:53:40 2013
+	- original version; created by h2xs 1.23 with options
+		--skip-ppport -An ReturnArray
+

t5-xs/ReturnArray/MANIFEST

@@ -0,0 +1,7 @@
+Changes
+Makefile.PL
+MANIFEST
+README
+ReturnArray.xs
+t/ReturnArray.t
+lib/ReturnArray.pm

t5-xs/ReturnArray/Makefile.PL

@@ -0,0 +1,18 @@
+use 5.012002;
+use ExtUtils::MakeMaker;
+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
+# the contents of the Makefile that is written.
+WriteMakefile(
+    NAME              => 'ReturnArray',
+    VERSION_FROM      => 'lib/ReturnArray.pm', # finds $VERSION
+    PREREQ_PM         => {}, # e.g., Module::Name => 1.1
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM  => 'lib/ReturnArray.pm', # retrieve abstract from module
+       AUTHOR         => 'A. U. Thor <simon@>') : ()),
+    LIBS              => [''], # e.g., '-lm'
+    DEFINE            => '', # e.g., '-DHAVE_SOMETHING'
+	# Insert -I. if you add *.h files later:
+    INC               => '', # e.g., '-I/usr/include/other'
+	# Un-comment this if you add C files to link with later:
+    # OBJECT            => '$(O_FILES)', # link all the C files too
+);

t5-xs/ReturnArray/README

@@ -0,0 +1,40 @@
+ReturnArray version 0.01
+========================
+
+The README is used to introduce the module and provide instructions on
+how to install the module, any machine dependencies it may have (for
+example C compilers and installed libraries) and any other information
+that should be provided before the module is installed.
+
+A README file is required for CPAN modules since CPAN extracts the
+README file from a module distribution so that people browsing the
+archive can use it get an idea of the modules uses. It is usually a
+good idea to provide version information here so that people can
+decide whether fixes for the module are worth downloading.
+
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+  blah blah blah
+
+COPYRIGHT AND LICENCE
+
+Put the correct copyright and licence information here.
+
+Copyright (C) 2013 by A. U. Thor
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.12.2 or,
+at your option, any later version of Perl 5 you may have available.
+
+

t5-xs/ReturnArray/ReturnArray.xs

@@ -0,0 +1,14 @@
+/* Do not edit this file - Generated by Perlito5 9.0 */
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+MODULE = ReturnArray PACKAGE = ReturnArray
+void test ()
+PPCODE:
+    SV *something = (newSVpv("Hello", 0), newSVpv("World", 0));
+    PUSHs(something);
+
+
+
+

t5-xs/Some-Thing/lib/Some/Thing.pm renamed to t5-xs/ReturnArray/lib/ReturnArray.pm

@@ -1,4 +1,4 @@
-package Some::Thing;
+package ReturnArray;
 
 use 5.012002;
 use strict;
@@ -12,7 +12,7 @@ our @ISA = qw(Exporter);
 # names by default without a very good reason. Use EXPORT_OK instead.
 # Do not simply export all your public functions/methods/constants.
 
-# This allows declaration	use Some::Thing ':all';
+# This allows declaration	use ReturnArray ':all';
 # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
 # will save memory.
 our %EXPORT_TAGS = ( 'all' => [ qw(
@@ -28,7 +28,7 @@ our @EXPORT = qw(
 our $VERSION = '0.01';
 
 require XSLoader;
-XSLoader::load('Some::Thing', $VERSION);
+XSLoader::load('ReturnArray', $VERSION);
 
 # Preloaded methods go here.
 
@@ -38,16 +38,16 @@ __END__
 
 =head1 NAME
 
-Some::Thing - Perl extension for blah blah blah
+ReturnArray - Perl extension for blah blah blah
 
 =head1 SYNOPSIS
 
-  use Some::Thing;
+  use ReturnArray;
   blah blah blah
 
 =head1 DESCRIPTION
 
-Stub documentation for Some::Thing, created by h2xs. It looks like the
+Stub documentation for ReturnArray, created by h2xs. It looks like the
 author of the extension was negligent enough to leave the stub
 unedited.
 

t5-xs/ReturnArray/t/ReturnArray.t

@@ -0,0 +1,5 @@
+use Test::More tests => 3;
+BEGIN { use_ok('ReturnArray') }
+my @word = ReturnArray::test();
+is( $word[0], "Hello" );
+is( $word[1], "World" );

t5-xs/ReturnArrayRef.pl

@@ -0,0 +1,9 @@
+package ReturnArrayRef;
+
+sub test
+{
+	my $something = [qw[ Hello World ]];
+
+	return $something;
+}
+