Hello community,
here is the log from the commit of package perl-Test-Unit-Lite for
openSUSE:Factory checked in at 2013-06-06 13:57:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Unit-Lite (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Unit-Lite.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Unit-Lite"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-Unit-Lite/perl-Test-Unit-Lite.changes
2012-05-29 11:42:34.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Test-Unit-Lite.new/perl-Test-Unit-Lite.changes
2013-06-06 13:57:55.000000000 +0200
@@ -1,0 +2,6 @@
+Tue Jun 4 15:14:48 UTC 2013 - [email protected]
+
+- updated to 0.1202
+ * RT #81879: hash key randomization after 5.17.5
+
+-------------------------------------------------------------------
Old:
----
Test-Unit-Lite-0.1201.tar.gz
New:
----
Test-Unit-Lite-0.1202.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Unit-Lite.spec ++++++
--- /var/tmp/diff_new_pack.MMdzNJ/_old 2013-06-06 13:57:55.000000000 +0200
+++ /var/tmp/diff_new_pack.MMdzNJ/_new 2013-06-06 13:57:55.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-Test-Unit-Lite
#
-# Copyright (c) 2012 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
@@ -17,7 +17,7 @@
Name: perl-Test-Unit-Lite
-Version: 0.1201
+Version: 0.1202
Release: 0
%define cpan_name Test-Unit-Lite
Summary: Unit testing without external dependencies
@@ -42,9 +42,15 @@
#BuildRequires: perl(Readonly)
#BuildRequires: perl(Taint::Runtime)
#BuildRequires: perl(Test::CheckChanges)
+#BuildRequires: perl(Test::CPAN::Changes)
+#BuildRequires: perl(Test::CPAN::Meta)
+#BuildRequires: perl(Test::DistManifest)
#BuildRequires: perl(Test::Distribution)
+#BuildRequires: perl(Test::EOL)
#BuildRequires: perl(Test::Kwalitee)
+#BuildRequires: perl(Test::NoTabs)
#BuildRequires: perl(TestObject)
+#BuildRequires: perl(Test::Perl::Critic)
#BuildRequires: perl(Test::Pod) >= 1.14
#BuildRequires: perl(Test::Pod::Coverage) >= 1.04
#BuildRequires: perl(Test::Signature)
@@ -84,6 +90,6 @@
%files -f %{name}.files
%defattr(-,root,root,755)
-%doc Changes examples LICENSE README xt
+%doc Changes examples LICENSE README README.md
%changelog
++++++ Test-Unit-Lite-0.1201.tar.gz -> Test-Unit-Lite-0.1202.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/Build.PL
new/Test-Unit-Lite-0.1202/Build.PL
--- old/Test-Unit-Lite-0.1201/Build.PL 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/Build.PL 2012-12-20 17:11:41.000000000 +0100
@@ -12,29 +12,29 @@
(my $dist = $module) =~ s/::/-/g;
my $build = Module::Build->new(
- module_name => $module,
- license => 'perl',
- requires => {
- 'perl' => 5.006,
+ module_name => $module,
+ license => 'perl',
+ requires => {
+ 'perl' => 5.006,
},
- optional => {
+ recommends => {
},
- build_requires => {
+ build_requires => {
},
auto_configure_requires => 0,
- create_makefile_pl => 'traditional',
- create_readme => 1,
- create_license => 1,
- sign => 1,
- recursive_test_files => 0,
- add_to_cleanup => [
- '*.bak', '*.gz', '*.tgz', '*.ppd', '*.ppmx', '*.deb', '*.bat',
- 'Makefile', 'pm_to_blib', 'cover_db', 'Debian_CPANTS.txt',
+ create_makefile_pl => 'traditional',
+ create_readme => 1,
+ create_license => 1,
+ recursive_test_files => 0,
+ add_to_cleanup => [
+ '*.bak', '*.gz', '*.tgz', '*.ppd', '*.ppmx', '*.deb',
+ 'pm_to_blib', 'cover_db', 'Debian_CPANTS.txt',
+ 'compilet*', 'test-*',
"$dist-*",
],
meta_merge => {
resources => {
- bugtracker => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=$dist";,
+ bugtracker => "http://github.com/dex4er/perl-$dist/issues";,
repository => "http://github.com/dex4er/perl-$dist";,
},
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/Changes
new/Test-Unit-Lite-0.1202/Changes
--- old/Test-Unit-Lite-0.1201/Changes 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/Changes 2012-12-20 17:11:41.000000000 +0100
@@ -1,10 +1,17 @@
------------------------------------------------------------------------
-0.1201 | Piotr Roszatycki <[email protected]> | 2012-03-25
+0.1202 2012-12-15 Piotr Roszatycki <[email protected]>
+
+Fixes:
+
+* RT #81879: hash key randomization after 5.17.5
+
+------------------------------------------------------------------------
+0.1201 2012-03-25 Piotr Roszatycki <[email protected]>
* Repackaged with newer Module::Builder.
------------------------------------------------------------------------
-0.12 | Piotr Roszatycki <[email protected]> | 2009-02-12
+0.12 2009-02-12 Piotr Roszatycki <[email protected]>
Changes:
@@ -12,14 +19,14 @@
* Method "tear_down" is called if "set_up" failed too.
------------------------------------------------------------------------
-0.1101 | Piotr Roszatycki <[email protected]> | 2008-12-30
+0.1101 2008-12-30 Piotr Roszatycki <[email protected]>
Changes:
* Code was slightly reformatted.
------------------------------------------------------------------------
-0.11 | Piotr Roszatycki <[email protected]> | 2008-12-16
+0.11 2008-12-16 Piotr Roszatycki <[email protected]>
New:
@@ -33,7 +40,7 @@
* Fix for tainted mode.
------------------------------------------------------------------------
-0.1003 | Piotr Roszatycki <[email protected]> | 2008-12-08
+0.1003 2008-12-08 Piotr Roszatycki <[email protected]>
Changes:
@@ -43,7 +50,7 @@
* Does not use Symbol::stash sub.
------------------------------------------------------------------------
-0.1002 | Piotr Roszatycki <[email protected]> | 2008-10-13
+0.1002 2008-10-13 Piotr Roszatycki <[email protected]>
Changes:
@@ -52,49 +59,49 @@
* Do not put empty line before "not ok" message.
------------------------------------------------------------------------
-0.1001 | Piotr Roszatycki <[email protected]> | 2008-10-08
+0.1001 2008-10-08 Piotr Roszatycki <[email protected]>
Changes:
* Fixed some warnings.
------------------------------------------------------------------------
-0.10 | Piotr Roszatycki <[email protected]> | 2008-10-08
+0.10 2008-10-08 Piotr Roszatycki <[email protected]>
Changes:
* The failures are more verbose and dumps stack trace via Carp::confess.
------------------------------------------------------------------------
-0.0904 | Piotr Roszatycki <[email protected]> | 2008-04-15
+0.0904 2008-04-15 Piotr Roszatycki <[email protected]>
Fixes:
* Be more paranoid in taint mode.
------------------------------------------------------------------------
-0.0903 | Piotr Roszatycki <[email protected]> | 2008-04-12
+0.0903 2008-04-12 Piotr Roszatycki <[email protected]>
Fixes:
* Rebuild README with Pod::Readme.
------------------------------------------------------------------------
-0.0902 | Piotr Roszatycki <[email protected]> | 2008-04-12
+0.0902 2008-04-12 Piotr Roszatycki <[email protected]>
Fixes:
* Fix incompatibility with Perl v5.6.
------------------------------------------------------------------------
-0.0901 | Piotr Roszatycki <[email protected]> | 2008-02-05
+0.0901 2008-02-05 Piotr Roszatycki <[email protected]>
Fixes:
* Drop accidental dependency on Exception::Base.
------------------------------------------------------------------------
-0.09 | Piotr Roszatycki <[email protected]> | 2008-02-05
+0.09 2008-02-05 Piotr Roszatycki <[email protected]>
Fixes:
@@ -108,7 +115,7 @@
* Support for tainted mode.
------------------------------------------------------------------------
-0.08 | Piotr Roszatycki <[email protected]> | 2008-01-10
+0.08 2008-01-10 Piotr Roszatycki <[email protected]>
Changes:
@@ -116,7 +123,7 @@
before/after test suite. Closes: #32185.
------------------------------------------------------------------------
-0.0701 | Piotr Roszatycki <[email protected]> | 2007-10-30
+0.0701 2007-10-30 Piotr Roszatycki <[email protected]>
Fixes:
@@ -129,7 +136,7 @@
* Updated POD documentation.
------------------------------------------------------------------------
-0.07 | Piotr Roszatycki <[email protected]> | 2007-10-29
+0.07 2007-10-29 Piotr Roszatycki <[email protected]>
Changes:
@@ -138,7 +145,7 @@
* Warnings are fatal for own test units.
------------------------------------------------------------------------
-0.0601 | Piotr Roszatycki <[email protected]> | 2007-10-13
+0.0601 2007-10-13 Piotr Roszatycki <[email protected]>
Fixes:
@@ -146,7 +153,7 @@
* Ignore modules which are not based on Test::Unit::TestCase.
------------------------------------------------------------------------
-0.06 | Piotr Roszatycki <[email protected]> | 2007-10-13
+0.06 2007-10-13 Piotr Roszatycki <[email protected]>
Changes:
@@ -158,7 +165,7 @@
* Do not test POD errors unless $ENV{PERL_TEST_POD} is true.
------------------------------------------------------------------------
-0.05 | Piotr Roszatycki <[email protected]> | 2007-10-05
+0.05 2007-10-05 Piotr Roszatycki <[email protected]>
Changes:
@@ -169,7 +176,7 @@
* Reformat whitespaces in source code.
------------------------------------------------------------------------
-0.0402 | Piotr Roszatycki <[email protected]> | 2007-09-27
+0.0402 2007-09-27 Piotr Roszatycki <[email protected]>
Fixes:
@@ -177,7 +184,7 @@
on several Perl versions.
------------------------------------------------------------------------
-0.0401 | Piotr Roszatycki <[email protected]> | 2007-09-23
+0.0401 2007-09-23 Piotr Roszatycki <[email protected]>
Fixes:
@@ -185,7 +192,7 @@
string).
------------------------------------------------------------------------
-0.04 | Piotr Roszatycki <[email protected]> | 2007-09-23
+0.04 2007-09-23 Piotr Roszatycki <[email protected]>
Fixes:
@@ -203,7 +210,7 @@
* Added Test::Unit::TestSuite->name and units accessors.
------------------------------------------------------------------------
-0.03 | Piotr Roszatycki <[email protected]> | 2007-05-22
+0.03 2007-05-22 Piotr Roszatycki <[email protected]>
Fixes:
@@ -211,13 +218,13 @@
* Removed "undefined value" warning if message is empty.
------------------------------------------------------------------------
-0.02 | Piotr Roszatycki <[email protected]> | 2007-05-11
+0.02 2007-05-11 Piotr Roszatycki <[email protected]>
* Fix incompatibility with 5.006.
* Try to fix syntax error on 5.009.
------------------------------------------------------------------------
-0.01 | Piotr Roszatycki <[email protected]> | 2007-05-09
+0.01 2007-05-09 Piotr Roszatycki <[email protected]>
* Development release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/MANIFEST
new/Test-Unit-Lite-0.1202/MANIFEST
--- old/Test-Unit-Lite-0.1201/MANIFEST 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/MANIFEST 2012-12-20 17:11:41.000000000 +0100
@@ -2,13 +2,10 @@
Changes
examples/README
lib/Test/Unit/Lite.pm
-LICENSE
-Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
-META.json
-META.yml
README
+README.md
t/all_tests.t
t/all_tests_tainted.t
t/test.pl
@@ -44,13 +41,24 @@
xt/consistent_version_numbers.t
xt/copyright.t
xt/cover.pl
+xt/cpan_changes.t
+xt/cpan_meta.t
+xt/dist_manifest.t
xt/distribution.t
+xt/eol.t
xt/kwalitee.t
xt/minimumversion.t
+xt/no_tabs.t
+xt/perlcritic.t
+xt/perlcriticrc
xt/pod_coverage.t
xt/pod_spell.t
xt/pod_spellrc
xt/pod_syntax.t
+xt/portability_files.t
xt/signature.t
-SIGNATURE Added here by Module::Build
+Makefile.PL
+LICENSE
+META.yml
+META.json
SIGNATURE Added here by Module::Build
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/MANIFEST.SKIP
new/Test-Unit-Lite-0.1202/MANIFEST.SKIP
--- old/Test-Unit-Lite-0.1201/MANIFEST.SKIP 2012-03-25 15:32:07.000000000
+0200
+++ new/Test-Unit-Lite-0.1202/MANIFEST.SKIP 2012-12-20 17:11:41.000000000
+0100
@@ -26,6 +26,9 @@
\bcover_db
\btmon.out$
+# Avoid Devel::NYTProf generated files
+\bnytprof
+
# Avoid temp and backup files.
~$
\.tmp$
@@ -53,10 +56,18 @@
-stamp$
# Avoid Eclipse files
+.cproject
.includepath
.project
+.settings
# Avoid distdir
\d+\.\d+\b
^MYMETA.yml$
^MYMETA\.json$
+
+# Avoid compiler artefacts
+\bcompilet
+\btest-
+\.exe$
+\.o$
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/META.json
new/Test-Unit-Lite-0.1202/META.json
--- old/Test-Unit-Lite-0.1201/META.json 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/META.json 2012-12-20 17:11:41.000000000 +0100
@@ -4,7 +4,7 @@
"Piotr Roszatycki <[email protected]>"
],
"dynamic_config" : 1,
- "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version
2.112150",
+ "generated_by" : "Module::Build version 0.4003, CPAN::Meta::Converter
version 2.120630",
"license" : [
"perl_5"
],
@@ -31,7 +31,7 @@
},
"Test::Unit::Lite" : {
"file" : "lib/Test/Unit/Lite.pm",
- "version" : "0.1201"
+ "version" : "0.1202"
},
"Test::Unit::Lite::AllTests" : {
"file" : "lib/Test/Unit/Lite.pm",
@@ -57,7 +57,7 @@
"release_status" : "stable",
"resources" : {
"bugtracker" : {
- "web" : "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Unit-Lite";
+ "web" : "http://github.com/dex4er/perl-Test-Unit-Lite/issues";
},
"license" : [
"http://dev.perl.org/licenses/";
@@ -66,5 +66,5 @@
"url" : "http://github.com/dex4er/perl-Test-Unit-Lite";
}
},
- "version" : "0.1201"
+ "version" : "0.1202"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/META.yml
new/Test-Unit-Lite-0.1202/META.yml
--- old/Test-Unit-Lite-0.1201/META.yml 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/META.yml 2012-12-20 17:11:41.000000000 +0100
@@ -4,7 +4,7 @@
- 'Piotr Roszatycki <[email protected]>'
build_requires: {}
dynamic_config: 1
-generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version
2.112150'
+generated_by: 'Module::Build version 0.4003, CPAN::Meta::Converter version
2.120630'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,7 +19,7 @@
version: 0
Test::Unit::Lite:
file: lib/Test/Unit/Lite.pm
- version: 0.1201
+ version: 0.1202
Test::Unit::Lite::AllTests:
file: lib/Test/Unit/Lite.pm
version: 0
@@ -38,7 +38,7 @@
requires:
perl: 5.006
resources:
- bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Unit-Lite
+ bugtracker: http://github.com/dex4er/perl-Test-Unit-Lite/issues
license: http://dev.perl.org/licenses/
repository: http://github.com/dex4er/perl-Test-Unit-Lite
-version: 0.1201
+version: 0.1202
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/Makefile.PL
new/Test-Unit-Lite-0.1202/Makefile.PL
--- old/Test-Unit-Lite-0.1201/Makefile.PL 2012-03-25 15:32:07.000000000
+0200
+++ new/Test-Unit-Lite-0.1202/Makefile.PL 2012-12-20 17:11:41.000000000
+0100
@@ -1,13 +1,13 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.3800
+# Note: this file was auto-generated by Module::Build::Compat version 0.4003
require 5.006;
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'PL_FILES' => {},
- 'INSTALLDIRS' => 'site',
'NAME' => 'Test::Unit::Lite',
- 'EXE_FILES' => [],
'VERSION_FROM' => 'lib/Test/Unit/Lite.pm',
- 'PREREQ_PM' => {}
+ 'PREREQ_PM' => {},
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/README
new/Test-Unit-Lite-0.1202/README
--- old/Test-Unit-Lite-0.1201/README 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/README 2012-12-20 17:11:41.000000000 +0100
@@ -56,6 +56,13 @@
distribution. Then the Test::Unit::Lite module is copied to the inc
directory of the source directory for the package distribution.
+BUGS
+ If you find the bug or want to implement new features, please report it
+ at https://github.com/dex4er/perl-Test-Unit-Lite/issues
+
+ The code repository is available at
+ http://github.com/dex4er/perl-Test-Unit-Lite
+
AUTHOR
Piotr Roszatycki <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/README.md
new/Test-Unit-Lite-0.1202/README.md
--- old/Test-Unit-Lite-0.1201/README.md 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Unit-Lite-0.1202/README.md 2012-12-20 17:11:41.000000000 +0100
@@ -0,0 +1,410 @@
+# NAME
+
+Test::Unit::Lite - Unit testing without external dependencies
+
+# SYNOPSIS
+
+Bundling the
[Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) as a part
of package distribution:
+
+ perl -MTest::Unit::Lite -e bundle
+
+Running all test units:
+
+ perl -MTest::Unit::Lite -e all_tests
+
+Using as a replacement for Test::Unit:
+
+ package FooBarTest;
+ use Test::Unit::Lite; # unnecessary if module isn't directly used
+ use base 'Test::Unit::TestCase';
+
+ sub new {
+ my $self = shift()->SUPER::new(@_);
+ # your state for fixture here
+ return $self;
+ }
+
+ sub set_up {
+ # provide fixture
+ }
+ sub tear_down {
+ # clean up after test
+ }
+ sub test_foo {
+ my $self = shift;
+ my $obj = ClassUnderTest->new(...);
+ $self->assert_not_null($obj);
+ $self->assert_equals('expected result', $obj->foo);
+ $self->assert(qr/pattern/, $obj->foobar);
+ }
+ sub test_bar {
+ # test the bar feature
+ }
+
+# DESCRIPTION
+
+This framework provides lighter version of
[Test::Unit](http://search.cpan.org/perldoc?Test::Unit) framework. It
+implements some of the [Test::Unit](http://search.cpan.org/perldoc?Test::Unit)
classes and methods needed to run test
+units. The
[Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) tries to be
compatible with public API of
+[Test::Unit](http://search.cpan.org/perldoc?Test::Unit). It doesn't implement
all classes and methods at 100% and only
+those necessary to run tests are available.
+
+The [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) can be
distributed as a part of package distribution,
+so the package can be distributed without dependency on modules outside
+standard Perl distribution. The
[Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) is provided
as a single
+file.
+
+## Bundling the
[Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) as a part
of package distribution
+
+The [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite)
framework can be bundled to the package distribution.
+Then the [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite)
module is copied to the `inc` directory of the
+source directory for the package distribution.
+
+# FUNCTIONS
+
+- bundle
+
+Copies [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite)
modules into `inc` directory. Creates missing
+subdirectories if needed. Silently overwrites previous module if was
+existing.
+
+- all\_tests
+
+Creates new test runner for
[Test::Unit::Lite::AllTests](http://search.cpan.org/perldoc?Test::Unit::Lite::AllTests)
suite which searches
+for test units in `t/tlib` directory.
+
+# CLASSES
+
+## [Test::Unit::TestCase](http://search.cpan.org/perldoc?Test::Unit::TestCase)
+
+This is a base class for single unit test module. The user's unit test
+module can override the default methods that are simple stubs.
+
+The MESSAGE argument is optional and is included to the default error message
+when the assertion is false.
+
+- new
+
+The default constructor which just bless an empty anonymous hash reference.
+
+- set\_up
+
+This method is called at the start of each test unit processing. It is empty
+method and can be overridden in derived class.
+
+- tear\_down
+
+This method is called at the end of each test unit processing. It is empty
+method and can be overridden in derived class.
+
+- list\_tests
+
+Returns the list of test methods in this class and base classes.
+
+- fail(\[MESSAGE\])
+
+Immediate fail the test.
+
+- assert(ARG \[, MESSAGE\])
+
+Checks if ARG expression returns true value.
+
+- assert\_null(ARG \[, MESSAGE\])
+- assert\_not\_null(ARG \[, MESSAGE\])
+
+Checks if ARG is defined or not defined.
+
+- assert\_equals(ARG1, ARG2 \[, MESSAGE\])
+- assert\_not\_equals(ARG1, ARG2 \[, MESSAGE\])
+
+Checks if ARG1 and ARG2 are equals or not equals. If ARG1 and ARG2 look like
+numbers then they are compared with '==' operator, otherwise the string 'eq'
+operator is used.
+
+- assert\_num\_equals(ARG1, ARG2 \[, MESSAGE\])
+- assert\_num\_not\_equals(ARG1, ARG2 \[, MESSAGE\])
+
+Force numeric comparison.
+
+- assert\_str\_equals(ARG1, ARG2 \[, MESSAGE\])
+- assert\_str\_not\_equals(ARG1, ARG2 \[, MESSAGE\])
+
+Force string comparison.
+
+- assert(qr/PATTERN/, ARG \[, MESSAGE\])
+- assert\_matches(qr/PATTERN/, ARG \[, MESSAGE\])
+- assert\_does\_not\_match(qr/PATTERN/, ARG \[, MESSAGE\])
+
+Checks if ARG matches PATTER regexp.
+
+- assert\_deep\_equals(ARG1, ARG2 \[, MESSAGE\])
+- assert\_deep\_not\_equals(ARG1, ARG2 \[, MESSAGE\])
+
+Check if reference ARG1 is a deep copy of reference ARG2 or not. The
+references can be deep structure. If they are different, the message will
+display the place where they start differing.
+
+##
[Test::Unit::TestSuite](http://search.cpan.org/perldoc?Test::Unit::TestSuite)
+
+This is a base class for test suite, which groups several test units.
+
+- empty\_new(\[NAME\])
+
+Creates a fresh suite with no tests.
+
+- new(\[CLASS | TEST\])
+
+Creates a test suite from unit test name or class. If a test suite is
+provided as the argument, it merely returns that suite. If a test case is
+provided, it extracts all test case methods (see
+[Test::Unit::TestCase](http://search.cpan.org/perldoc?Test::Unit::TestCase)\->list\_test)
from the test case into a new test suite.
+
+- name
+
+Contains the name of the current test suite.
+
+- units
+
+Contains the list of test units.
+
+- add\_test(\[TEST\_CLASSNAME | TEST\_OBJECT\])
+
+Adds the test object to a suite.
+
+- count\_test\_cases
+
+Returns the number of test cases in this suite.
+
+- run
+
+Runs the test suite and output the results as TAP report.
+
+##
[Test::Unit::TestRunner](http://search.cpan.org/perldoc?Test::Unit::TestRunner)
+
+This is the test runner which outputs text report about finished test suite.
+
+- new(\[$fh\_out \[, $fh\_err\]\])
+
+The constructor for whole test framework. Its optional parameters are
+filehandles for standard output and error messages.
+
+- fh\_out
+
+Contains the filehandle for standard output.
+
+- fh\_err
+
+Contains the filehandle for error messages.
+
+- suite
+
+Contains the test suite object.
+
+- print\_header
+
+Called before running test suite.
+
+- print\_error
+
+Called after error was occurred on `set_up` or `tear_down` method.
+
+- print\_failure
+
+Called after test unit is failed.
+
+- print\_pass
+
+Called after test unit is passed.
+
+- print\_footer
+
+Called after running test suite.
+
+- start(TEST\_SUITE)
+
+Starts the test suite.
+
+## [Test::Unit::Result](http://search.cpan.org/perldoc?Test::Unit::Result)
+
+This object contains the results of test suite.
+
+- new
+
+Creates a new object.
+
+- messages
+
+Contains the array of result messages. The single message is a hash which
+contains:
+
+ - test
+
+ the test unit name,
+
+ - type
+
+ the type of message (PASS, ERROR, FAILURE),
+
+ - message
+
+ the text of message.
+
+- errors
+
+Contains the number of collected errors.
+
+- failures
+
+Contains the number of collected failures.
+
+- passes
+
+Contains the number of collected passes.
+
+- add\_error(TEST, MESSAGE)
+
+Adds an error to the report.
+
+- add\_failure(TEST, MESSAGE)
+
+Adds an failure to the report.
+
+- add\_pass(TEST, MESSAGE)
+
+Adds a pass to the report.
+
+##
[Test::Unit::HarnessUnit](http://search.cpan.org/perldoc?Test::Unit::HarnessUnit)
+
+This is the test runner which outputs in the same format that
+[Test::Harness](http://search.cpan.org/perldoc?Test::Harness) expects (Test
Anything Protocol). It is derived
+from
[Test::Unit::TestRunner](http://search.cpan.org/perldoc?Test::Unit::TestRunner).
+
+## [Test::Unit::Debug](http://search.cpan.org/perldoc?Test::Unit::Debug)
+
+The empty class which is provided for compatibility with original
+[Test::Unit](http://search.cpan.org/perldoc?Test::Unit) framework.
+
+##
[Test::Unit::Lite::AllTests](http://search.cpan.org/perldoc?Test::Unit::Lite::AllTests)
+
+The test suite which searches for test units in `t/tlib` directory.
+
+# COMPATIBILITY
+
+[Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) should be
compatible with public API of
[Test::Unit](http://search.cpan.org/perldoc?Test::Unit).
+The [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) also
has some known incompatibilities:
+
+- The test methods are sorted alphabetically.
+- It implements new assertion method: __assert\_deep\_not\_equals__.
+- Does not support __ok__, __assert__(CODEREF, @ARGS) and __multi\_assert__.
+
+`Test::Unit::Lite` is compatible with
[Test::Assert](http://search.cpan.org/perldoc?Test::Assert) assertion functions.
+
+# EXAMPLES
+
+## t/tlib/SuccessTest.pm
+
+This is the simple unit test module.
+
+ package SuccessTest;
+
+ use strict;
+ use warnings;
+
+ use base 'Test::Unit::TestCase';
+
+ sub test_success {
+ my $self = shift;
+ $self->assert(1);
+ }
+
+ 1;
+
+## t/all\_tests.t
+
+This is the test script for
[Test::Harness](http://search.cpan.org/perldoc?Test::Harness) called with "make
test".
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use File::Spec;
+ use Cwd;
+
+ BEGIN {
+ unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined
$ENV{PERL5LIB} and ${^TAINT};
+
+ my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+ unshift @INC, File::Spec->catdir($cwd, 'inc');
+ unshift @INC, File::Spec->catdir($cwd, 'lib');
+ }
+
+ use Test::Unit::Lite;
+
+ local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]")
};
+
+ Test::Unit::HarnessUnit->new->start('Test::Unit::Lite::AllTests');
+
+## t/test.pl
+
+This is the optional script for calling test suite directly.
+
+ #!/usr/bin/perl
+
+ use strict;
+ use warnings;
+
+ use File::Basename;
+ use File::Spec;
+ use Cwd;
+
+ BEGIN {
+ chdir dirname(__FILE__) or die "$!";
+ chdir '..' or die "$!";
+
+ unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined
$ENV{PERL5LIB} and ${^TAINT};
+
+ my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+ unshift @INC, File::Spec->catdir($cwd, 'inc');
+ unshift @INC, File::Spec->catdir($cwd, 'lib');
+ }
+
+ use Test::Unit::Lite;
+
+ local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]")
};
+
+ all_tests;
+
+This is perl equivalent of shell command line:
+
+ perl -Iinc -Ilib -MTest::Unit::Lite -w -e all_tests
+
+# SEE ALSO
+
+[Test::Unit](http://search.cpan.org/perldoc?Test::Unit),
[Test::Assert](http://search.cpan.org/perldoc?Test::Assert).
+
+# TESTS
+
+The [Test::Unit::Lite](http://search.cpan.org/perldoc?Test::Unit::Lite) was
tested as a [Test::Unit](http://search.cpan.org/perldoc?Test::Unit) replacement
for following
+distributions: [Test::C2FIT](http://search.cpan.org/perldoc?Test::C2FIT),
[XAO::Base](http://search.cpan.org/perldoc?XAO::Base),
[Exception::Base](http://search.cpan.org/perldoc?Exception::Base).
+
+# BUGS
+
+If you find the bug or want to implement new features, please report it at
+[https://github.com/dex4er/perl-Test-Unit-Lite/issues](https://github.com/dex4er/perl-Test-Unit-Lite/issues)
+
+The code repository is available at
+[http://github.com/dex4er/perl-Test-Unit-Lite](http://github.com/dex4er/perl-Test-Unit-Lite)
+
+# AUTHOR
+
+Piotr Roszatycki <[email protected]>
+
+# LICENSE
+
+Copyright (c) 2007-2009, 2012 by Piotr Roszatycki <[email protected]>.
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
+See
[http://www.perl.com/perl/misc/Artistic.html](http://www.perl.com/perl/misc/Artistic.html)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/SIGNATURE
new/Test-Unit-Lite-0.1202/SIGNATURE
--- old/Test-Unit-Lite-0.1201/SIGNATURE 2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/SIGNATURE 2012-12-20 17:11:42.000000000 +0100
@@ -14,36 +14,37 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 5076da9ce2dde4ced41610fcd2df8aa3d3c629b5 Build.PL
-SHA1 2244924e5f8a43a253bcc5753b820f924ba190d0 Changes
+SHA1 7dc055218487765395c1a8415ecbf25ab517a37c Build.PL
+SHA1 34d79ff76eb6636e04ab993f0430a80e4f80fe36 Changes
SHA1 39d4369e877ca8afd2c5736d89d21b67976f2d07 LICENSE
-SHA1 36d8646de46b05f770636c78ca082e205d027cde MANIFEST
-SHA1 c3a34543c726b0d9c39e90592d1db5ae07b6f1b3 MANIFEST.SKIP
-SHA1 a3fd8650ea3a77b9a820fdeffedaa50f01783653 META.json
-SHA1 fa180915cfbb150208d1e24a7273a47ce9833faa META.yml
-SHA1 e223ed81388613442a850e59b4f0e88ca1dd46b0 Makefile.PL
-SHA1 07fd654dffb7db8e2945a1b47e1f7049cf30553f README
+SHA1 4c18133ec80e16285b1234c1bed250d47394d9b4 MANIFEST
+SHA1 86fb54c8932787c88ad623cf4792182853eeca85 MANIFEST.SKIP
+SHA1 8aab8f89ceba94073824fa450619ed8d2c1b8a6c META.json
+SHA1 e66ab7cf1ed00ca8aaadc5720dab331f53aafec5 META.yml
+SHA1 1a38f93a68e9d314816d72919f9b1d00dd25eb8e Makefile.PL
+SHA1 3273e0334093e77b9a6acac853acb4f9dc4df95e README
+SHA1 d0aa7c9fd60efc67d1545810a8eb6d2dca5e50b0 README.md
SHA1 a5b42c5616211189572a48935a55eca59a75c742 examples/README
-SHA1 1b90e9a60868da4959ad633797032cabfed24923 lib/Test/Unit/Lite.pm
+SHA1 3fb96e7808087ca3bc410548183095ed74ea1d52 lib/Test/Unit/Lite.pm
SHA1 65196ddb7d86fa6b392f6e711ddc6326bd6decef t/all_tests.t
SHA1 2a6a6d60e637568de03f4b4c0d22cf544eb955a6 t/all_tests_tainted.t
SHA1 0b65fef81698ca3ecb87c27aebe02ba593243372 t/test.pl
SHA1 53a6b9c1e9d2d505e3f26ff07f7175c4cf5b103c t/test_tainted.pl
SHA1 e50f7a48a4c3edf225764704483ee6c4cc63fe66 t/tlib/AssertTest.pm
SHA1 e894ae8d9cf8d6d82c7880567171075ec26c5b27 t/tlib/BadSuite/BadUse.pm
-SHA1 4d12d415e7d10344cda3246b821974ed393db520 t/tlib/BadSuite/SyntaxError.pm
+SHA1 82248fdc31ebd203472218151be2eb081abf8c52 t/tlib/BadSuite/SyntaxError.pm
SHA1 34093bc61042f53f8d20f935ad7cae236bf74eb6 t/tlib/BadSuitesTest.pm
SHA1 a5525fad9989342fa84024cf0d79ff207ee5f0f5
t/tlib/BadUnits/WithErrorOnSetUp.pm
SHA1 7798765a8acc72c090d0bc9f44007c4566ca388e
t/tlib/BadUnits/WithErrorOnSetUpSuite.pm
-SHA1 8a8080a37c98cdb9bcb5e73e21e409c9e736b7b7
t/tlib/BadUnits/WithErrorOnTearDown.pm
+SHA1 6ac2602be0b234cf9185104627701e48ee3c60e9
t/tlib/BadUnits/WithErrorOnTearDown.pm
SHA1 4ddf587d98727de6adcb627f99c232b7d37259e9
t/tlib/BadUnits/WithErrorOnTearDownSuite.pm
SHA1 0a47eb147686621d3703bce8ae9dcdb5445c8f7c t/tlib/BadUnits/WithFailure.pm
SHA1 d9aa2ee64ce3c76ffaeccdec5be634236d62f042
t/tlib/BadUnits/WithFailureSuite.pm
SHA1 c3b6297fcb1583a0532700798f76041491eee000 t/tlib/BadUnitsTest.pm
-SHA1 02955567ec0427c82d9a80cbe7bcf091e9fa5a9c t/tlib/ExceptionChecker.pm
-SHA1 a3230c44fb8664a37bd4c962a6ac54b8f60e5765 t/tlib/InheritedSuite/BaseTest.pm
-SHA1 c9a94a7c2c4097deb2fbdd474ae67ab43ba65f0f
t/tlib/InheritedSuite/DerivedDerivedTest.pm
-SHA1 5d96c5e4828aa7046f8373d84c7754609a4d6b93
t/tlib/InheritedSuite/DerivedTest.pm
+SHA1 813a98c1f39ff8db5658a21099234c46bec35663 t/tlib/ExceptionChecker.pm
+SHA1 f4298c9d98fa850d1a627e8f0562732c76b463b2 t/tlib/InheritedSuite/BaseTest.pm
+SHA1 5606f240763732eb1a6229f5361d3c1456ba369c
t/tlib/InheritedSuite/DerivedDerivedTest.pm
+SHA1 9ef52e4cbc1d56e9e9f067d867911c4f9165f435
t/tlib/InheritedSuite/DerivedTest.pm
SHA1 cdf316da142b2d640dde4fadc2622b27d9b027ec
t/tlib/InheritedSuite/OverrideNew.pm
SHA1 a47ceb772f28d9fc045eaf296625bf85266d670b
t/tlib/InheritedSuite/OverrideNewName.pm
SHA1 db48b82d3aacc1885e930a8c3a3bda8f8b16d346 t/tlib/InheritedSuite/Simple.pm
@@ -60,18 +61,26 @@
SHA1 1c27e5840b0154e44120bc2edc02fbb507c76819 xt/consistent_version_numbers.t
SHA1 67bb4c141ea95809f3db2d526ce91d9e6d894756 xt/copyright.t
SHA1 650dccfa9b6f5a98cf731c89041bea8935dbc623 xt/cover.pl
+SHA1 e6cd4b4bbadcfddd26f7f2fa3c6b48339be8343f xt/cpan_changes.t
+SHA1 4f8f90e1c421bfd592e6806ec4d0a75f3d56406a xt/cpan_meta.t
+SHA1 48a67f01c35122165bb633264cba72d984d7a89e xt/dist_manifest.t
SHA1 f5aac658ae1888964274e68d179413782082b7ad xt/distribution.t
+SHA1 af47b82dbac975ba494dfe6849d17d1e02941ac6 xt/eol.t
SHA1 44147122d52fef90ab3a2c65ebba4f89342174f8 xt/kwalitee.t
SHA1 6e7f9dde7560793bcb40acc41561e07d163ad6d1 xt/minimumversion.t
+SHA1 1a1cd76027c4cc73ec56beadaf56680bbac1fd4a xt/no_tabs.t
+SHA1 e8daa0c73cfc304c240fad2d2c2b1b628175a89d xt/perlcritic.t
+SHA1 2b45f0037f75c190f535b3aa90a9b38b7f021c2c xt/perlcriticrc
SHA1 46aa111935ff192343c30b72d28da1a71ef4abf0 xt/pod_coverage.t
SHA1 bef7d46eb5cbc3e67956d4e823ec199f41ab9268 xt/pod_spell.t
-SHA1 a0ed774107c4a68f55648f8ddf81e1eeb12f8b83 xt/pod_spellrc
+SHA1 75608fc5a8bc9c71e64c4586584c1da08f1775a5 xt/pod_spellrc
SHA1 87cb53d4ad0162a872d5c70013fc41719e030555 xt/pod_syntax.t
+SHA1 f2dd15ffc2836703f46f2622702e1676891eed21 xt/portability_files.t
SHA1 a38994922fda6d64e2ee75198fadc464a221fea9 xt/signature.t
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.11 (GNU/Linux)
-iEYEARECAAYFAk9vHlcACgkQhMHHe8CxCluc+gCgnnxbSQLk2NJH2L9DyWRGLMUo
-nRIAoMlgKTieqH7yKtRiMAKnDlNPADMR
-=XIgB
+iEYEARECAAYFAlDTOL4ACgkQhMHHe8CxClsaOwCdGG1xCdvrIW6+VCgSFvg1dZqq
+pz4AoOXZSAt+OeJA7JmQe8q5DXMMdd89
+=0RbF
-----END PGP SIGNATURE-----
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/lib/Test/Unit/Lite.pm
new/Test-Unit-Lite-0.1202/lib/Test/Unit/Lite.pm
--- old/Test-Unit-Lite-0.1201/lib/Test/Unit/Lite.pm 2012-03-25
15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/lib/Test/Unit/Lite.pm 2012-12-20
17:11:41.000000000 +0100
@@ -72,7 +72,7 @@
use strict;
use warnings;
-our $VERSION = '0.1201';
+our $VERSION = '0.1202';
use Carp ();
use File::Spec ();
@@ -97,8 +97,8 @@
my $dst = "inc/Test/Unit/Lite.pm";
- my @src = split m"/", $src;
- my @dst = split m"/", $dst;
+ my @src = split m{/}, $src;
+ my @dst = split m{/}, $dst;
my $srcfile = File::Spec->catfile(@src);
my $dstfile = File::Spec->catfile(@dst);
@@ -107,7 +107,7 @@
my $dstdir = File::Basename::dirname($dstfile);
- -d $dstdir or File::Path::mkpath([$dstdir], 0, 0777 & ~umask);
+ -d $dstdir or File::Path::mkpath([$dstdir], 0, oct(777) & ~umask);
File::Copy::cp($srcfile, $dstfile) or die "Cannot copy $srcfile to
$dstfile: $!\n";
}
@@ -225,7 +225,6 @@
if ($arg1 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/ and
$arg2 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/)
{
- local $^W;
__croak "expected $arg1, got $arg2", $msg unless $arg1 == $arg2;
}
else {
@@ -244,7 +243,6 @@
elsif ($arg1 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/ and
$arg2 =~ /^[+-]?(\d+\.\d+|\d+\.|\.\d+|\d+)([eE][+-]?\d+)?$/)
{
- local $^W;
__croak "$arg1 and $arg2 should differ", $msg unless $arg1 !=
$arg2;
}
else {
@@ -315,8 +313,7 @@
}
sub _deep_check {
- my $self = shift;
- my ($e1, $e2) = @_;
+ my ($self, $e1, $e2) = @_;
if ( ! defined $e1 || ! defined $e2 ) {
return 1 if !defined $e1 && !defined $e2;
@@ -354,8 +351,7 @@
}
sub _eq_array {
- my $self = shift;
- my($a1, $a2) = @_;
+ my ($self, $a1, $a2) = @_;
return 1 if $a1 eq $a2;
my $ok = 1;
@@ -374,13 +370,12 @@
}
sub _eq_hash {
- my $self = shift;
- my($a1, $a2) = @_;
+ my ($self, $a1, $a2) = @_;
return 1 if $a1 eq $a2;
my $ok = 1;
my $bigger = keys %$a1 > keys %$a2 ? $a1 : $a2;
- foreach my $k (keys %$bigger) {
+ foreach my $k (sort keys %$bigger) {
my $e1 = exists $a1->{$k} ? $a1->{$k} : $DNE;
my $e2 = exists $a2->{$k} ? $a2->{$k} : $DNE;
@@ -395,8 +390,7 @@
}
sub _format_stack {
- my $self = shift;
- my @Stack = @_;
+ my ($self, @Stack) = @_;
my $var = '$FOO';
my $did_arrow = 0;
@@ -1226,6 +1220,14 @@
=for readme continue
+=head1 BUGS
+
+If you find the bug or want to implement new features, please report it at
+L<https://github.com/dex4er/perl-Test-Unit-Lite/issues>
+
+The code repository is available at
+L<http://github.com/dex4er/perl-Test-Unit-Lite>
+
=head1 AUTHOR
Piotr Roszatycki <[email protected]>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/t/tlib/BadSuite/SyntaxError.pm
new/Test-Unit-Lite-0.1202/t/tlib/BadSuite/SyntaxError.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/BadSuite/SyntaxError.pm 2012-03-25
15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/BadSuite/SyntaxError.pm 2012-12-20
17:11:41.000000000 +0100
@@ -3,7 +3,7 @@
eval q{
sub broken_method {
- my $self =
+ my $self =
}
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-Unit-Lite-0.1201/t/tlib/BadUnits/WithErrorOnTearDown.pm
new/Test-Unit-Lite-0.1202/t/tlib/BadUnits/WithErrorOnTearDown.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/BadUnits/WithErrorOnTearDown.pm
2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/BadUnits/WithErrorOnTearDown.pm
2012-12-20 17:11:41.000000000 +0100
@@ -6,7 +6,7 @@
use base qw(Test::Unit::TestCase);
sub set_up {
- die "Problem with set_up";
+ die "Problem with set_up";
}
sub tear_down {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/t/tlib/ExceptionChecker.pm
new/Test-Unit-Lite-0.1202/t/tlib/ExceptionChecker.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/ExceptionChecker.pm 2012-03-25
15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/ExceptionChecker.pm 2012-12-20
17:11:41.000000000 +0100
@@ -9,10 +9,10 @@
my $expected = shift @tests;
my $test_components = shift @tests;
my ($test_code_line, $test) = @$test_components;
- eval {
- $self->$test();
- };
- my $exception = $@;
+ eval {
+ $self->$test();
+ };
+ my $exception = $@;
# Parse the exception message: get number of file source line
# and last line of message
@@ -23,7 +23,7 @@
if ($exception ne '' and $exception =~ /^.*?:(\d+) - (?:.*?\n)?(.*?)\n
at /s) {
my ($line, $message) = ($1, $2);
- if ($line != $test_code_line or
+ if ($line != $test_code_line or
(ref $expected eq 'Regexp' and $message !~ /$expected/s or
ref $expected ne 'Regexp' and $message ne $expected))
{
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/BaseTest.pm
new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/BaseTest.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/BaseTest.pm 2012-03-25
15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/BaseTest.pm 2012-12-20
17:11:41.000000000 +0100
@@ -14,7 +14,7 @@
sub test_list_tests {
my $self = shift;
my $list = $self->list_tests;
- $self->assert_deep_equals( [ qw{ test_base test_isa test_list_tests } ],
$list);
+ $self->assert_deep_equals( [ qw{ test_base test_isa test_list_tests } ],
$list);
}
sub test_base {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/DerivedDerivedTest.pm
new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/DerivedDerivedTest.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/DerivedDerivedTest.pm
2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/DerivedDerivedTest.pm
2012-12-20 17:11:41.000000000 +0100
@@ -16,7 +16,7 @@
sub test_list_tests {
my $self = shift;
my $list = $self->list_tests;
- $self->assert_deep_equals( [ qw{ test_base test_derived
test_derived_derived test_isa test_list_tests } ], $list);
+ $self->assert_deep_equals( [ qw{ test_base test_derived
test_derived_derived test_isa test_list_tests } ], $list);
}
sub test_derived_derived {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/DerivedTest.pm
new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/DerivedTest.pm
--- old/Test-Unit-Lite-0.1201/t/tlib/InheritedSuite/DerivedTest.pm
2012-03-25 15:32:07.000000000 +0200
+++ new/Test-Unit-Lite-0.1202/t/tlib/InheritedSuite/DerivedTest.pm
2012-12-20 17:11:41.000000000 +0100
@@ -15,7 +15,7 @@
sub test_list_tests {
my $self = shift;
my $list = $self->list_tests;
- $self->assert_deep_equals( [ qw{ test_base test_derived test_isa
test_list_tests } ], $list);
+ $self->assert_deep_equals( [ qw{ test_base test_derived test_isa
test_list_tests } ], $list);
}
sub test_derived {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/cpan_changes.t
new/Test-Unit-Lite-0.1202/xt/cpan_changes.t
--- old/Test-Unit-Lite-0.1201/xt/cpan_changes.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-Unit-Lite-0.1202/xt/cpan_changes.t 2012-12-20 17:11:41.000000000
+0100
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+use Test::More;
+use Test::CPAN::Changes;
+changes_ok();
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/cpan_meta.t
new/Test-Unit-Lite-0.1202/xt/cpan_meta.t
--- old/Test-Unit-Lite-0.1201/xt/cpan_meta.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-Unit-Lite-0.1202/xt/cpan_meta.t 2012-12-20 17:11:41.000000000
+0100
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+use Test::More;
+
+use Test::CPAN::Meta;
+meta_yaml_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/dist_manifest.t
new/Test-Unit-Lite-0.1202/xt/dist_manifest.t
--- old/Test-Unit-Lite-0.1201/xt/dist_manifest.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Test-Unit-Lite-0.1202/xt/dist_manifest.t 2012-12-20
17:11:41.000000000 +0100
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+
+use Test::More;
+
+use Test::DistManifest;
+manifest_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/eol.t
new/Test-Unit-Lite-0.1202/xt/eol.t
--- old/Test-Unit-Lite-0.1201/xt/eol.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Unit-Lite-0.1202/xt/eol.t 2012-12-20 17:11:41.000000000 +0100
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use Test::More;
+use Test::EOL;
+
+open my $fh, 'MANIFEST' or die $!;
+while (<$fh>) {
+ chomp;
+ s/\t.*//s;
+ open my $fh2, $_ or next;
+ my $line = <$fh2>;
+ close $fh2;
+ next unless /\.(c|cc|cpp|md|pl|pm|psgi|sh|t|txt)$/i or $line =~
m{^#!.*\bperl};
+ eol_unix_ok $_, "No incorrect line endings in '$_'", { trailing_whitespace
=> 1, all_reasons => 1 };
+};
+
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/no_tabs.t
new/Test-Unit-Lite-0.1202/xt/no_tabs.t
--- old/Test-Unit-Lite-0.1201/xt/no_tabs.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-Unit-Lite-0.1202/xt/no_tabs.t 2012-12-20 17:11:41.000000000
+0100
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use Test::More;
+use Test::NoTabs;
+
+open my $fh, 'MANIFEST' or die $!;
+while (<$fh>) {
+ chomp;
+ s/\t.*//s;
+ open my $fh2, $_ or next;
+ my $line = <$fh2>;
+ close $fh2;
+ next unless /\.(c|cc|cpp|md|pl|pm|psgi|sh|t|txt)$/i or $line =~
m{^#!.*\bperl};
+ notabs_ok $_, "No tabs in '$_'", { trailing_whitespace => 1, all_reasons
=> 1 };
+};
+
+done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/perlcritic.t
new/Test-Unit-Lite-0.1202/xt/perlcritic.t
--- old/Test-Unit-Lite-0.1201/xt/perlcritic.t 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-Unit-Lite-0.1202/xt/perlcritic.t 2012-12-20 17:11:41.000000000
+0100
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use File::Spec;
+use Test::More;
+
+require Test::Perl::Critic;
+
+my $rcfile = File::Spec->catfile( 'xt', 'perlcriticrc' );
+Test::Perl::Critic->import( -profile => $rcfile );
+
+all_critic_ok();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/perlcriticrc
new/Test-Unit-Lite-0.1202/xt/perlcriticrc
--- old/Test-Unit-Lite-0.1201/xt/perlcriticrc 1970-01-01 01:00:00.000000000
+0100
+++ new/Test-Unit-Lite-0.1202/xt/perlcriticrc 2012-12-20 17:11:41.000000000
+0100
@@ -0,0 +1,64 @@
+# local defaults for perlcritic
+severity = 3
+verbose = 4
+
+[BuiltinFunctions::ProhibitStringyEval]
+allow_includes = 1
+
+[ControlStructures::ProhibitCascadingIfElse]
+max_elsif = 8
+
+[-ControlStructures::ProhibitNegativeExpressionsInUnlessAndUntilConditions]
+
+[-ErrorHandling::RequireCarping]
+
+[-ErrorHandling::RequireCheckingReturnValueOfEval]
+
+[-InputOutput::ProhibitOneArgSelect]
+
+[-Modules::ProhibitAutomaticExportation]
+
+[Modules::ProhibitExcessMainComplexity]
+max_mccabe = 32
+
+[-Modules::ProhibitMultiplePackages]
+
+[NamingConventions::ProhibitAmbiguousNames]
+forbid = last set left right no abstract contract record second
+
+[RegularExpressions::ProhibitComplexRegexes]
+max_characters = 70
+
+[-RegularExpressions::ProhibitCaptureWithoutTest]
+
+[RegularExpressions::RequireExtendedFormatting]
+minimum_regex_length_to_complain_about = 75
+
+[Subroutines::ProhibitExcessComplexity]
+max_mccabe = 40
+
+[-Subroutines::ProhibitSubroutinePrototypes]
+
+[Subroutines::RequireArgUnpacking]
+short_subroutine_statements = 2
+
+[-Subroutines::RequireFinalReturn]
+
+[TestingAndDebugging::ProhibitNoStrict]
+allow = vars subs refs
+
+[TestingAndDebugging::ProhibitNoWarnings]
+allow_with_category_restriction = 1
+
+[TestingAndDebugging::ProhibitProlongedStrictureOverride]
+statements = 12
+
+[-ValuesAndExpressions::ProhibitConstantPragma]
+
+[-Variables::ProhibitPackageVars]
+
+[Variables::ProhibitReusedNames]
+allow = $VERSION $self $class
+
+[Variables::RequireLocalizedPunctuationVars]
+allow = %INC $|
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/pod_spellrc
new/Test-Unit-Lite-0.1202/xt/pod_spellrc
--- old/Test-Unit-Lite-0.1201/xt/pod_spellrc 2012-03-25 15:32:07.000000000
+0200
+++ new/Test-Unit-Lite-0.1202/xt/pod_spellrc 2012-12-20 17:11:41.000000000
+0100
@@ -4,4 +4,5 @@
ok
Piotr
Roszatycki
+subdirectories
versioned
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Unit-Lite-0.1201/xt/portability_files.t
new/Test-Unit-Lite-0.1202/xt/portability_files.t
--- old/Test-Unit-Lite-0.1201/xt/portability_files.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Test-Unit-Lite-0.1202/xt/portability_files.t 2012-12-20
17:11:41.000000000 +0100
@@ -0,0 +1,250 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+Test::Portability::Files->import();
+
+options(
+ test_ansi_chars => 0,
+ test_dos_length => 0,
+ test_mac_length => 0,
+ test_amiga_length => 0,
+
+);
+run_tests();
+
+# The following code is copied from Test::Portability::Files
+# with the patch by RT #21631
+# See http://rt.cpan.org/Public/Bug/Display.html?id=21631
+BEGIN{
+package Test::Portability::Files;
+use strict;
+use ExtUtils::Manifest qw(maniread);
+use File::Basename;
+#use File::Find;
+use File::Spec;
+use Test::Builder;
+
+{ no strict;
+ $VERSION = '0.05_01';
+ @EXPORT = qw(&options &run_tests);
+ @EXPORT_OK = @EXPORT;
+}
+
+my $Test = Test::Builder->new;
+
+sub import {
+ my $self = shift;
+ my $caller = caller;
+
+ { no strict 'refs';
+ *{$caller.'::options'} = \&options;
+ *{$caller.'::run_tests'} = \&run_tests;
+ }
+
+ $Test->exported_to($caller);
+ $Test->plan(tests => 1) unless $Test->has_plan;
+}
+
+my %options = (
+ use_file_find => 0,
+);
+
+my %tests = (
+ ansi_chars => 1,
+ one_dot => 1,
+ dir_noext => 1,
+ special_chars => 1,
+ space => 1,
+ mac_length => 1,
+ amiga_length => 1,
+ vms_length => 1,
+ dos_length => 0,
+ case => 1,
+ 'symlink' => 1,
+);
+
+my %errors_text = ( # wrap the text at this column
--------------------------------> |
+ ansi_chars => "These files does not respect the portable filename
characters\n"
+ ."as defined by ANSI C and perlport:\n",
+
+ one_dot => "These files contain more than one dot in their name:\n",
+
+ dir_noext => "These directories have an extension in their name:\n",
+
+ special_chars => "These files contain special characters that may break
on\n".
+ "several systems, please correct:\n",
+
+ space => "These files contain space in their name, which is not
well\n"
+ ."handled on several systems:\n",
+
+ mac_length => "These files have a name more than 31 characters long,
which\n"
+ ."will be truncated on Mac OS Classic and old AmigaOS:\n",
+
+ amiga_length => "These files have a name more than 107 characters long,
which\n"
+ ."will be truncated on recent AmigaOS:\n",
+
+ vms_length => "These files have a name or extension too long for VMS
(both\n"
+ ."are limited to 39 characters):\n",
+
+ dos_length => "These files have a name too long for MS-DOS and
compatible\n"
+ ."systems:\n",
+
+ case => "The name of these files differ only by the case, which
can\n"
+ ."cause real problems on case-insensitive filesystems:",
+
+ 'symlink' => "The following files are symbolic links, which are not\n"
+ ."supported on several operating systems:",
+);
+
+my %bad_names = ();
+my %lc_names = ();
+
+sub options {
+ my %opts = @_;
+ for my $test (keys %tests) {
+ $tests{$test} = $opts{"test_$test"} if exists $opts{"test_$test"}
+ }
+ for my $opt (keys %options) {
+ $options{$opt} = $opts{$opt} if exists $opts{$opt}
+ }
+ @tests{keys %tests} = (1)x(keys %tests) if $opts{all_tests};
+}
+
+sub test_name_portability {
+ my($file,$file_name,$file_path,$file_ext);
+
+ # extract path, base name and extension
+ if($options{use_file_find}) { # using Find::File
+ # skip generated files
+ return if $_ eq File::Spec->curdir or $_ eq 'pm_to_blib';
+ my $firstdir =
(File::Spec->splitdir(File::Spec->canonpath($File::Find::name)))[0];
+ return if $firstdir eq 'blib' or $firstdir eq '_build';
+
+ $file = $File::Find::name;
+ ($file_name,$file_path,$file_ext) = fileparse($file, '\\.[^.]+?');
+
+ } else { # only check against MANIFEST
+ $file = shift;
+ ($file_name,$file_path,$file_ext) = fileparse($file, '\\.[^.]+?');
+
+ #for my $dir (File::Spec->splitdir(File::Spec->canonpath($file_path)))
{
+ # test_name_portability($dir)
+ #}
+
+ $_ = $file_name.$file_ext;
+ }
+ #print STDERR "file $file\t=> path='$file_path', name='$file_name',
ext='$file_ext'\n";
+
+ # After this point, the following variables are expected to hold these
semantics
+ # $file must contain the path to the file (t/00load.t)
+ # $_ must contain the full name of the file (00load.t)
+ # $file_name must contain the base name of the file (00load)
+ # $file_path must contain the path to the directory containing the file
(t/)
+ # $file_ext must contain the extension (if any) of the file (.t)
+
+ # check if the name only uses portable filename characters, as defined by
ANSI C
+ if($tests{ansi_chars}) {
+ /^[A-Za-z0-9][A-Za-z0-9._-]*$/ or $bad_names{$file} .= 'ansi_chars,'
+ }
+
+ # check if the name contains more than one dot
+ if($tests{one_dot}) {
+ tr/.// > 1 and $bad_names{$file} .= 'one_dot,'
+ }
+
+ # check if the name contains special chars
+ if($tests{special_chars}) {
+ m-[!"#\$%&'\(\)\*\+/:;<>\?@\[\\\]^`\{\|\}~]- # " for poor editors
+ and $bad_names{$file} .= 'special_chars,'
+ }
+
+ # check if the name contains a space char
+ if($tests{space}) {
+ m/ / and $bad_names{$file} .= 'space,'
+ }
+
+ # check the length of the name, compared to Mac OS Classic max length
+ if($tests{mac_length}) {
+ length > 31 and $bad_names{$file} .= 'mac_length,'
+ }
+
+ # check the length of the name, compared to AmigaOS max length
+ if($tests{amiga_length}) {
+ length > 107 and $bad_names{$file} .= 'amiga_length,'
+ }
+
+ # check the length of the name, compared to VMS max length
+ if($tests{vms_length}) {
+ ( length($file_name) <= 39 and length($file_ext) <= 40 )
+ or $bad_names{$file} .= 'vms_length,'
+ }
+
+ # check the length of the name, compared to DOS max length
+ if($tests{dos_length}) {
+ ( length($file_name) <= 8 and length($file_ext) <= 4 )
+ or $bad_names{$file} .= 'dos_length,'
+ }
+
+ # check if the name is unique on case-insensitive filesystems
+ if($tests{case}) {
+ if(not $lc_names{$file} and $lc_names{lc $file}) {
+ $bad_names{$file} .= 'case,';
+ $bad_names{$lc_names{lc $file}} .= 'case,';
+ } else {
+ $lc_names{lc $file} = $file
+ }
+ }
+
+ # check if the file is a symbolic link
+ if($tests{'symlink'}) {
+ -l $file and $bad_names{$file} .= 'symlink,'
+ }
+
+ # if it's a directory, check that it has no extension
+ if($tests{'dir_noext'}) {
+ -d $file and tr/.// > 0 and $bad_names{$file} .= 'dir_noext,'
+ }
+}
+
+sub run_tests {
+ fileparse_set_fstype('Unix');
+
+ if($options{use_file_find}) {
+ # check all files found using File::Find
+ find(\&test_name_portability, File::Spec->curdir);
+
+ } else {
+ # check only against files listed in MANIFEST
+ my $manifest = maniread();
+ map { test_name_portability($_) } keys %$manifest;
+ }
+
+ # check the results
+ if(keys %bad_names) {
+ $Test->ok(0, "File names portability");
+
+ my %errors_list = ();
+ for my $file (keys %bad_names) {
+ for my $error (split ',', $bad_names{$file}) {
+ $errors_list{$error} = [] if not ref $errors_list{$error};
+ push @{$errors_list{$error}}, $file;
+ }
+ }
+
+ for my $error (sort keys %errors_list) {
+ $Test->diag($errors_text{$error});
+
+ for my $file (sort @{$errors_list{$error}}) {
+ $Test->diag(" $file")
+ }
+
+ $Test->diag(' ')
+ }
+ } else {
+ $Test->ok(1, "File names portability");
+ }
+}
+
+} # end of BEGIN
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
