From be853209f9caa3b6d8f87ef8432c0108bb78f04e Mon Sep 17 00:00:00 2001 From: Erik Andreas Osheim Date: Thu, 9 Jul 2009 06:08:08 +0000 Subject: [PATCH] Import of ERIK/Test-Functional-0.02 from CPAN. gitpan-cpan-distribution: Test-Functional gitpan-cpan-version: 0.02 gitpan-cpan-path: ERIK/Test-Functional-0.02.tar.gz gitpan-cpan-author: ERIK gitpan-cpan-maturity: released --- Build.PL | 7 +++---- Changes | 9 +++++++-- MANIFEST | 4 ++-- META.yml | 8 ++++---- README | 10 +++++----- lib/Test/Functional.pm | 14 +++++++------- lib/Test/Functional/Conf.pm | 2 +- t/output.t | 2 +- 8 files changed, 30 insertions(+), 26 deletions(-) diff --git a/Build.PL b/Build.PL index 0931c3c..b9c2f29 100644 --- a/Build.PL +++ b/Build.PL @@ -3,9 +3,8 @@ use warnings; use Module::Build; # For the record, I'm not really sure what versions of any of these modules are -# required. I'm pretty sure this won't work with Perl 4. I'm not sure which -# Perl 5 is the minimum (if any); I haven't tested with perls under 5.8, but I -# bet 5.6 is fine. +# required. I'm pretty sure this won't work with Perls earlier than 5.6 due to +# the use of "our" etc. my $builder = Module::Build->new( module_name => 'Test::Functional', @@ -16,7 +15,7 @@ my $builder = Module::Build->new( 'Test::More' => 0, }, requires => { - 'perl' => '5.0.0', + 'perl' => '5.6.0', 'Data::Compare' => 0, 'Scalar::Quote' => 0, 'Test::Builder' => 0, diff --git a/Changes b/Changes index e5ec87b..cdd14b4 100644 --- a/Changes +++ b/Changes @@ -1,4 +1,9 @@ Revision history for Test-Functional -0.01 Date/time - First version, released on an unsuspecting world. +0.02 Thu Jul 9 02:01:57 EDT 2009 + - documentation bugs + - depend on perl >= 5.8.6 + - fix test issue + +0.01 Wed Jul 8 10:35:00 EDT 2009 + - initial release diff --git a/MANIFEST b/MANIFEST index f6a39a7..c9aee2f 100644 --- a/MANIFEST +++ b/MANIFEST @@ -2,7 +2,8 @@ Build.PL Changes lib/Test/Functional.pm lib/Test/Functional/Conf.pm -MANIFEST +Makefile.PL +MANIFEST This list of files META.yml README t/00-load.t @@ -11,4 +12,3 @@ t/Functional.t t/output.t t/pod-coverage.t t/pod.t -Makefile.PL diff --git a/META.yml b/META.yml index 78e73e1..5f1e71f 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- name: Test-Functional -version: 0.01 +version: 0.02 author: - 'Erik Osheim ' abstract: Perl tests in a functional style. @@ -12,16 +12,16 @@ requires: Scalar::Quote: 0 Test::Builder: 0 Test::More: 0 - perl: 5.0.0 + perl: 5.6.0 build_requires: Test::More: 0 provides: Test::Functional: file: lib/Test/Functional.pm - version: 0.01 + version: 0.02 Test::Functional::Conf: file: lib/Test/Functional/Conf.pm - version: 0.01 + version: 0.02 generated_by: Module::Build version 0.2808 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.2.html diff --git a/README b/README index c9499e1..8b21762 100644 --- a/README +++ b/README @@ -12,7 +12,7 @@ SYNOPSIS test { 2 * 2 } 4, "test-1"; test { 2 * 2 } eqv 4, "test-1"; - # test blocks can be as simple of as involved as you want + # test blocks can be as simple or as involved as you want test { 3 > 0 } true, "test-4"; test { my $total = 0; @@ -206,10 +206,10 @@ ETHOS testing?) this feature is invaluable. The various features to prematurely end the test (using *pretest()* - and/or $Test::Functional::FASTOUT) can help the developer to focus on - the problem at hand, rather than having to filter through spew [3]. This - is especially nice during test-driven development, or when trying to - increase coverage for an old and crufty module. + and/or "$Test::Functional::Conf->fastout") can help the developer to + focus on the problem at hand, rather than having to filter through spew + [3]. This is especially nice during test-driven development, or when + trying to increase coverage for an old and crufty module. AUTHOR Erik Osheim "" diff --git a/lib/Test/Functional.pm b/lib/Test/Functional.pm index 3c2667f..c120e92 100644 --- a/lib/Test/Functional.pm +++ b/lib/Test/Functional.pm @@ -3,7 +3,7 @@ package Test::Functional; use warnings FATAL => 'all'; use strict; -our $VERSION = '0.01'; +our $VERSION = '0.02'; =head1 NAME @@ -21,7 +21,7 @@ Test::Functional - Perl tests in a functional style. test { 2 * 2 } 4, "test-1"; test { 2 * 2 } eqv 4, "test-1"; - # test blocks can be as simple of as involved as you want + # test blocks can be as simple or as involved as you want test { 3 > 0 } true, "test-4"; test { my $total = 0; @@ -48,7 +48,7 @@ This modules uses (abuses?) the ability to create new syntax via perl prototypes to create a testing system focused on functions rather than values. Tests run blocks of Perl, and use comparator functions to test the output. Despite being a different way of thinking about tests, it plays well with -Test::More and friends. +L and friends. =cut use Data::Compare qw(Compare); @@ -419,10 +419,10 @@ might occur, just about the expected outcome [2]. Especially when trying to test other people's code (gray box testing?) this feature is invaluable. The various features to prematurely end the test (using I and/or -C<$Test::Functional::FASTOUT>) can help the developer to focus on the problem at -hand, rather than having to filter through spew [3]. This is especially nice -during test-driven development, or when trying to increase coverage for an old -and crufty module. +C<< $Test::Functional::Conf->fastout >>) can help the developer to focus on the +problem at hand, rather than having to filter through spew [3]. This is +especially nice during test-driven development, or when trying to increase +coverage for an old and crufty module. =head1 AUTHOR diff --git a/lib/Test/Functional/Conf.pm b/lib/Test/Functional/Conf.pm index 84603fa..e063acd 100644 --- a/lib/Test/Functional/Conf.pm +++ b/lib/Test/Functional/Conf.pm @@ -3,7 +3,7 @@ package Test::Functional::Conf; use warnings FATAL => 'all'; use strict; -our $VERSION = '0.01'; +our $VERSION = '0.02'; use Carp; use Exporter; diff --git a/t/output.t b/t/output.t index 9a6de58..411fb92 100644 --- a/t/output.t +++ b/t/output.t @@ -2,7 +2,7 @@ use warnings FATAL => 'all'; use strict; -use Test::Builder::Tester tests => 3; +use Test::Builder::Tester tests => 21; use Test::Functional; use Test::More;