Hello community, here is the log from the commit of package perl-Test-Inter for openSUSE:Factory checked in at 2013-06-06 13:51:12 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Inter (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Inter.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Inter" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Inter/perl-Test-Inter.changes 2011-11-21 12:47:26.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Inter.new/perl-Test-Inter.changes 2013-06-06 13:51:14.000000000 +0200 @@ -1,0 +2,7 @@ +Tue Jun 4 15:04:17 UTC 2013 - [email protected] + +- updated to 1.05 + The __nl__ substitution wasn't happening. + Fixed the Build.PL/Makefile.PL scripts to not install the example scripts. RT 84091 + +------------------------------------------------------------------- Old: ---- Test-Inter-1.03.tar.gz New: ---- Test-Inter-1.05.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Inter.spec ++++++ --- /var/tmp/diff_new_pack.sR7Cei/_old 2013-06-06 13:51:15.000000000 +0200 +++ /var/tmp/diff_new_pack.sR7Cei/_new 2013-06-06 13:51:15.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Inter # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -15,62 +15,56 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # -# norootforbuild - -%bcond_with pod Name: perl-Test-Inter +Version: 1.05 +Release: 0 %define cpan_name Test-Inter -Summary: Framework for more readable interactive test scripts -Version: 1.03 -Release: 2 -License: GPL-1.0+ or Artistic-1.0 +Summary: framework for more readable interactive test scripts +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-Inter/ -Source: http://www.cpan.org/modules/by-module/Test/Test-Inter-%{version}.tar.gz +Source: http://www.cpan.org/authors/id/S/SB/SBECK/%{cpan_name}-%{version}.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build -%{perl_requires} BuildRequires: perl -BuildRequires: perl(Module::Build) BuildRequires: perl-macros -%if %{with pod} -BuildRequires: perl(Test::Pod) -BuildRequires: perl(Test::Pod::Coverage) -%endif -BuildRequires: perl(File::Basename) -BuildRequires: perl(IO::File) -Requires: perl(File::Basename) -Requires: perl(IO::File) +BuildRequires: perl(Module::Build) >= 0.39 +#BuildRequires: perl(Test::Inter) +%{perl_requires} %description This is another framework for writing test scripts. It is loosely inspired by Test::More, and has most of it's functionality, but it is not a drop-in replacement. -Authors: --------- - Sullivan Beck <[email protected]> +Test::More (and other existing test frameworks) suffer from two weaknesses, +both of which have prevented me from ever using them: + + None offer the ability to access specific tests in + a reasonably interactive fashion + + None offer the ability to write the tests in + whatever format would make the tests the most + readable %prep %setup -q -n %{cpan_name}-%{version} +find . -type f -print0 | xargs -0 chmod 644 %build %{__perl} Build.PL installdirs=vendor -./Build +./Build build flags=%{?_smp_mflags} %check ./Build test %install -./Build install destdir=$RPM_BUILD_ROOT create_packlist=0 +./Build install destdir=%{buildroot} create_packlist=0 %perl_gen_filelist -%clean -%{__rm} -rf $RPM_BUILD_ROOT - %files -f %{name}.files -%defattr(-,root,root,-) -%doc ChangeLog LICENSE README TODO +%defattr(-,root,root,755) +%doc ChangeLog examples LICENSE README TODO %changelog ++++++ Test-Inter-1.03.tar.gz -> Test-Inter-1.05.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/Build.PL new/Test-Inter-1.05/Build.PL --- old/Test-Inter-1.03/Build.PL 2011-06-28 22:01:35.000000000 +0200 +++ new/Test-Inter-1.05/Build.PL 2013-03-20 13:47:38.000000000 +0100 @@ -11,9 +11,14 @@ ); -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 <[email protected]>', module_name => 'Test::Inter', dist_abstract => 'framework for more readable interactive test scripts', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/ChangeLog new/Test-Inter-1.05/ChangeLog --- old/Test-Inter-1.03/ChangeLog 2011-06-28 22:01:25.000000000 +0200 +++ new/Test-Inter-1.05/ChangeLog 2013-03-20 13:47:19.000000000 +0100 @@ -12,4 +12,9 @@ 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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/INSTALL new/Test-Inter-1.05/INSTALL --- old/Test-Inter-1.03/INSTALL 2011-06-28 22:01:34.000000000 +0200 +++ new/Test-Inter-1.05/INSTALL 2013-03-20 13:47:38.000000000 +0100 @@ -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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/MANIFEST new/Test-Inter-1.05/MANIFEST --- old/Test-Inter-1.03/MANIFEST 2011-06-28 22:01:36.000000000 +0200 +++ new/Test-Inter-1.05/MANIFEST 2013-03-20 13:47:39.000000000 +0100 @@ -6,11 +6,13 @@ 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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/META.json new/Test-Inter-1.05/META.json --- old/Test-Inter-1.03/META.json 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Inter-1.05/META.json 2013-03-20 13:47:39.000000000 +0100 @@ -0,0 +1,43 @@ +{ + "abstract" : "framework for more readable interactive test scripts", + "author" : [ + "Sullivan Beck <[email protected]>" + ], + "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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/META.yml new/Test-Inter-1.05/META.yml --- old/Test-Inter-1.03/META.yml 2011-06-28 22:01:36.000000000 +0200 +++ new/Test-Inter-1.05/META.yml 2013-03-20 13:47:39.000000000 +0100 @@ -2,9 +2,11 @@ abstract: 'framework for more readable interactive test scripts' author: - 'Sullivan Beck <[email protected]>' +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 @@ 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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/Makefile.PL new/Test-Inter-1.05/Makefile.PL --- old/Test-Inter-1.03/Makefile.PL 2011-06-28 22:01:35.000000000 +0200 +++ new/Test-Inter-1.05/Makefile.PL 2013-03-20 13:47:38.000000000 +0100 @@ -11,7 +11,7 @@ WriteMakefile( NAME => 'Test::Inter', - VERSION => '1.03', + VERSION => '1.05', ($] >= 5.004 ? (ABSTRACT=>'framework for more readable interactive test scripts', AUTHOR =>'Sullivan Beck ([email protected])') diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/README new/Test-Inter-1.05/README --- old/Test-Inter-1.03/README 2011-06-28 22:01:35.000000000 +0200 +++ new/Test-Inter-1.05/README 2013-03-20 13:47:38.000000000 +0100 @@ -104,22 +104,22 @@ several difficulties with this. Debugging the script is tedious - To debug the 3rd test, I've got to do the following steps: - - 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. + 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. + + 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 @@ start end - test + testnum plan abort quiet @@ -983,6 +983,42 @@ 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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/internal/build.yaml new/Test-Inter-1.05/internal/build.yaml --- old/Test-Inter-1.03/internal/build.yaml 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Inter-1.05/internal/build.yaml 2013-03-20 13:44:52.000000000 +0100 @@ -0,0 +1,4 @@ +--- +script: + examples: 0 + diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/lib/Test/Inter.pm new/Test-Inter-1.05/lib/Test/Inter.pm --- old/Test-Inter-1.03/lib/Test/Inter.pm 2011-06-23 13:42:22.000000000 +0200 +++ new/Test-Inter-1.05/lib/Test/Inter.pm 2013-03-18 14:40:18.000000000 +0100 @@ -13,7 +13,7 @@ use IO::File; our($VERSION); -$VERSION = '1.03'; +$VERSION = '1.05'; ############################################################################### # BASE METHODS @@ -1453,7 +1453,8 @@ 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,@val) if ($found); return (0,0); } @@ -1603,5 +1604,5 @@ # cperl-continued-brace-offset: 0 # cperl-brace-offset: 0 # cperl-brace-imaginary-offset: 0 -# cperl-label-offset: -2 +# cperl-label-offset: 0 # End: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Inter-1.03/lib/Test/Inter.pod new/Test-Inter-1.05/lib/Test/Inter.pod --- old/Test-Inter-1.03/lib/Test/Inter.pod 2011-06-23 13:42:41.000000000 +0200 +++ new/Test-Inter-1.05/lib/Test/Inter.pod 2013-03-07 14:03:42.000000000 +0100 @@ -121,22 +121,20 @@ =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 @@ start end - test + testnum plan abort quiet @@ -1070,6 +1068,52 @@ 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 -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
