[libtest-inter-perl] 01/07: Imported Upstream version 1.05
Angel Abad
angel at alioth.debian.org
Sun Aug 11 21:09:56 UTC 2013
This is an automated email from the git hooks/post-receive script.
angel pushed a commit to branch master
in repository libtest-inter-perl.
commit 38a69d54fd7a3c9f9b5ac5d7585e693b14b6ee82
Author: Angel Abad <angelabad at gmail.com>
Date: Mon Apr 22 18:09:43 2013 +0200
Imported Upstream version 1.05
---
Build.PL | 9 +++++--
ChangeLog | 7 +++++-
INSTALL | 2 +-
MANIFEST | 2 ++
META.json | 43 +++++++++++++++++++++++++++++++
META.yml | 10 +++++---
Makefile.PL | 2 +-
README | 62 +++++++++++++++++++++++++++++++++++----------
internal/build.yaml | 4 +++
lib/Test/Inter.pm | 7 +++---
lib/Test/Inter.pod | 70 +++++++++++++++++++++++++++++++++++++++++----------
11 files changed, 180 insertions(+), 38 deletions(-)
diff --git a/Build.PL b/Build.PL
index a0b864b..d78ca76 100644
--- a/Build.PL
+++ b/Build.PL
@@ -11,9 +11,14 @@ my %build_mods = (
);
-my $build = Module::Build->new(
+my $class = Module::Build->subclass(
+ class => "Module::Build::Custom",
+ code => q { sub ACTION_html { my $self = shift ; $self->SUPER::ACTION_html ( @_ ) if ( $ENV{ MAKE_HTML } ) ; } }
+);
+
+my $build = $class->new(
license => 'perl',
- dist_version => '1.03',
+ dist_version => '1.05',
dist_author => 'Sullivan Beck <sbeck at cpan.org>',
module_name => 'Test::Inter',
dist_abstract => 'framework for more readable interactive test scripts',
diff --git a/ChangeLog b/ChangeLog
index da65a13..714f7a9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,4 +12,9 @@ Version 1.02 2011-06-23
Version 1.03 2011-06-28
Missed one of the tests that fail with perl 5.015.
-Version 1.04
+Version 1.04 2013-03-18
+ The __nl__ substitution wasn't happening.
+
+Version 1.05 2013-03-20
+ Fixed the Build.PL/Makefile.PL scripts to not install the example scripts. RT 84091
+
diff --git a/INSTALL b/INSTALL
index 7674a57..c14f0eb 100644
--- a/INSTALL
+++ b/INSTALL
@@ -1,7 +1,7 @@
For instructions on installing this, or any other perl module in
a UNIX environment, please refer to:
- http://faq.perl.org/perlfaq8.html#How_do_I_install_a_m
+ http://learn.perl.org/faq/perlfaq8.html#How-do-I-install-a-module-from-CPAN-
For instructions in a Windows environment running ActivePerl,
refer to one of the following (depending on your version of perl):
diff --git a/MANIFEST b/MANIFEST
index 7f62c0f..bca156a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -6,11 +6,13 @@ examples/plan
examples/tests
examples/use_ok
INSTALL
+internal/build.yaml
lib/Test/Inter.pm
lib/Test/Inter.pod
LICENSE
Makefile.PL
MANIFEST This list of files
+META.json
README
t/file.1.exp
t/file.2.exp
diff --git a/META.json b/META.json
new file mode 100644
index 0000000..f215a2f
--- /dev/null
+++ b/META.json
@@ -0,0 +1,43 @@
+{
+ "abstract" : "framework for more readable interactive test scripts",
+ "author" : [
+ "Sullivan Beck <sbeck at cpan.org>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "Module::Build version 0.3901, CPAN::Meta::Converter version 2.120921",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Test-Inter",
+ "prereqs" : {
+ "configure" : {
+ "requires" : {
+ "Module::Build" : "0.39"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "File::Basename" : "0",
+ "IO::File" : "0",
+ "perl" : "5.004"
+ }
+ }
+ },
+ "provides" : {
+ "Test::Inter" : {
+ "file" : "lib/Test/Inter.pm",
+ "version" : "1.05"
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "license" : [
+ "http://dev.perl.org/licenses/"
+ ]
+ },
+ "version" : "1.05"
+}
diff --git a/META.yml b/META.yml
index 7684f4a..044d8ff 100644
--- a/META.yml
+++ b/META.yml
@@ -2,9 +2,11 @@
abstract: 'framework for more readable interactive test scripts'
author:
- 'Sullivan Beck <sbeck at cpan.org>'
+build_requires: {}
configure_requires:
- Module::Build: 0.36
-generated_by: 'Module::Build version 0.3603'
+ Module::Build: 0.39
+dynamic_config: 1
+generated_by: 'Module::Build version 0.3901, CPAN::Meta::Converter version 2.120921'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -13,11 +15,11 @@ name: Test-Inter
provides:
Test::Inter:
file: lib/Test/Inter.pm
- version: 1.03
+ version: 1.05
requires:
File::Basename: 0
IO::File: 0
perl: 5.004
resources:
license: http://dev.perl.org/licenses/
-version: 1.03
+version: 1.05
diff --git a/Makefile.PL b/Makefile.PL
index 632b1a3..5cee926 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -11,7 +11,7 @@ my %requires = (
WriteMakefile(
NAME => 'Test::Inter',
- VERSION => '1.03',
+ VERSION => '1.05',
($] >= 5.004
? (ABSTRACT=>'framework for more readable interactive test scripts',
AUTHOR =>'Sullivan Beck (sbeck at cpan.org)')
diff --git a/README b/README
index a905ee0..4b17943 100644
--- a/README
+++ b/README
@@ -104,22 +104,22 @@ DESCRIPTION
several difficulties with this.
Debugging the script is tedious
- To debug the 3rd test, I've got to do the following steps:
+ To debug the 3rd test, you have to open up the file and get the line
+ number of the 3rd test. You set a breakpoint there and then you can
+ run the script.
- get the line number of the 3rd func call
- set a breakpoint for it
- run the program
- wait for the first two tests to complete
- step into the function
-
- None of these steps are hard of course, but even so, getting to the
- first line of the test requires several steps which tend to break up
- your chain of thought when you want to be thinking exclusively about
- debugging the test.
+ It's typically not very hard to do this, but if you have to check
+ out the line number every time you want to visit a test, it can
+ break your chain of thought.
How much better to be able to say:
- break in func when testnum==3
+ break func ($::TI_NUM==3)
+
+ It would also be nice to be able to skip the first two tests...
+ perhaps they take a long time to run, and I want to get right to
+ work on test 3. You can do this easily too by setting the
+ $::TI_START variable.
Way too much perl interspersed with the tests
It's difficult to read the tests individually in this script because
@@ -228,7 +228,7 @@ BASE METHODS
start
end
- test
+ testnum
plan
abort
quiet
@@ -983,6 +983,42 @@ SPECIFYING THE TESTS
Expected results are separated from arguments by ' => '.
+ENVIRONMENT VARIABLES
+ To summarize the information above, the following environment variables
+ (and main:: variables) exist. Each can be set in a perl script as a
+ variable in the main namespace:
+
+ $::TI_END
+
+ or as an environment variable:
+
+ $ENV{TI_END}
+
+ TI_START
+ Set this to define the test you want to start with.
+
+ Example: If you have a perl test script (my_test_script) and you
+ want to start running it at test 12, run the following shell
+ commands:
+
+ TI_START=12
+ ./my_test_script.t
+
+ TI_END
+ Set this to define the test you want to end with.
+
+ TI_TESTNUM
+ Set this to run only a single test
+
+ TI_QUIET
+ How verbose the test script is.
+
+ TI_MODE
+ How the output is formatted.
+
+ TI_WIDTH
+ The width of the terminal.
+
HISTORY
The history of this module dates back to 1996 when I needed to write a
test suite for my Date::Manip module. At that time, none of the Test::*
diff --git a/internal/build.yaml b/internal/build.yaml
new file mode 100644
index 0000000..fea0c2d
--- /dev/null
+++ b/internal/build.yaml
@@ -0,0 +1,4 @@
+---
+script:
+ examples: 0
+
diff --git a/lib/Test/Inter.pm b/lib/Test/Inter.pm
index 023d62c..fff9aba 100644
--- a/lib/Test/Inter.pm
+++ b/lib/Test/Inter.pm
@@ -13,7 +13,7 @@ use File::Basename;
use IO::File;
our($VERSION);
-$VERSION = '1.03';
+$VERSION = '1.05';
###############################################################################
# BASE METHODS
@@ -1453,7 +1453,8 @@ sub _skip {
foreach my $v (@val) {
$v = '' if ($v eq '__blank__');
$v = undef if ($v eq '__undef__');
- }
+ $v =~ s/__nl__/\n/g if ($v);
+ }
return (0,$match, at val) if ($found);
return (0,0);
}
@@ -1603,5 +1604,5 @@ sub _skip {
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
-# cperl-label-offset: -2
+# cperl-label-offset: 0
# End:
diff --git a/lib/Test/Inter.pod b/lib/Test/Inter.pod
index 05f4d02..fd94df5 100644
--- a/lib/Test/Inter.pod
+++ b/lib/Test/Inter.pod
@@ -121,22 +121,20 @@ several difficulties with this.
=item B<Debugging the script is tedious>
-To debug the 3rd test, I've got to do the following steps:
+To debug the 3rd test, you have to open up the file and get the line number
+of the 3rd test. You set a breakpoint there and then you can run the script.
- get the line number of the 3rd func call
- set a breakpoint for it
- run the program
- wait for the first two tests to complete
- step into the function
-
-None of these steps are hard of course, but even so, getting to the
-first line of the test requires several steps which tend to break up
-your chain of thought when you want to be thinking exclusively about
-debugging the test.
+It's typically not very hard to do this, but if you have to check out the line
+number every time you want to visit a test, it can break your chain of
+thought.
How much better to be able to say:
- break in func when testnum==3
+ break func ($::TI_NUM==3)
+
+It would also be nice to be able to skip the first two tests... perhaps
+they take a long time to run, and I want to get right to work on test 3.
+You can do this easily too by setting the $::TI_START variable.
=item B<Way too much perl interspersed with the tests>
@@ -263,7 +261,7 @@ methods:
start
end
- test
+ testnum
plan
abort
quiet
@@ -1070,6 +1068,52 @@ but the value must be written on a single line.
Expected results are separated from arguments by ' => '.
+=head1 ENVIRONMENT VARIABLES
+
+To summarize the information above, the following environment variables
+(and main:: variables) exist. Each can be set in a perl script as
+a variable in the main namespace:
+
+ $::TI_END
+
+or as an environment variable:
+
+ $ENV{TI_END}
+
+=over 4
+
+=item TI_START
+
+Set this to define the test you want to start with.
+
+Example: If you have a perl test script (my_test_script) and you want
+to start running it at test 12, run the following shell commands:
+
+ TI_START=12
+ ./my_test_script.t
+
+=item TI_END
+
+Set this to define the test you want to end with.
+
+=item TI_TESTNUM
+
+Set this to run only a single test
+
+=item TI_QUIET
+
+How verbose the test script is.
+
+=item TI_MODE
+
+How the output is formatted.
+
+=item TI_WIDTH
+
+The width of the terminal.
+
+=back
+
=head1 HISTORY
The history of this module dates back to 1996 when I needed to write a
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtest-inter-perl.git
More information about the Pkg-perl-cvs-commits
mailing list