Hello community, here is the log from the commit of package perl-Test-Deep for openSUSE:Factory checked in at 2015-03-18 13:03:41 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Deep (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Deep.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Deep" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Deep/perl-Test-Deep.changes 2013-12-12 11:22:05.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Deep.new/perl-Test-Deep.changes 2015-03-18 13:03:43.000000000 +0100 @@ -1,0 +2,23 @@ +Tue Mar 10 08:12:01 UTC 2015 - [email protected] + +- add "Requires: perl-Test-Simple" to spec (hidden dependency + not caught by cpanspec) + +------------------------------------------------------------------- +Tue Mar 10 07:17:53 UTC 2015 - [email protected] + +- updated to 0.115 + - worked around a bug in chained goto on 5.8.5 + + - improve prereqs metadata (thanks, Karen Etheridge) + - add a noneof() set test (thanks, Peter Haworth) + - regexponly hasn't worked... ever. now it does + - passing :preload to import loads all plugins up front + - a few more tests have been documented + - the many exports of Test::Deep are now documented! + + - fix a compile error (!!) in RegexpOnly + - fix some documentation typos (thanks, ZOFFIX) + - add license to META file + +------------------------------------------------------------------- Old: ---- Test-Deep-0.112.tar.gz New: ---- Test-Deep-0.115.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Deep.spec ++++++ --- /var/tmp/diff_new_pack.oChNOd/_old 2015-03-18 13:03:44.000000000 +0100 +++ /var/tmp/diff_new_pack.oChNOd/_new 2015-03-18 13:03:44.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Deep # -# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 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 @@ -17,43 +17,25 @@ Name: perl-Test-Deep -Version: 0.112 +Version: 0.115 Release: 0 %define cpan_name Test-Deep Summary: Extremely flexible deep comparison -License: GPL-1.0+ or Artistic-1.0 +License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-Deep/ -Source: http://www.cpan.org/authors/id/R/RJ/RJBS/%{cpan_name}-%{version}.tar.gz +Source: Test-Deep-0.115.tar.gz BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros BuildRequires: perl(Test::NoWarnings) >= 0.02 BuildRequires: perl(Test::Tester) >= 0.04 -#BuildRequires: perl(A) -#BuildRequires: perl(Test::Deep) -#BuildRequires: perl(Test::Deep::Array) -#BuildRequires: perl(Test::Deep::Cache) -#BuildRequires: perl(Test::Deep::Cache::Simple) -#BuildRequires: perl(Test::Deep::Class) -#BuildRequires: perl(Test::Deep::Cmp) -#BuildRequires: perl(Test::Deep::Hash) -#BuildRequires: perl(Test::Deep::HashElements) -#BuildRequires: perl(Test::Deep::HashKeys) -#BuildRequires: perl(Test::Deep::HashKeysOnly) -#BuildRequires: perl(Test::Deep::Methods) -#BuildRequires: perl(Test::Deep::MM) -#BuildRequires: perl(Test::Deep::NoTest) -#BuildRequires: perl(Test::Deep::Ref) -#BuildRequires: perl(Test::Deep::RegexpMatches) -#BuildRequires: perl(Test::Deep::RegexpVersion) -#BuildRequires: perl(Test::Deep::Set) -#BuildRequires: perl(Test::Deep::Stack) -#BuildRequires: perl(t::std) -Requires: perl(Test::NoWarnings) >= 0.02 -Requires: perl(Test::Tester) >= 0.04 %{perl_requires} +# MANUAL +# necessary because Test::Deep::NoTest does "require Test::Builder" +Requires: perl-Test-Simple +# MANUAL %description If you don't know anything about automated testing in Perl then you should @@ -75,6 +57,8 @@ matching instead. Test::Deep provides pattern matching for complex data structures +Test::Deep has *_a lot_* of exports. See the /EXPORTS manpage below. + %prep %setup -q -n %{cpan_name}-%{version} ++++++ Test-Deep-0.112.tar.gz -> Test-Deep-0.115.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/Changes new/Test-Deep-0.115/Changes --- old/Test-Deep-0.112/Changes 2013-11-30 20:05:44.000000000 +0100 +++ new/Test-Deep-0.115/Changes 2015-01-09 23:43:54.000000000 +0100 @@ -1,5 +1,21 @@ Revision history for Test-Deep +0.115 2014-01-09 + - worked around a bug in chained goto on 5.8.5 + +0.114 2014-12-11 + - improve prereqs metadata (thanks, Karen Etheridge) + - add a noneof() set test (thanks, Peter Haworth) + - regexponly hasn't worked... ever. now it does + - passing :preload to import loads all plugins up front + - a few more tests have been documented + - the many exports of Test::Deep are now documented! + +0.113 2014-08-22 + - fix a compile error (!!) in RegexpOnly + - fix some documentation typos (thanks, ZOFFIX) + - add license to META file + 0.112 2013-11-30 - rebuild MANIFEST, adding two forgotten files diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/META.json new/Test-Deep-0.115/META.json --- old/Test-Deep-0.112/META.json 2013-11-30 20:06:08.000000000 +0100 +++ new/Test-Deep-0.115/META.json 2015-01-09 23:44:45.000000000 +0100 @@ -4,9 +4,9 @@ "Fergal Daly <[email protected]>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.82, CPAN::Meta::Converter version 2.132830", + "generated_by" : "ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240", "license" : [ - "unknown" + "perl_5" ], "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, @@ -34,6 +34,11 @@ "requires" : { "List::Util" : "1.09", "Scalar::Util" : "1.09", + "Test::Builder" : "0" + } + }, + "test" : { + "requires" : { "Test::More" : "0", "Test::NoWarnings" : "0.02", "Test::Tester" : "0.04" @@ -42,17 +47,11 @@ }, "release_status" : "stable", "resources" : { - "bugtracker" : { - "web" : "http://github.com/rjbs/Test-Deep/issues/"; - }, "homepage" : "http://github.com/rjbs/Test-Deep/";, "license" : [ "http://dev.perl.org/licenses/"; ], - "repository" : { - "url" : "http://github.com/rjbs/Test-Deep/"; - }, "x_MailingList" : "http://lists.perl.org/list/perl-qa.html"; }, - "version" : "0.112" + "version" : "0.115" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/META.yml new/Test-Deep-0.115/META.yml --- old/Test-Deep-0.112/META.yml 2013-11-30 20:06:08.000000000 +0100 +++ new/Test-Deep-0.115/META.yml 2015-01-09 23:44:45.000000000 +0100 @@ -3,30 +3,29 @@ author: - 'Fergal Daly <[email protected]>' build_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' + Test::More: '0' + Test::NoWarnings: '0.02' + Test::Tester: '0.04' configure_requires: - ExtUtils::MakeMaker: 0 + ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.82, CPAN::Meta::Converter version 2.132830' -license: unknown +generated_by: 'ExtUtils::MakeMaker version 7.04, CPAN::Meta::Converter version 2.143240' +license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 + version: '1.4' name: Test-Deep no_index: directory: - t - inc requires: - List::Util: 1.09 - Scalar::Util: 1.09 - Test::More: 0 - Test::NoWarnings: 0.02 - Test::Tester: 0.04 + List::Util: '1.09' + Scalar::Util: '1.09' + Test::Builder: '0' resources: MailingList: http://lists.perl.org/list/perl-qa.html - bugtracker: http://github.com/rjbs/Test-Deep/issues/ homepage: http://github.com/rjbs/Test-Deep/ license: http://dev.perl.org/licenses/ - repository: http://github.com/rjbs/Test-Deep/ -version: 0.112 +version: '0.115' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/Makefile.PL new/Test-Deep-0.115/Makefile.PL --- old/Test-Deep-0.112/Makefile.PL 2013-11-30 15:57:59.000000000 +0100 +++ new/Test-Deep-0.115/Makefile.PL 2014-12-12 01:35:34.000000000 +0100 @@ -24,15 +24,21 @@ NAME => 'Test::Deep', VERSION_FROM => './lib/Test/Deep.pm', PREREQ_PM => { - 'Test::More' => '0', - 'Test::Tester' => $tt_prereq, - 'Test::NoWarnings' => '0.02', + 'Test::Builder' => '0', 'Scalar::Util' => '1.09', # apparently CPAN doesn't get the version of Scalar::Util 'List::Util' => '1.09', }, + ( $ExtUtils::MakeMaker::VERSION < 6.63_03 ? 'BUILD_REQUIRES' : 'TEST_REQUIRES' ) => { + 'Test::More' => '0', + 'Test::Tester' => $tt_prereq, + 'Test::NoWarnings' => '0.02', + }, + + LICENSE => "perl", + # This is a dumb mistake. Why did it get done? I'm the one who did it and I # don't know. It only affects perl 5.8, and stopping doing it now would be a # problem, because upgrades wouldn't actually upgrade. I'll just leave it @@ -40,6 +46,8 @@ ($] < 5.010 ? (INSTALLDIRS => 'perl') : ()), ($mm_ver < 6.46 ? () : (META_MERGE => { + 'meta-spec' => { version => 2 }, + dynamic_config => 1, resources => { license => 'http://dev.perl.org/licenses/', homepage => 'http://github.com/rjbs/Test-Deep/', diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/lib/Test/Deep/RegexpOnly.pm new/Test-Deep-0.115/lib/Test/Deep/RegexpOnly.pm --- old/Test-Deep-0.112/lib/Test/Deep/RegexpOnly.pm 2013-04-13 16:51:30.000000000 +0200 +++ new/Test-Deep-0.115/lib/Test/Deep/RegexpOnly.pm 2014-12-12 02:35:58.000000000 +0100 @@ -1,7 +1,7 @@ use strict; use warnings; -package Test::Deep::Regexp; +package Test::Deep::RegexpOnly; use Test::Deep::Cmp; @@ -25,7 +25,7 @@ my $re = $self->{val}; - return ($got =~ $self->{val} ? 1 : 0; + return $got =~ $self->{val} ? 1 : 0; } sub diag_message diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/lib/Test/Deep/Set.pm new/Test-Deep-0.115/lib/Test/Deep/Set.pm --- old/Test-Deep-0.112/lib/Test/Deep/Set.pm 2013-11-30 15:42:59.000000000 +0100 +++ new/Test-Deep-0.115/lib/Test/Deep/Set.pm 2014-12-12 01:37:04.000000000 +0100 @@ -46,6 +46,7 @@ if (not $diag) { my @got = @$d1; + my @found; my @missing; foreach my $expect (@$d2) { @@ -56,6 +57,7 @@ if (Test::Deep::eq_deeply_cache($got[$i], $expect)) { $found = 1; + push(@found, $expect); splice(@got, $i, 1); last unless $IgnoreDupes; @@ -67,17 +69,23 @@ my @diags; - if (@missing and $SubSup ne "sub") + if (@missing and $SubSup ne "sub" && $SubSup ne "none") { push(@diags, "Missing: ".nice_list(\@missing)); } - if (@got and $SubSup ne "sup") + if (@got and $SubSup ne "sup" && $SubSup ne "none") { my $got = __PACKAGE__->new($IgnoreDupes, "", @got); push(@diags, "Extra: ".nice_list($got->{val})); } + if (@found and $SubSup eq "none") + { + my $found = __PACKAGE__->new($IgnoreDupes, "", @found); + push(@diags, "Extra: ".nice_list($found->{val})); + } + $diag = join("\n", @diags); } @@ -101,6 +109,7 @@ my $type = $self->{IgnoreDupes} ? "Set" : "Bag"; $type = "Sub$type" if $self->{SubSup} eq "sub"; $type = "Super$type" if $self->{SubSup} eq "sup"; + $type = "NoneOf" if $self->{SubSup} eq "none"; my $error = $last->{diag}; my $diag = <<EOM; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/lib/Test/Deep.pm new/Test-Deep-0.115/lib/Test/Deep.pm --- old/Test-Deep-0.112/lib/Test/Deep.pm 2013-11-30 20:05:50.000000000 +0100 +++ new/Test-Deep-0.115/lib/Test/Deep.pm 2015-01-09 23:44:01.000000000 +0100 @@ -21,7 +21,7 @@ our ($Stack, %Compared, $CompareCache, %WrapCache, $Shallow); -our $VERSION = '0.112'; +our $VERSION = '0.115'; $VERSION = eval $VERSION; require Exporter; @@ -91,6 +91,7 @@ our @EXPORT_OK = qw( descend render_stack class_base cmp_details deep_diag ); our %EXPORT_TAGS; + $EXPORT_TAGS{preload} = []; $EXPORT_TAGS{v0} = [ qw( Isa @@ -100,9 +101,9 @@ all any array array_each arrayelementsonly arraylength arraylengthonly bag bool cmp_bag cmp_deeply cmp_methods cmp_set code eq_deeply hash hash_each hashkeys hashkeysonly ignore isa listmethods methods - noclass num re reftype regexpmatches regexponly regexpref regexprefonly - scalarrefonly scalref set shallow str subbagof subhashof subsetof - superbagof superhashof supersetof useclass + noclass noneof num re reftype regexpmatches regexponly regexpref + regexprefonly scalarrefonly scalref set shallow str subbagof subhashof + subsetof superbagof superhashof supersetof useclass ) ]; @@ -113,9 +114,9 @@ all any array array_each arrayelementsonly arraylength arraylengthonly bag bool cmp_bag cmp_deeply cmp_methods cmp_set code eq_deeply hash hash_each hashkeys hashkeysonly ignore listmethods methods - noclass num re reftype regexpmatches regexponly regexpref regexprefonly - scalarrefonly scalref set shallow str subbagof subhashof subsetof - superbagof superhashof supersetof useclass + noclass noneof num re reftype regexpmatches regexponly regexpref + regexprefonly scalarrefonly scalref set shallow str subbagof subhashof + subsetof superbagof superhashof supersetof useclass ) ]; @@ -124,6 +125,53 @@ $EXPORT_TAGS{all} = [ @EXPORT, @EXPORT_OK ]; } +sub import { + if (grep {; $_ eq ':preload' } @_) { + require Test::Deep::All; + require Test::Deep::Any; + require Test::Deep::Array; + require Test::Deep::ArrayEach; + require Test::Deep::ArrayElementsOnly; + require Test::Deep::ArrayLength; + require Test::Deep::ArrayLengthOnly; + require Test::Deep::Blessed; + require Test::Deep::Boolean; + require Test::Deep::Cache::Simple; + require Test::Deep::Cache; + require Test::Deep::Class; + require Test::Deep::Cmp; + require Test::Deep::Code; + require Test::Deep::Hash; + require Test::Deep::HashEach; + require Test::Deep::HashElements; + require Test::Deep::HashKeys; + require Test::Deep::HashKeysOnly; + require Test::Deep::Ignore; + require Test::Deep::Isa; + require Test::Deep::ListMethods; + require Test::Deep::Methods; + require Test::Deep::MM; + require Test::Deep::Number; + require Test::Deep::Obj; + require Test::Deep::Ref; + require Test::Deep::RefType; + require Test::Deep::Regexp; + require Test::Deep::RegexpMatches; + require Test::Deep::RegexpOnly; + require Test::Deep::RegexpRef; + require Test::Deep::RegexpRefOnly; + require Test::Deep::RegexpVersion; + require Test::Deep::ScalarRef; + require Test::Deep::ScalarRefOnly; + require Test::Deep::Set; + require Test::Deep::Shallow; + require Test::Deep::Stack; + require Test::Deep::String; + } + + $_[0]->export_to_level(1, @_); +} + # this is ugly, I should never have exported a sub called isa now I # have to try figure out if the recipient wanted my isa or if a class # imported us and UNIVERSAL::isa is being called on that class. @@ -482,6 +530,13 @@ return Test::Deep::Set->new(1, "sub", @_); } +sub noneof +{ + require Test::Deep::Set; + + return Test::Deep::Set->new(1, "none", @_); +} + sub cmp_set { local $Test::Builder::Level = $Test::Builder::Level + 1; @@ -608,6 +663,8 @@ about how it should look, C<eq> is no good and you must use pattern matching instead. Test::Deep provides pattern matching for complex data structures +Test::Deep has B<I<a lot>> of exports. See L</EXPORTS> below. + =head1 EXAMPLES How Test::Deep works is much easier to understand by seeing some examples. @@ -1037,7 +1094,7 @@ With $capture_data - cmp_deeply($got, [re($regex, $capture_data]) + cmp_deeply($got, [re($regex, $capture_data)]) is the equivalent of @@ -1046,7 +1103,7 @@ So you can do something simple like - cmp_deeply($got, re(qr/(\d\d)(\w\w)/, [25, "ab" ]) + cmp_deeply($got, re(qr/(\d\d)(\w\w)/, [25, "ab" ])) to check that (\d\d) was 25 and (\w\w) was "ab" but you can also use Test::Deep objects to do more complex testing of the captured values @@ -1145,7 +1202,7 @@ C<NOTE> See the NOTE on the bag() comparison for some dangers in using special comparisons inside set() -=head3 superbagof(@elements), subbagof(@elements), supersetof(@elements) and subsetof(@elements) +=head3 superbagof(@elements), subbagof(@elements), supersetof(@elements), subsetof(@elements) and noneof(@elements) @elements is an array of elements. @@ -1159,6 +1216,10 @@ will check that @$data has at least one "1" and at least one "4". + cmp_deeply($data, noneof(1, 2, 3)); + +will check that @$data does not contain any instances of "1", "2" or "3". + These are just special cases of the Set and Bag comparisons so they also give you an add() method and they also have the same limitations when using special comparisons inside them (see the NOTE in the bag() section). @@ -1228,6 +1289,11 @@ C<Class-E<gt>isa($other_class)> would get the wrong answer. This is a hack to patch over the fact that isa is exported by default. +=head3 obj_isa($class) + +This test accepts only objects that are instances of C<$class> or a subclass. +Unlike the C<Isa> test, this test will never accept class names. + =head3 array_each($thing) $thing is a structure to be compared against. @@ -1253,7 +1319,7 @@ cmp_deeply($got_v, $common_tests) } -Except it will not explode is $got is not an array reference. It will check +Except it will not explode if $got is not an array reference. It will check that each of the objects in @$got is a MyFile and that each one gives the correct results for it's methods. @@ -1273,6 +1339,11 @@ ) cmp_deeply($got, array_each($structure)); +=head3 hash_each($thing) + +This test behaves like C<array_each> (see above) but tests that each hash value +passes its tests. + =head3 str($string) $string is a string. @@ -1462,6 +1533,29 @@ This gives you enough to write your own SCs but I haven't documented how diagnostics works because it's about to get an overhaul. +=head1 EXPORTS + +By default, Test::Deep will export everything in its C<v0> tag, as if you had +written: + + use Test::Deep ':v0'; + +Those things are: + + all any array array_each arrayelementsonly arraylength arraylengthonly bag + blessed bool cmp_bag cmp_deeply cmp_methods cmp_set code eq_deeply hash + hash_each hashkeys hashkeysonly ignore Isa isa listmethods methods noclass + noneof num obj_isa re reftype regexpmatches regexponly regexpref + regexprefonly scalarrefonly scalref set shallow str subbagof subhashof + subsetof superbagof superhashof supersetof useclass + +A slightly better set of exports is the C<v1> set. It's all the same things, +with the exception of C<Isa> and C<blessed>. If you want to import +"everything", you probably want to C<< use Test::Deep ':V1'; >>. + +There's another magic export group: C<:preload>. If that is specified, all of +the Test::Deep plugins will be loaded immediately instead of lazily. + =head1 SEE ALSO L<Test::More> @@ -1476,8 +1570,8 @@ for Test::More's is_deeply function which inspired this. B<Please> do not bother Fergal Daly with bug reports. Send them to the -maintainer (above) or submit them at L<the request -tracker|https://rt.cpan.org/Dist/Display.html?Queue=Test-Deep>. +maintainer (above) or submit them at L<the issue +tracker|https://github.com/rjbs/Test-Deep/issues>. =head1 COPYRIGHT diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/t/bag.t new/Test-Deep-0.115/t/bag.t --- old/Test-Deep-0.112/t/bag.t 2013-04-13 16:51:30.000000000 +0200 +++ new/Test-Deep-0.115/t/bag.t 2014-12-12 01:37:04.000000000 +0100 @@ -243,6 +243,33 @@ }, "subbagof no" ); +{ + check_test( + sub { + cmp_deeply(['a', 'a', 'b', 'c', 'b'], noneof('d', 'e', 'f')); + }, + { + actual_ok => 1, + diag => "", + }, + "noneof yes" + ); + + check_test( + sub { + cmp_deeply(['a', 'a', 'b', 'c', 'b'], noneof('b', 'c', 'd', 'e')); + }, + { + actual_ok => 0, + diag => <<'EOM', +Comparing $data as a NoneOf +Extra: 'b', 'c' +EOM + }, + "noneof no" + ); +} + eval { my @res = run_tests( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/t/regexp.t new/Test-Deep-0.115/t/regexp.t --- old/Test-Deep-0.112/t/regexp.t 2013-04-13 16:51:30.000000000 +0200 +++ new/Test-Deep-0.115/t/regexp.t 2014-12-12 02:44:30.000000000 +0100 @@ -19,6 +19,17 @@ check_test( sub { + cmp_deeply("fergal", regexponly($re)); + }, + { + actual_ok => 1, + diag => "", + }, + "regexponly eq" + ); + + check_test( + sub { cmp_deeply("feargal", re($re)); }, { @@ -34,6 +45,22 @@ check_test( sub { + cmp_deeply("feargal", regexponly($re)); + }, + { + actual_ok => 0, + diag => <<EOM, +Using Regexp on \$data + got : 'feargal' +expect : $re +EOM + }, + "regexponly not eq" + ); + + + check_test( + sub { cmp_deeply("fergal", re($str)); }, { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Deep-0.112/t/set.t new/Test-Deep-0.115/t/set.t --- old/Test-Deep-0.112/t/set.t 2013-04-13 16:51:30.000000000 +0200 +++ new/Test-Deep-0.115/t/set.t 2014-12-12 01:37:04.000000000 +0100 @@ -258,6 +258,33 @@ } { + check_test( + sub { + cmp_deeply(['a', 'b', 'c'], noneof('d', 'e', 'f')); + }, + { + actual_ok => 1, + diag => "", + }, + "noneof yes" + ); + + check_test( + sub { + cmp_deeply(['a', 'b', 'c'], noneof('b', 'c', 'd', 'e')); + }, + { + actual_ok => 0, + diag => <<'EOM', +Comparing $data as a NoneOf +Extra: 'b', 'c' +EOM + }, + "noneof no" + ); +} + +{ check_test( sub { cmp_deeply([1, undef, undef], set(undef, 1, undef)); -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
