Hello community,
here is the log from the commit of package perl-Test-Differences for openSUSE:Factory checked in at 2019-02-28 21:23:45
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Differences (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Differences.new.28833 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Differences"
Thu Feb 28 21:23:45 2019 rev:13 rq:677964 version:0.65
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-Differences/perl-Test-Differences.changes 2015-12-03 13:31:03.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Test-Differences.new.28833/perl-Test-Differences.changes 2019-02-28 21:23:46.893925516 +0100
@@ -1,0 +2,23 @@
+Thu Feb 21 10:59:44 UTC 2019 - Pedro Monreal Gonzalez
+
+- Added test dependencies during build:
+ * Test::Pod >= 1.22, Test::Pod::Coverage >= 1.08
+- Cleaned with spec-cleaner
+
+-------------------------------------------------------------------
+Wed Feb 20 06:33:52 UTC 2019 - Stephan Kulow
+
+- updated to 0.65
+ see /usr/share/doc/packages/perl-Test-Differences/Changes
+
+ 0.65 2019-02-19
+ - Canonical repo is now https://github.com/DrHyde/perl-modules-Test-Differences
+ - Fix discrepancies in copyright notices (thanks to Christian Neukirchen
+ for pointing them out)
+ - Make the tests more consistent (thanks to genio)
+ - Add unicode tests
+ - Fix whitespace issue in tests when using recent Test::More in verbose mode
+ (thanks to ntnyi for debugging)
+ - Get rid of Build.PL, just use Makefile.PL
+
+-------------------------------------------------------------------
Old:
----
Test-Differences-0.64.tar.gz
New:
----
Test-Differences-0.65.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Differences.spec ++++++
--- /var/tmp/diff_new_pack.nywAnK/_old 2019-02-28 21:23:47.493925315 +0100
+++ /var/tmp/diff_new_pack.nywAnK/_new 2019-02-28 21:23:47.497925313 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Test-Differences
#
-# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -12,33 +12,34 @@
# license that conforms to the Open Source Definition (Version 1.9)
# published by the Open Source Initiative.
-# Please submit bugfixes or comments via http://bugs.opensuse.org/
+# Please submit bugfixes or comments via https://bugs.opensuse.org/
#
+#Upstream: All Rights Reserved. You may use, distribute and modify this software under the terms of the GNU public license, any version, or the Artistic license.
+%define cpan_name Test-Differences
Name: perl-Test-Differences
-Version: 0.64
+Version: 0.65
Release: 0
-%define cpan_name Test-Differences
Summary: Test strings and data structures and show differences if not ok
-License: Artistic-1.0 or GPL-1.0+
+License: Artistic-1.0 OR GPL-1.0-or-later
Group: Development/Libraries/Perl
-Url: http://search.cpan.org/dist/Test-Differences/
-Source0: http://www.cpan.org/authors/id/D/DC/DCANTRELL/%{cpan_name}-%{version}.tar.gz
+URL: https://metacpan.org/release/%{cpan_name}
+Source0: https://cpan.metacpan.org/authors/id/D/DC/DCANTRELL/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
-BuildArch: noarch
-BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(Capture::Tiny) >= 0.24
BuildRequires: perl(Data::Dumper) >= 2.126
-BuildRequires: perl(Module::Build)
BuildRequires: perl(Test::More) >= 0.88
-BuildRequires: perl(Text::Diff) >= 0.35
+BuildRequires: perl(Test::Pod) >= 1.22
+BuildRequires: perl(Test::Pod::Coverage) >= 1.08
+BuildRequires: perl(Text::Diff) >= 1.43
Requires: perl(Capture::Tiny) >= 0.24
Requires: perl(Data::Dumper) >= 2.126
Requires: perl(Test::More) >= 0.88
-Requires: perl(Text::Diff) >= 0.35
+Requires: perl(Text::Diff) >= 1.43
+BuildArch: noarch
%{perl_requires}
%description
@@ -88,14 +89,15 @@
%setup -q -n %{cpan_name}-%{version}
%build
-%{__perl} Build.PL installdirs=vendor
-./Build build flags=%{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor
+make %{?_smp_mflags}
%check
-./Build test
+make %{?_smp_mflags} test
%install
-./Build install destdir=%{buildroot} create_packlist=0
+%perl_make_install
+%perl_process_packlist
%perl_gen_filelist
%files -f %{name}.files
++++++ Test-Differences-0.64.tar.gz -> Test-Differences-0.65.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/Build.PL new/Test-Differences-0.65/Build.PL
--- old/Test-Differences-0.64/Build.PL 2015-03-09 00:39:41.000000000 +0100
+++ new/Test-Differences-0.65/Build.PL 1970-01-01 01:00:00.000000000 +0100
@@ -1,24 +0,0 @@
-use strict;
-use warnings;
-use Module::Build;
-
-my $builder = Module::Build->new(
- module_name => 'Test::Differences',
- license => 'perl',
- dist_author => 'David Cantrell 'lib/Test/Differences.pm',
- perl => 5.006,
- requires => {
- 'Test::More' => '0.88', # done_testing
- 'Text::Diff' => 0.35,
- 'Data::Dumper' => 2.126,
- 'Capture::Tiny' => 0.24,
- },
- add_to_cleanup => ['Test-Differences-*'],
- meta_merge => {
- resources =>
- { repository => 'https://github.com/Ovid/Test-Differences' }
- },
-);
-
-$builder->create_build_script();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/Changes new/Test-Differences-0.65/Changes
--- old/Test-Differences-0.64/Changes 2015-11-22 15:32:59.000000000 +0100
+++ new/Test-Differences-0.65/Changes 2019-02-19 23:29:58.000000000 +0100
@@ -1,8 +1,18 @@
Changes file for Test::Differences
+0.65 2019-02-19
+ - Canonical repo is now https://github.com/DrHyde/perl-modules-Test-Differences
+ - Fix discrepancies in copyright notices (thanks to Christian Neukirchen
+ for pointing them out)
+ - Make the tests more consistent (thanks to genio)
+ - Add unicode tests
+ - Fix whitespace issue in tests when using recent Test::More in verbose mode
+ (thanks to ntnyi for debugging)
+ - Get rid of Build.PL, just use Makefile.PL
+
0.64 Sun November 22, 2015
- Bump dependency version for Text::Diff to avoid a buggy release
- - Make tests pass with relocation perl (see
+ - Make tests pass with relocatable perl (see
https://rt.cpan.org/Ticket/Display.html?id=103133)
0.63 Thu November 20, 2014
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/MANIFEST new/Test-Differences-0.65/MANIFEST
--- old/Test-Differences-0.64/MANIFEST 2015-11-22 15:33:41.000000000 +0100
+++ new/Test-Differences-0.65/MANIFEST 2019-02-19 23:32:41.000000000 +0100
@@ -1,4 +1,3 @@
-Build.PL
Changes
lib/Test/Differences.pm
Makefile.PL
@@ -20,5 +19,7 @@
t/script/custom-headers
t/script/default-headers
MANIFEST.SKIP
+t/unicode.t
+t/lib/Test/Differences/TestUtils/Capture.pm
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/META.json new/Test-Differences-0.65/META.json
--- old/Test-Differences-0.64/META.json 2015-11-22 15:33:41.000000000 +0100
+++ new/Test-Differences-0.65/META.json 2019-02-19 23:32:41.000000000 +0100
@@ -4,13 +4,13 @@
"David Cantrell "
],
"dynamic_config" : 1,
- "generated_by" : "ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001",
+ "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010",
"license" : [
"unknown"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
- "version" : "2"
+ "version" : 2
},
"name" : "Test-Differences",
"no_index" : {
@@ -42,11 +42,12 @@
"release_status" : "stable",
"resources" : {
"bugtracker" : {
- "web" : "https://github.com/Ovid/Test-Differences/issues"
+ "web" : "https://github.com/DrHyde/Test-Differences/issues"
},
"repository" : {
- "url" : "https://github.com/Ovid/Test-Differences"
+ "url" : "https://github.com/DrHyde/Test-Differences"
}
},
- "version" : "0.64"
+ "version" : "0.65",
+ "x_serialization_backend" : "JSON::PP version 2.97001"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/META.yml new/Test-Differences-0.65/META.yml
--- old/Test-Differences-0.64/META.yml 2015-11-22 15:33:41.000000000 +0100
+++ new/Test-Differences-0.65/META.yml 2019-02-19 23:32:41.000000000 +0100
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 7.0401, CPAN::Meta::Converter version 2.150001'
+generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010'
license: unknown
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -23,6 +23,7 @@
Test::More: '0.88'
Text::Diff: '1.43'
resources:
- bugtracker: https://github.com/Ovid/Test-Differences/issues
- repository: https://github.com/Ovid/Test-Differences
-version: '0.64'
+ bugtracker: https://github.com/DrHyde/Test-Differences/issues
+ repository: https://github.com/DrHyde/Test-Differences
+version: '0.65'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/Makefile.PL new/Test-Differences-0.65/Makefile.PL
--- old/Test-Differences-0.64/Makefile.PL 2015-11-19 15:24:54.000000000 +0100
+++ new/Test-Differences-0.65/Makefile.PL 2019-02-19 22:34:21.000000000 +0100
@@ -24,8 +24,8 @@
clean => { FILES => 'Test-Differences-*' },
META_MERGE => {
resources => {
- repository => 'https://github.com/Ovid/Test-Differences',
- bugtracker => 'https://github.com/Ovid/Test-Differences/issues',
+ repository => 'https://github.com/DrHyde/Test-Differences',
+ bugtracker => 'https://github.com/DrHyde/Test-Differences/issues',
},
},
);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/README new/Test-Differences-0.65/README
--- old/Test-Differences-0.64/README 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/README 2019-02-19 23:24:20.000000000 +0100
@@ -18,23 +18,20 @@
You can also look for information at:
- RT, CPAN's request tracker
- http://rt.cpan.org/NoAuth/Bugs.html?Dist=Test-Differences
-
- AnnoCPAN, Annotated CPAN documentation
- http://annocpan.org/dist/Test-Differences
+ The bug tracker:
+ https://github.com/DrHyde/perl-modules-Test-Differences/issues
CPAN Ratings
http://cpanratings.perl.org/d/Test-Differences
- Search CPAN
- http://search.cpan.org/dist/Test-Differences
-
+ MetaCPAN:
+ https://metacpan.org/pod/Test::Differences
COPYRIGHT AND LICENCE
-Copyright (C) 2008 Curtis "Ovid" Poe
+Copyright Barrie Slaymaker, Curtis "Ovid" Poe, and David Cantrell.
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
+All Rights Reserved.
+You may use, distribute and modify this software under the terms of the GNU
+public license, any version, or the Artistic license.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/lib/Test/Differences.pm new/Test-Differences-0.65/lib/Test/Differences.pm
--- old/Test-Differences-0.64/lib/Test/Differences.pm 2015-11-22 15:31:51.000000000 +0100
+++ new/Test-Differences-0.65/lib/Test/Differences.pm 2019-02-19 21:51:36.000000000 +0100
@@ -6,10 +6,6 @@
Test::Differences - Test strings and data structures and show differences if not ok
-=head1 VERSION
-
-0.62
-
=head1 SYNOPSIS
use Test; ## Or use Test::More
@@ -322,7 +318,7 @@
=cut
-our $VERSION = "0.64"; # or "0.001_001" for a dev release
+our $VERSION = "0.65"; # or "0.001_001" for a dev release
$VERSION = eval $VERSION;
use Exporter;
@@ -339,6 +335,7 @@
);
use strict;
+use warnings;
use Carp;
use Text::Diff;
@@ -570,10 +567,12 @@
=head1 LICENSE
-Copyright 2001-2008 Barrie Slaymaker, All Rights Reserved.
+Copyright Barrie Slaymaker, Curtis "Ovid" Poe, and David Cantrell.
+
+All Rights Reserved.
-You may use this software under the terms of the GNU public license, any
-version, or the Artistic license.
+You may use, distribute and modify this software under the terms of the GNU
+public license, any version, or the Artistic license.
=cut
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/00-load.t new/Test-Differences-0.65/t/00-load.t
--- old/Test-Differences-0.64/t/00-load.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/00-load.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,9 +1,11 @@
#!perl -T
+use strict;
+use warnings;
use Test::More tests => 1;
BEGIN {
- use_ok( 'Test::Differences' );
+ use_ok( 'Test::Differences' ) || BAIL_OUT("Can't load the module!");
}
diag( "Testing Test::Differences $Test::Differences::VERSION, Perl $], $^X" );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/column-headers.t new/Test-Differences-0.65/t/column-headers.t
--- old/Test-Differences-0.64/t/column-headers.t 2015-11-22 15:30:16.000000000 +0100
+++ new/Test-Differences-0.65/t/column-headers.t 2019-02-19 23:03:46.000000000 +0100
@@ -1,20 +1,22 @@
+#!perl
+
use strict;
use warnings;
+use lib 't/lib';
+use Test::Differences::TestUtils::Capture;
+
use Test::More;
-use Capture::Tiny qw(capture);
END { done_testing(); }
-my($stdout, $stderr) = capture { system (
+my $stderr = capture_error { system (
$^X, (map { "-I$_" } (@INC)),
't/script/default-headers'
) };
-
is(
$stderr,
-"
-# Failed test 'both the same'
+"# Failed test 'both the same'
# at t/script/default-headers line 8.
# +----+----------------+----------------+
# | Elt|Got |Expected |
@@ -28,15 +30,13 @@
"got expected error output"
);
-($stdout, $stderr) = capture { system (
+$stderr = capture_error { system (
$^X, (map { "-I$_" } (@INC)),
't/script/custom-headers'
) };
-
is(
$stderr,
-"
-# Failed test 'both the same'
+"# Failed test 'both the same'
# at t/script/custom-headers line 8.
# +----+----------------+----------------+
# | Elt|Lard |Chips |
@@ -49,4 +49,3 @@
",
"got expected error output"
);
-
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/diff_styles.t new/Test-Differences-0.65/t/diff_styles.t
--- old/Test-Differences-0.64/t/diff_styles.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/diff_styles.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!perl
use strict;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/example.t new/Test-Differences-0.65/t/example.t
--- old/Test-Differences-0.64/t/example.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/example.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,4 +1,7 @@
+#!perl
+
use strict;
+use warnings;
my $x;
my $demo = $ENV{DEMO};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/lib/Test/Differences/TestUtils/Capture.pm new/Test-Differences-0.65/t/lib/Test/Differences/TestUtils/Capture.pm
--- old/Test-Differences-0.64/t/lib/Test/Differences/TestUtils/Capture.pm 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Differences-0.65/t/lib/Test/Differences/TestUtils/Capture.pm 2019-02-19 23:02:48.000000000 +0100
@@ -0,0 +1,19 @@
+package #
+ Test::Differences::TestUtils::Capture;
+
+use strict;
+use warnings;
+use Exporter qw(import);
+
+our @EXPORT = qw(capture_error);
+
+use Capture::Tiny qw(capture);
+
+sub capture_error(&) {
+ my $sub = shift;
+ my($stdout, $stderr) = capture { $sub->() };
+ $stderr =~ s/^\s+//; # see https://github.com/Ovid/Test-Differences/issues/15
+ return $stderr;
+}
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/pass.t new/Test-Differences-0.65/t/pass.t
--- old/Test-Differences-0.64/t/pass.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/pass.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,13 +1,17 @@
+#!perl
+
+use strict;
+use warnings;
use Test::More;
use Test::Differences;
# use large enough data sets that this thing chooses context => 3 instead
# of "full document context".
-my $a = ( "\n" x 30 ) . "a\n";
-my $b = ( "\n" x 30 ) . "b\n";
+my $x = ( "\n" x 30 ) . "x\n";
+my $y = ( "\n" x 30 ) . "y\n";
-my @tests = (
- sub { eq_or_diff [ "a", "b" ], [ "a", "b" ] },
+my @tests = (
+ sub { eq_or_diff [ "x", "y" ], [ "x", "y" ] },
);
plan tests => scalar @tests;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/pod-coverage.t new/Test-Differences-0.65/t/pod-coverage.t
--- old/Test-Differences-0.64/t/pod-coverage.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/pod-coverage.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,3 +1,5 @@
+#!perl
+
use strict;
use warnings;
use Test::More;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/regression.t new/Test-Differences-0.65/t/regression.t
--- old/Test-Differences-0.64/t/regression.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/regression.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,7 +1,7 @@
-#!/usr/bin/perl -w
+#!perl
use strict;
-
+use warnings;
use Test::More;
use Test::Differences;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/struct.t new/Test-Differences-0.65/t/struct.t
--- old/Test-Differences-0.64/t/struct.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/struct.t 2019-02-19 23:05:42.000000000 +0100
@@ -1,5 +1,12 @@
-use Test::More;
+#!perl
+
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::Differences::TestUtils::Capture;
+
+use Test::More;
use Test::Differences;
## This mind-bender submitted by Yves Orton
@@ -14,6 +21,33 @@
sub { eq_or_diff $ar, [ $x, $y ] },
);
-plan tests => scalar @tests;
+plan tests => 1 + scalar @tests;
$_->() for @tests;
+
+# submitted by bessarabov, https://github.com/Ovid/Test-Differences/issues/2
+my $stderr = capture_error { system (
+ $^X, (map { "-I$_" } (@INC)),
+ qw(-Mstrict -Mwarnings -MTest::More -MTest::Differences),
+ '-e', '
+ END { done_testing(); }
+ eq_or_diff([[1]], [1])
+ '
+) };
+
+is(
+ $stderr,
+'# Failed test at -e line 3.
+# +----+-------+----+----------+
+# | Elt|Got | Elt|Expected |
+# +----+-------+----+----------+
+# | 0|[ | 0|[ |
+# * 1| [ * 1| 1 *
+# * 2| 1 * | |
+# * 3| ] * | |
+# | 4|] | 2|] |
+# +----+-------+----+----------+
+# Looks like you failed 1 test of 1.
+',
+ "got expected error output"
+);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/test.t new/Test-Differences-0.65/t/test.t
--- old/Test-Differences-0.64/t/test.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/test.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,5 +1,8 @@
-use Test::More;
+#!perl
+use strict;
+use warnings;
+use Test::More;
use Test::Differences;
my @tests = (
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/text_vs_data.t new/Test-Differences-0.65/t/text_vs_data.t
--- old/Test-Differences-0.64/t/text_vs_data.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/text_vs_data.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,15 +1,19 @@
+#!perl
+
+use strict;
+use warnings;
use Test::More;
use Test::Differences;
# use large enough data sets that this thing chooses context => 3 instead
# of "full document context".
-my $a = ( "\n" x 30 ) . "a\n";
-my $b = ( "\n" x 30 ) . "b\n";
+my $x = ( "\n" x 30 ) . "x\n";
+my $y = ( "\n" x 30 ) . "y\n";
my @tests = (
- sub { eq_or_diff $a, $b },
- sub { eq_or_diff_text $a, $b },
- sub { eq_or_diff_data $a, $b },
+ sub { eq_or_diff $x, $y },
+ sub { eq_or_diff_text $x, $y },
+ sub { eq_or_diff_data $x, $y },
);
plan tests => scalar @tests;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/undef.t new/Test-Differences-0.65/t/undef.t
--- old/Test-Differences-0.64/t/undef.t 2014-06-19 15:53:12.000000000 +0200
+++ new/Test-Differences-0.65/t/undef.t 2019-02-19 21:51:36.000000000 +0100
@@ -1,3 +1,7 @@
+#!perl
+
+use strict;
+use warnings;
use Test::More qw(no_plan);
use Test::Differences;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Differences-0.64/t/unicode.t new/Test-Differences-0.65/t/unicode.t
--- old/Test-Differences-0.64/t/unicode.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Differences-0.65/t/unicode.t 2019-02-19 23:00:11.000000000 +0100
@@ -0,0 +1,47 @@
+#!perl
+
+use strict;
+use warnings;
+
+use lib 't/lib';
+use Test::Differences::TestUtils::Capture;
+
+use Test::More;
+use Test::Differences;
+
+plan tests => 2;
+
+eq_or_diff(
+ ["\N{U+2603}", "\N{U+1F4A9}"],
+ ["\N{U+2603}", "\N{U+1F4A9}"]
+);
+
+my $stderr = capture_error { system (
+ $^X, (map { "-I$_" } (@INC)),
+ qw(-Mstrict -Mwarnings -MTest::More -MTest::Differences),
+ '-e', '
+ END { done_testing(); }
+ eq_or_diff(
+ [ "\\N{U+2603}", "\\N{U+1F4A9}"],
+ [reverse "\\N{U+2603}", "\\N{U+1F4A9}"]
+ )
+ '
+) };
+
+is(
+ $stderr,
+'# Failed test at -e line 3.
+# +----+---------------+----------------+
+# | Elt|Got |Expected |
+# +----+---------------+----------------+
+# | 0|[ |[ |
+# * 1| "\x{2603}", | "\x{1f4a9}", *
+# * 2| "\x{1f4a9}" | "\x{2603}" *
+# | 3|] |] |
+# +----+---------------+----------------+
+# Looks like you failed 1 test of 1.
+',
+ "got expected error output"
+);
+
+
