Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Test-Inter for openSUSE:Factory
checked in at 2024-03-03 20:18:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Test-Inter (Old)
and /work/SRC/openSUSE:Factory/.perl-Test-Inter.new.1770 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Inter"
Sun Mar 3 20:18:11 2024 rev:17 rq:1153785 version:1.110.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Test-Inter/perl-Test-Inter.changes
2023-03-11 18:24:27.831013137 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Test-Inter.new.1770/perl-Test-Inter.changes
2024-03-03 20:18:16.899573736 +0100
@@ -1,0 +2,12 @@
+Tue Feb 27 03:13:11 UTC 2024 - Tina Müller <[email protected]>
+
+- updated to 1.11
+ see /usr/share/doc/packages/perl-Test-Inter/Changes
+
+ 1.11 2024-02-26
+ - Fixed a bug where options passed to 'new' were not used.
+ - Changed RELEASE_TESTING variable.
+ Now use a release-specific testing variable rather than RELEASE_TESTING.
+ See GitHub #17 in my Locale-Codes module for details.
+
+-------------------------------------------------------------------
Old:
----
Test-Inter-1.10.tar.gz
New:
----
Test-Inter-1.11.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Test-Inter.spec ++++++
--- /var/tmp/diff_new_pack.zMcRdv/_old 2024-03-03 20:18:17.487595009 +0100
+++ /var/tmp/diff_new_pack.zMcRdv/_new 2024-03-03 20:18:17.491595154 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Test-Inter
#
-# Copyright (c) 2023 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,16 +18,19 @@
%define cpan_name Test-Inter
Name: perl-Test-Inter
-Version: 1.10
+Version: 1.110.0
Release: 0
+%define cpan_version 1.11
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Framework for more readable interactive test scripts
URL: https://metacpan.org/release/%{cpan_name}
-Source0:
https://cpan.metacpan.org/authors/id/S/SB/SBECK/%{cpan_name}-%{version}.tar.gz
+Source0:
https://cpan.metacpan.org/authors/id/S/SB/SBECK/%{cpan_name}-%{cpan_version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
BuildRequires: perl
BuildRequires: perl-macros
+Provides: perl(Test::Inter) = %{version}
+%define __perllib_provides /bin/true
%{perl_requires}
%description
@@ -50,9 +53,9 @@
nearly as useful as they could be.
%prep
-%autosetup -n %{cpan_name}-%{version}
+%autosetup -n %{cpan_name}-%{cpan_version}
-find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
+find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -path "*/scripts/*" ! -name "configure" -print0 | xargs -0 chmod
644
%build
perl Makefile.PL INSTALLDIRS=vendor
++++++ Test-Inter-1.10.tar.gz -> Test-Inter-1.11.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/Changes new/Test-Inter-1.11/Changes
--- old/Test-Inter-1.10/Changes 2023-03-07 14:20:27.000000000 +0100
+++ new/Test-Inter-1.11/Changes 2024-02-26 20:38:18.000000000 +0100
@@ -2,6 +2,12 @@
Sullivan Beck ([email protected])
Any suggestions, bug reports, or donations :-) should be sent to me.
+1.11 2024-02-26
+ - Fixed a bug where options passed to 'new' were not used.
+ - Changed RELEASE_TESTING variable.
+ Now use a release-specific testing variable rather than RELEASE_TESTING.
+ See GitHub #17 in my Locale-Codes module for details.
+
1.10 2023-03-07
- A number of modules were included as test dependencies that are only used
by the author when preparing releases. These have been removed as
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/MANIFEST new/Test-Inter-1.11/MANIFEST
--- old/Test-Inter-1.10/MANIFEST 2023-03-07 14:43:27.000000000 +0100
+++ new/Test-Inter-1.11/MANIFEST 2024-02-26 20:55:19.000000000 +0100
@@ -14,6 +14,7 @@
LICENSE
Makefile.PL
MANIFEST This list of files
+MANIFEST.SKIP
README
t/_pod.t
t/_pod_coverage.t
@@ -32,5 +33,11 @@
t/use_ok.1.t
t/use_ok.2.t
t/use_ok.3.t
+t/vars.1.t
+t/vars.2.t
+t/vars.3.t
+t/vars.4.t
+t/vars.5.t
+t/vars.other.t
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-Inter-1.10/MANIFEST.SKIP
new/Test-Inter-1.11/MANIFEST.SKIP
--- old/Test-Inter-1.10/MANIFEST.SKIP 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/MANIFEST.SKIP 2024-02-26 20:55:18.000000000 +0100
@@ -1,16 +1,7 @@
^\.cover
^\.git
-^\.travis.yml
# Makemaker generated files and dirs.
-^MANIFEST\.
+^MANIFEST\.bak
^Makefile$
-^blib/
-^MakeMaker-\d
^MYMETA\.
-
-# Temp, old and emacs backup files.
-~$
-\.old$
-^#.*#$
-^\.#
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/META.json
new/Test-Inter-1.11/META.json
--- old/Test-Inter-1.10/META.json 2023-03-07 14:43:27.000000000 +0100
+++ new/Test-Inter-1.11/META.json 2024-02-26 20:55:19.000000000 +0100
@@ -47,7 +47,7 @@
"provides" : {
"Test::Inter" : {
"file" : "lib/Test/Inter.pm",
- "version" : "1.10"
+ "version" : "1.11"
}
},
"release_status" : "stable",
@@ -62,6 +62,6 @@
"web" : "https://github.com/SBECK-github/Test-Inter";
}
},
- "version" : "1.10",
+ "version" : "1.11",
"x_serialization_backend" : "JSON::PP version 2.27400_02"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/META.yml new/Test-Inter-1.11/META.yml
--- old/Test-Inter-1.10/META.yml 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/META.yml 2024-02-26 20:55:19.000000000 +0100
@@ -21,7 +21,7 @@
provides:
Test::Inter:
file: lib/Test/Inter.pm
- version: '1.10'
+ version: '1.11'
requires:
Cwd: '0'
File::Basename: '0'
@@ -31,5 +31,5 @@
bugtracker: https://github.com/SBECK-github/Test-Inter/issues
homepage: https://github.com/SBECK-github/Test-Inter
repository: git://github.com/SBECK-github/Test-Inter.git
-version: '1.10'
+version: '1.11'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/Makefile.PL
new/Test-Inter-1.11/Makefile.PL
--- old/Test-Inter-1.10/Makefile.PL 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/Makefile.PL 2024-02-26 20:55:19.000000000 +0100
@@ -38,7 +38,7 @@
WriteMakefile(
NAME => "Test::Inter",
- VERSION => "1.10",
+ VERSION => "1.11",
ABSTRACT => "framework for more readable interactive test scripts",
LICENSE => "perl",
($EU_MM_V >= 6.48
@@ -59,7 +59,7 @@
provides => {
'Test::Inter' => {
file => 'lib/Test/Inter.pm',
- version => '1.10',
+ version => '1.11',
},
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/README new/Test-Inter-1.11/README
--- old/Test-Inter-1.10/README 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/README 2024-02-26 20:55:19.000000000 +0100
@@ -209,8 +209,8 @@
The name may not have a '#' in it.
- The name is completely optional, but makes the results more
- readable.
+ The name is completely optional, but can serve to make the results
+ more readable.
An expected result
In order to test something, you need to know what result was
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/examples/tests
new/Test-Inter-1.11/examples/tests
--- old/Test-Inter-1.10/examples/tests 2014-09-10 15:46:29.000000000 +0200
+++ new/Test-Inter-1.11/examples/tests 2023-03-21 20:13:12.000000000 +0100
@@ -3,7 +3,7 @@
use Test::Inter;
$o = new Test::Inter;
-print "The following tests test some improperly formed tests\n\n";
+print "The following demonstrates some improperly formed tests\n\n";
sub func1 {
my($a,$b) = @_;
@@ -13,7 +13,7 @@
elsif ($a eq 'e' && $b eq 'f') { return 3; }
}
-print "The 2nd one fails with 'expected results for some, not others\n\n";
+print "The 2nd one fails with 'expected results for some tests, not
others'\n\n";
$o->tests(func => \&func1,
tests => "a b => 1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/lib/Test/Inter.pm
new/Test-Inter-1.11/lib/Test/Inter.pm
--- old/Test-Inter-1.10/lib/Test/Inter.pm 2023-03-07 14:19:30.000000000
+0100
+++ new/Test-Inter-1.11/lib/Test/Inter.pm 2024-02-26 20:54:35.000000000
+0100
@@ -1,5 +1,5 @@
package Test::Inter;
-# Copyright (c) 2010-2019 Sullivan Beck. All rights reserved.
+# Copyright (c) 2010-2024 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
@@ -14,7 +14,7 @@
use Cwd 'abs_path';
our($VERSION);
-$VERSION = '1.10';
+$VERSION='1.11';
###############################################################################
# BASE METHODS
@@ -75,31 +75,25 @@
no strict 'refs';
foreach my $opt (@opts) {
- if (! exists $o{$opt}) {
- $self->_die("Invalid option to new method: $opt");
- }
-
my $OPT = uc("ti_$opt");
- if (exists $opts{opt} ||
- exists $ENV{$OPT} ||
- defined ${ "main::$OPT" }) {
-
- my $val;
- if (defined ${ "main::$OPT" }) {
- $val = ${ "main::$OPT" };
- } elsif (exists $ENV{$OPT}) {
- $val = $ENV{$OPT};
- } else {
- $val = $opts{$opt};
- }
-
- &{ "Test::Inter::$opt" }($self,$val);
+ my $val;
+ if (defined ${ "main::$OPT" }) {
+ $val = ${ "main::$OPT" };
+ } elsif (exists $ENV{$OPT}) {
+ $val = $ENV{$OPT};
+ } elsif (exists $opts{$opt}) {
+ $val = $opts{$opt};
+ } else {
+ next;
}
+
+ &{ "Test::Inter::$opt" }($self,$val);
}
+ # uncoverable branch true
if ($$self{'mode'} ne 'test') {
- print "\nRunning $name...\n";
+ print "\nRunning $name...\n"; # uncoverable statement
}
# We assume that the module is distributed in a directory with the correct
@@ -111,16 +105,24 @@
my($moddir,$testdir,$libdir);
+ # uncoverable branch false
+ # uncoverable branch true count:2
+ # uncoverable branch false count:2
+ # uncoverable branch true count:3
+ # uncoverable branch false count:3
if (-f "$0") {
$moddir = dirname(dirname(abs_path($0)));
} elsif (-d "./t") {
- $moddir = dirname(abs_path('.'));
+ $moddir = dirname(abs_path('.')); # uncoverable statement
} elsif (-d "../t") {
- $moddir = dirname(abs_path('..'));
+ $moddir = dirname(abs_path('..')); # uncoverable statement
}
+
+ # uncoverable branch false
if (-d "$moddir/t") {
$testdir = "$moddir/t";
}
+ # uncoverable branch false
if (-d "$moddir/lib") {
$libdir = "$moddir/lib";
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/lib/Test/Inter.pod
new/Test-Inter-1.11/lib/Test/Inter.pod
--- old/Test-Inter-1.10/lib/Test/Inter.pod 2019-03-14 18:38:05.000000000
+0100
+++ new/Test-Inter-1.11/lib/Test/Inter.pod 2024-02-26 20:38:47.000000000
+0100
@@ -1,4 +1,4 @@
-# Copyright (c) 2010-2019 Sullivan Beck. All rights reserved.
+# Copyright (c) 2010-2024 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
@@ -231,7 +231,8 @@
The name may not have a '#' in it.
-The name is completely optional, but makes the results more readable.
+The name is completely optional, but can serve to make the results
+more readable.
=item B<An expected result>
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/_pod.t new/Test-Inter-1.11/t/_pod.t
--- old/Test-Inter-1.10/t/_pod.t 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/t/_pod.t 2024-02-26 20:55:18.000000000 +0100
@@ -6,8 +6,8 @@
BEGIN {
use Test::More;
# Don't run tests for installs
- unless ($ENV{RELEASE_TESTING}) {
- plan skip_all => 'Author tests not required for installation (set
RELEASE_TESTING to test)';
+ unless ($ENV{Test_Inter_RELEASE_TESTING}) {
+ plan skip_all => 'Author tests not required for installation (set
Test_Inter_RELEASE_TESTING to test)';
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/_pod_coverage.t
new/Test-Inter-1.11/t/_pod_coverage.t
--- old/Test-Inter-1.10/t/_pod_coverage.t 2023-03-07 14:43:26.000000000
+0100
+++ new/Test-Inter-1.11/t/_pod_coverage.t 2024-02-26 20:55:18.000000000
+0100
@@ -6,8 +6,8 @@
BEGIN {
use Test::More;
# Don't run tests for installs
- unless ($ENV{RELEASE_TESTING}) {
- plan skip_all => 'Author tests not required for installation (set
RELEASE_TESTING to test)';
+ unless ($ENV{Test_Inter_RELEASE_TESTING}) {
+ plan skip_all => 'Author tests not required for installation (set
Test_Inter_RELEASE_TESTING to test)';
}
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/_version.t
new/Test-Inter-1.11/t/_version.t
--- old/Test-Inter-1.10/t/_version.t 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/t/_version.t 2024-02-26 20:55:18.000000000 +0100
@@ -2,13 +2,21 @@
use warnings 'all';
use strict;
+BEGIN {
+ if (-d "./lib") {
+ use lib "./lib";
+ }
+ if (-d "../lib") {
+ use lib "../lib";
+ }
+}
use Test::Inter;
my $ti;
BEGIN {
$ti = new Test::Inter $0;
- unless ($ENV{RELEASE_TESTING}) {
- $ti->skip_all('Author tests not required for installation (set
RELEASE_TESTING to test)');
+ unless ($ENV{Test_Inter_RELEASE_TESTING}) {
+ $ti->skip_all('Author tests not required for installation (set
Test_Inter_RELEASE_TESTING to test)');
}
}
@@ -18,17 +26,15 @@
use IO::File;
use File::Find::Rule;
-# Figure out what module we are in. A module is in a directory:
-# My-Mod-Name-1.00
-# It includes any number of .pm files, each of which contain a single
-# package. Every package is named:
-# My::Pack::Name
-# and includes a variable:
-# My::Pack::Name::VERSION
+################################################################
+# Test: the directory must contain the version number
+#
+# A module is in a directory (with major.minor version):
+# My-Mod-Name-##.##
+my $libdir = $ti->testdir('lib');
my $testdir = $ti->testdir();
my $moddir = $ti->testdir('mod');
-my $libdir = $ti->testdir('lib');
my @dir = split(/\//,$moddir);
my $dir = pop(@dir);
@@ -41,6 +47,15 @@
$valid = 0;
}
+$ti->ok($valid,"Valid directory");
+$ti->skip_all('Remaining tests require a valid directory') if (! defined
$vers);
+
+################################################################
+# Test: each .pm file must include a variable:
+# $VERSION = '##.##'
+# A file is invalid if it does not have this, or if the version does
+# not match the version contained in the directory.
+#
# If there is a file _version.ign, it should be a list of filename
# substrings to ignore (any .pm file with any of these substrings
# will be ignored).
@@ -53,14 +68,14 @@
chomp(@ign);
}
-$ti->ok($valid,"Valid directory");
-$ti->skip_all('Remaining tests require a valid directory') if (! defined
$vers);
-
my $in = new IO::File;
my @files = File::Find::Rule->file()->name('*.pm')->in($libdir);
FILE:
foreach my $file (@files) {
+ my $f = $file;
+ $f =~ s,^$libdir/,,;
+ $f =~ s,^$testdir/,, if ($mod eq 'Test-Inter');
foreach my $ign (@ign) {
next FILE if ($file =~ /\Q$ign\E/);
@@ -71,18 +86,65 @@
chomp(@tmp);
my @v = grep /^\$VERSION\s*=\s*['"]\d+\.\d+['"];$/, @tmp;
if (! @v) {
- $ti->ok(0,$file);
+ $ti->ok(0,$f);
$ti->diag('File contains no valid version line');
} elsif (@v > 1) {
- $ti->ok(0,$file);
+ $ti->ok(0,$f);
$ti->diag('File contains multiple version lines');
} else {
$v[0] =~ /['"](\d+\.\d+)['"]/;
my $v = $1;
- $ti->is($v,$vers,$file);
+ $ti->is($v,$vers,$f);
$ti->diag('File contains incorrect version number') if ($v ne $vers);
}
}
+################################################################
+# Any .pm file with a version method can also be tested by getting
+# the result of the version method.
+#
+# Note that the only module this test is not guaranteed to work on
+# is Test::Inter because the version that is loaded above is not
+# necessarily the one on disk.
+
+my %required;
+chdir($libdir);
+
+FILE:
+foreach my $file (@files) {
+ my $f = $file;
+ $f =~ s,^$libdir/,,;
+
+ foreach my $ign (@ign) {
+ next FILE if ($file =~ /\Q$ign\E/);
+ }
+
+ $in->open($file);
+ my @tmp = <$in>;
+ chomp(@tmp);
+ my $package;
+ foreach my $line (@tmp) {
+ if ($line =~ /^package (\S+)/) {
+ $package = $1;
+ $package =~ s,;$,,;
+ next;
+ }
+ if ($package && $line =~ /^\s*sub\s+version\s*/) {
+ if (! exists $required{$file} && $f ne 'Test/Inter.pm') {
+ require "./$f";
+ $required{$f} = 1;
+ }
+ my $v = eval "${package}::version()";
+ if (! $v) {
+ $ti->ok(0,$package);
+ $ti->diag('version method does not return a version');
+ next;
+ }
+ $ti->is($v,$vers,$package);
+ $ti->diag('version returns incorrect version number') if ($v ne
$vers);
+ }
+ }
+}
+
$ti->done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/runtests
new/Test-Inter-1.11/t/runtests
--- old/Test-Inter-1.10/t/runtests 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/t/runtests 2024-02-26 20:55:18.000000000 +0100
@@ -15,9 +15,9 @@
export TI_QUIET
fi
-if [ "$RELEASE_TESTING" != "0" ]; then
- RELEASE_TESTING=1
- export RELEASE_TESTING
+if [ "$Test_Inter_RELEASE_TESTING" != "0" ]; then
+ Test_Inter_RELEASE_TESTING=1
+ export Test_Inter_RELEASE_TESTING
fi
if [ "$1" = "-T" ]; then
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/runtests.bat
new/Test-Inter-1.11/t/runtests.bat
--- old/Test-Inter-1.10/t/runtests.bat 2023-03-07 14:43:26.000000000 +0100
+++ new/Test-Inter-1.11/t/runtests.bat 2024-02-26 20:55:19.000000000 +0100
@@ -8,3 +8,9 @@
perl -I../lib use_ok.1.t 1
perl -I../lib use_ok.2.t 1
perl -I../lib use_ok.3.t 1
+perl -I../lib vars.1.t 1
+perl -I../lib vars.2.t 1
+perl -I../lib vars.3.t 1
+perl -I../lib vars.4.t 1
+perl -I../lib vars.5.t 1
+perl -I../lib vars.other.t 1
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.1.t
new/Test-Inter-1.11/t/vars.1.t
--- old/Test-Inter-1.10/t/vars.1.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.1.t 2023-03-21 18:48:19.000000000 +0100
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+use Test::Inter;
+my $ti = new Test::Inter $0,('start' => 3, 'end' => 4) ;
+
+$ti->is ( 1,-1, "Broken test");
+$ti->is ( 2,-2, "Broken test");
+
+$ti->is ( 3,3, "Good test");
+$ti->is ( 4,4, "Good test");
+
+$ti->is ( 5,-5, "Broken test");
+$ti->is ( 6,-6, "Broken test");
+
+$ti->done_testing();
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.2.t
new/Test-Inter-1.11/t/vars.2.t
--- old/Test-Inter-1.10/t/vars.2.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.2.t 2023-03-21 18:51:47.000000000 +0100
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+use Test::Inter;
+my $ti = new Test::Inter ('start' => 3, 'end' => 4) ;
+
+$ti->is ( 1,-1, "Broken test");
+$ti->is ( 2,-2, "Broken test");
+
+$ti->is ( 3,3, "Good test");
+$ti->is ( 4,4, "Good test");
+
+$ti->is ( 5,-5, "Broken test");
+$ti->is ( 6,-6, "Broken test");
+
+$ti->done_testing();
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.3.t
new/Test-Inter-1.11/t/vars.3.t
--- old/Test-Inter-1.10/t/vars.3.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.3.t 2023-03-21 18:59:18.000000000 +0100
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+$main::TI_START = 3;
+$main::TI_END = 4;
+
+$main::TI_START = 3;
+$main::TI_END = 4;
+
+use Test::Inter;
+my $ti = new Test::Inter $0;
+
+$ti->is ( 1,-1, "Broken test");
+$ti->is ( 2,-2, "Broken test");
+
+$ti->is ( 3,3, "Good test");
+$ti->is ( 4,4, "Good test");
+
+$ti->is ( 5,-5, "Broken test");
+$ti->is ( 6,-6, "Broken test");
+
+$ti->done_testing();
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.4.t
new/Test-Inter-1.11/t/vars.4.t
--- old/Test-Inter-1.10/t/vars.4.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.4.t 2023-03-21 18:58:41.000000000 +0100
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+$ENV{'TI_START'} = 3;
+$ENV{'TI_END'} = 4;
+
+use Test::Inter;
+my $ti = new Test::Inter $0;
+
+$ti->is ( 1,-1, "Broken test");
+$ti->is ( 2,-2, "Broken test");
+
+$ti->is ( 3,3, "Good test");
+$ti->is ( 4,4, "Good test");
+
+$ti->is ( 5,-5, "Broken test");
+$ti->is ( 6,-6, "Broken test");
+
+$ti->done_testing();
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.5.t
new/Test-Inter-1.11/t/vars.5.t
--- old/Test-Inter-1.10/t/vars.5.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.5.t 2023-03-21 20:01:52.000000000 +0100
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+use Test::Inter;
+my $ti = new Test::Inter $0,('testnum' => 3) ;
+
+$ti->is ( 1,-1, "Broken test");
+$ti->is ( 2,-2, "Broken test");
+
+$ti->is ( 3,3, "Good test");
+$ti->is ( 4,4, "Good test");
+
+$ti->is ( 5,-5, "Broken test");
+$ti->is ( 6,-6, "Broken test");
+
+$ti->done_testing();
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Test-Inter-1.10/t/vars.other.t
new/Test-Inter-1.11/t/vars.other.t
--- old/Test-Inter-1.10/t/vars.other.t 1970-01-01 01:00:00.000000000 +0100
+++ new/Test-Inter-1.11/t/vars.other.t 2023-03-21 20:03:45.000000000 +0100
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use warnings 'all';
+use strict;
+BEGIN {
+ if (-d "lib") {
+ use lib "./lib";
+ } elsif (-d "../lib") {
+ use lib "../lib";
+ }
+}
+
+use Test::Inter;
+my $ti = new Test::Inter $0,('use_lib' => 'on') ;
+
+$ti->is ( 1,1, "Good test");
+$ti->is ( 2,2, "Good test");
+
+$ti->done_testing();
+
