Hello community,
here is the log from the commit of package perl-boolean for openSUSE:Factory
checked in at 2015-04-15 16:25:09
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-boolean (Old)
and /work/SRC/openSUSE:Factory/.perl-boolean.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-boolean"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-boolean/perl-boolean.changes
2014-09-17 17:25:59.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-boolean.new/perl-boolean.changes
2015-04-15 16:25:10.000000000 +0200
@@ -1,0 +2,15 @@
+Tue Apr 14 18:14:34 UTC 2015 - co...@suse.com
+
+- updated to 0.45
+ see /usr/share/doc/packages/perl-boolean/Changes
+
+ 0.45 Thu Feb 5 15:39:26 PST 2015
+ - Remove last vestige of -truth from the tests!
+
+ 0.44 Sat Jan 31 13:55:37 PST 2015
+ - Apply PRs 9,10,11 @dagolden++
+
+ 0.43 Thu Jan 1 00:27:42 PST 2015
+ - Update docs
+
+-------------------------------------------------------------------
Old:
----
boolean-0.42.tar.gz
New:
----
boolean-0.45.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-boolean.spec ++++++
--- /var/tmp/diff_new_pack.axJEVP/_old 2015-04-15 16:25:10.000000000 +0200
+++ /var/tmp/diff_new_pack.axJEVP/_new 2015-04-15 16:25:10.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-boolean
#
-# Copyright (c) 2014 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,7 +17,7 @@
Name: perl-boolean
-Version: 0.42
+Version: 0.45
Release: 0
%define cpan_name boolean
Summary: Boolean support for Perl
@@ -29,7 +29,7 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
-Recommends: perl(JSON)
+Recommends: perl(JSON::MaybeXS)
%{perl_requires}
%description
++++++ boolean-0.42.tar.gz -> boolean-0.45.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/CONTRIBUTING
new/boolean-0.45/CONTRIBUTING
--- old/boolean-0.42/CONTRIBUTING 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/CONTRIBUTING 2015-02-06 00:39:33.000000000 +0100
@@ -9,7 +9,7 @@
GitHub
------
-The code for this Project is hosted at GitHub. The repository is:
+The code for this Project is hosted at GitHub. The URL is:
https://github.com/ingydotnet/boolean-pm
@@ -36,7 +36,7 @@
This Project uses Zilla::Dist to prepare it for publishing to CPAN. Read:
-
https://metacpan.org/pod/distribution/Zilla-Dist/lib/Zilla/Dist/Contributing.pod
+ https://metacpan.org/pod/Zilla::Dist::Contributing
for up-to-date instructions on what contributors like yourself need to know to
use it.
@@ -51,5 +51,10 @@
Join the channel. Join the team!
- Thanks in advance, Ingy döt Net
+ Thanks in advance,
+
+
+
+
+# This file generated by Zilla-Dist-0.0.189
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/Changes new/boolean-0.45/Changes
--- old/boolean-0.42/Changes 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/Changes 2015-02-06 00:39:33.000000000 +0100
@@ -1,3 +1,12 @@
+0.45 Thu Feb 5 15:39:26 PST 2015
+ - Remove last vestige of -truth from the tests!
+
+0.44 Sat Jan 31 13:55:37 PST 2015
+ - Apply PRs 9,10,11 @dagolden++
+
+0.43 Thu Jan 1 00:27:42 PST 2015
+ - Update docs
+
0.42 Sat Aug 16 10:49:31 PDT 2014
- Meta 0.0.2
- Remove .gitignore
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/LICENSE new/boolean-0.45/LICENSE
--- old/boolean-0.42/LICENSE 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/LICENSE 2015-02-06 00:39:33.000000000 +0100
@@ -1,4 +1,4 @@
-This software is copyright (c) 2014 by Ingy döt Net.
+This software is copyright (c) 2015 by Ingy döt Net.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
@@ -12,7 +12,7 @@
--- The GNU General Public License, Version 1, February 1989 ---
-This software is Copyright (c) 2014 by Ingy döt Net.
+This software is Copyright (c) 2015 by Ingy döt Net.
This is free software, licensed under:
@@ -272,7 +272,7 @@
--- The Artistic License 1.0 ---
-This software is Copyright (c) 2014 by Ingy döt Net.
+This software is Copyright (c) 2015 by Ingy döt Net.
This is free software, licensed under:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/MANIFEST new/boolean-0.45/MANIFEST
--- old/boolean-0.42/MANIFEST 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/MANIFEST 2015-02-06 00:39:33.000000000 +0100
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v5.019.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest
v5.029.
CONTRIBUTING
Changes
LICENSE
@@ -9,8 +9,8 @@
README
lib/boolean.pm
lib/boolean.pod
+t/000-compile-modules.t
t/boolean.t
t/export.t
t/json.t
t/release-pod-syntax.t
-t/truth.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/META.json new/boolean-0.45/META.json
--- old/boolean-0.42/META.json 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/META.json 2015-02-06 00:39:33.000000000 +0100
@@ -4,13 +4,13 @@
"Ingy döt Net <i...@cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 5.019, CPAN::Meta::Converter version
2.132830",
+ "generated_by" : "Dist::Zilla version 5.029, CPAN::Meta::Converter version
2.143240",
"license" : [
"perl_5"
],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
- "version" : "2"
+ "version" : 2
},
"name" : "boolean",
"no_index" : {
@@ -24,7 +24,7 @@
"prereqs" : {
"configure" : {
"requires" : {
- "ExtUtils::MakeMaker" : "6.30"
+ "ExtUtils::MakeMaker" : "0"
}
},
"develop" : {
@@ -34,7 +34,7 @@
},
"runtime" : {
"recommends" : {
- "JSON" : "0"
+ "JSON::MaybeXS" : "0"
},
"requires" : {
"perl" : "v5.8.1"
@@ -53,6 +53,6 @@
"web" : "https://github.com/ingydotnet/boolean-pm";
}
},
- "version" : "0.42"
+ "version" : "0.45"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/META.yml new/boolean-0.45/META.yml
--- old/boolean-0.42/META.yml 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/META.yml 2015-02-06 00:39:33.000000000 +0100
@@ -4,9 +4,9 @@
- 'Ingy döt Net <i...@cpan.org>'
build_requires: {}
configure_requires:
- ExtUtils::MakeMaker: '6.30'
+ ExtUtils::MakeMaker: '0'
dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.019, CPAN::Meta::Converter version
2.132830'
+generated_by: 'Dist::Zilla version 5.029, CPAN::Meta::Converter version
2.143240'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -19,11 +19,11 @@
- xt
- example
recommends:
- JSON: '0'
+ JSON::MaybeXS: '0'
requires:
perl: v5.8.1
resources:
bugtracker: https://github.com/ingydotnet/boolean-pm/issues
homepage: https://github.com/ingydotnet/boolean-pm
repository: https://github.com/ingydotnet/boolean-pm.git
-version: '0.42'
+version: '0.45'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/Makefile.PL new/boolean-0.45/Makefile.PL
--- old/boolean-0.42/Makefile.PL 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/Makefile.PL 2015-02-06 00:39:33.000000000 +0100
@@ -1,11 +1,11 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v5.019.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker
v5.029.
use strict;
use warnings;
use 5.008001;
-use ExtUtils::MakeMaker 6.30;
+use ExtUtils::MakeMaker;
@@ -13,21 +13,24 @@
"ABSTRACT" => "Boolean support for Perl",
"AUTHOR" => "Ingy d\x{f6}t Net <ingy\@cpan.org>",
"CONFIGURE_REQUIRES" => {
- "ExtUtils::MakeMaker" => "6.30"
+ "ExtUtils::MakeMaker" => 0
},
"DISTNAME" => "boolean",
"EXE_FILES" => [],
"LICENSE" => "perl",
+ "MIN_PERL_VERSION" => "5.008001",
"NAME" => "boolean",
"PREREQ_PM" => {},
- "VERSION" => "0.42",
+ "VERSION" => "0.45",
"test" => {
"TESTS" => "t/*.t"
}
);
-my %FallbackPrereqs = ();
+my %FallbackPrereqs = (
+ "ExtUtils::MakeMaker" => 0
+);
unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/README new/boolean-0.45/README
--- old/boolean-0.42/README 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/README 2015-02-06 00:39:33.000000000 +0100
@@ -1,32 +1,32 @@
NAME
+
boolean - Boolean support for Perl
+VERSION
+
+ This document describes boolean version 0.45. ";
+
SYNOPSIS
- use boolean;
+ use boolean;
+
do &always if true;
do &never if false;
-
+
do &maybe if boolean($value)->isTrue;
and:
use boolean ':all';
-
+
$guess = int(rand(2)) % 2 ? true : false;
-
+
do &something if isTrue($guess);
do &something_else if isFalse($guess);
- and:
-
- use boolean -truth;
-
- die unless ref(42 == 42) eq 'boolean';
- die unless ("foo" =~ /bar/) eq '0';
-
DESCRIPTION
- Most programming languages have a native "Boolean" data type. Perl does
+
+ Most programming languages have a native Boolean data type. Perl does
not.
Perl has a simple and well known Truth System. The following scalar
@@ -41,85 +41,91 @@
Every other scalar value is true.
This module provides basic Boolean support, by defining two special
- objects: "true" and "false".
+ objects: true and false.
RATIONALE
+
When sharing data between programming languages, it is important to
- support the same group of basic types. In Perlish programming languages,
- these types include: Hash, Array, String, Number, Null and Boolean. Perl
- lacks native Boolean support.
+ support the same group of basic types. In Perlish programming
+ languages, these types include: Hash, Array, String, Number, Null and
+ Boolean. Perl lacks native Boolean support.
- Data interchange modules like YAML and JSON can now "use boolean" to
- encode*decode*roundtrip Boolean values.
+ Data interchange modules like YAML and JSON can now use boolean to
+ encodedecoderoundtrip Boolean values.
FUNCTIONS
+
This module defines the following functions:
- "true"
- This function returns a scalar value which will evaluate to true.
- The value is a singleton object, meaning there is only one "true"
- value in a Perl process at any time. You can check to see whether
- the value is the "true" object with the isTrue function described
- below.
-
- "false"
- This function returns a scalar value which will evaluate to false.
- The value is a singleton object, meaning there is only one "false"
- value in a Perl process at any time. You can check to see whether
- the value is the "false" object with the isFalse function described
- below.
-
- "boolean($scalar)"
- Casts the scalar value to a boolean value. If $scalar is true, it
- returns "boolean::true", otherwise it returns "boolean::false".
-
- "isTrue($scalar)"
- Returns "boolean::true" if the scalar passed to it is the
- "boolean::true" object. Returns "boolean::false" otherwise.
-
- "isFalse($scalar)"
- Returns "boolean::true" if the scalar passed to it is the
- "boolean::false" object. Returns "boolean::false" otherwise.
-
- "isBoolean($scalar)"
- Returns "boolean::true" if the scalar passed to it is the
- "boolean::true" or "boolean::false" object. Returns "boolean::false"
- otherwise.
+ true
+
+ This function returns a scalar value which will evaluate to true. The
+ value is a singleton object, meaning there is only one "true" value
+ in a Perl process at any time. You can check to see whether the value
+ is the "true" object with the isTrue function described below.
+
+ false
+
+ This function returns a scalar value which will evaluate to false.
+ The value is a singleton object, meaning there is only one "false"
+ value in a Perl process at any time. You can check to see whether the
+ value is the "false" object with the isFalse function described
+ below.
+
+ boolean($scalar)
+
+ Casts the scalar value to a boolean value. If $scalar is true, it
+ returns boolean::true, otherwise it returns boolean::false.
+
+ isTrue($scalar)
+
+ Returns boolean::true if the scalar passed to it is the boolean::true
+ object. Returns boolean::false otherwise.
+
+ isFalse($scalar)
+
+ Returns boolean::true if the scalar passed to it is the
+ boolean::false object. Returns boolean::false otherwise.
+
+ isBoolean($scalar)
+
+ Returns boolean::true if the scalar passed to it is the boolean::true
+ or boolean::false object. Returns boolean::false otherwise.
METHODS
+
Since true and false return objects, you can call methods on them.
- "$boolean->isTrue"
- Same as isTrue($boolean).
+ $boolean->isTrue
- "$boolean->isFalse"
- Same as isFalse($boolean).
+ Same as isTrue($boolean).
-USE OPTIONS
- By default this module exports the "true", "false" and "boolean"
- functions.
+ $boolean->isFalse
- The module also defines these export tags:
+ Same as isFalse($boolean).
- ":all"
- Exports "true", "false", "boolean", "isTrue", "isFalse", "isBoolean"
+USE OPTIONS
- "-truth"
- You can specify the "-truth" option to override truth operators to
- return "boolean" values.
+ By default this module exports the true, false and boolean functions.
- use boolean -truth;
- print ref("hello" eq "world"), "\n";
+ The module also defines these export tags:
- Prints:
+ :all
- boolean
+ Exports true, false, boolean, isTrue, isFalse, isBoolean
- "-truth" can be used with the other import options.
+DEPRECATIONS
+
+ This module offered an export tag, -truth, that overrides the Perl
+ interpreter's internal values for true and false. This has been found
+ to corrupt the interpreter in some circumstances. Also, these overrides
+ will no longer be possible as of Perl 5.22. Therefore, the -truth
+ import tag is deprecated.
JSON SUPPORT
+
JSON::MaybeXS (or less preferably JSON.pm ) will encode Perl data with
- boolean.pm values correctly if you use the "convert_blessed" option:
+ boolean.pm values correctly if you use the convert_blessed option:
use JSON::MaybeXS;
use boolean -truth;
@@ -127,13 +133,15 @@
say $json->encode({false => (0 == 1)}); # Says: '{"false":false}',
AUTHOR
+
Ingy döt Net <i...@cpan.org>
-COPYRIGHT
- Copyright 2007-2014. Ingy döt Net
+COPYRIGHT AND LICENSE
+
+ Copyright 2007-2015. Ingy döt Net.
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>
+ See http://www.perl.com/perl/misc/Artistic.html
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/lib/boolean.pm
new/boolean-0.45/lib/boolean.pm
--- old/boolean-0.42/lib/boolean.pm 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/lib/boolean.pm 2015-02-06 00:39:33.000000000 +0100
@@ -1,6 +1,6 @@
use strict; use warnings;
package boolean;
-our $VERSION = '0.42';
+our $VERSION = '0.45';
my ($true, $false);
@@ -27,18 +27,11 @@
my ($true_val, $false_val, $bool_vals);
BEGIN {
- my $have_readonly = eval { require Readonly };
-
my $t = 1;
my $f = 0;
$true = do {bless \$t, 'boolean'};
$false = do {bless \$f, 'boolean'};
- if ( $have_readonly ) {
- Readonly::Scalar($t => $t);
- Readonly::Scalar($f => $f);
- }
-
$true_val = overload::StrVal($true);
$false_val = overload::StrVal($false);
$bool_vals = {$true_val => 1, $false_val => 1};
@@ -66,6 +59,7 @@
}
sub truth {
+ die "-truth not supported on Perl 5.22 or later" if $] >= 5.021005;
# enable modifying true and false
&Internals::SvREADONLY( \ !!0, 0);
&Internals::SvREADONLY( \ !!1, 0);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/lib/boolean.pod
new/boolean-0.45/lib/boolean.pod
--- old/boolean-0.42/lib/boolean.pod 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/lib/boolean.pod 2015-02-06 00:39:33.000000000 +0100
@@ -1,7 +1,7 @@
=pod
=for comment
-DO NOT EDIT. This Pod was generated by Swim.
+DO NOT EDIT. This Pod was generated by Swim v0.1.38.
See http://github.com/ingydotnet/swim-pm#readme
=encoding utf8
@@ -12,7 +12,11 @@
=for html
<a href="https://travis-ci.org/ingydotnet/boolean-pm";><img
src="https://travis-ci.org/ingydotnet/boolean-pm.png"; alt="boolean-pm"></a>
-<a href="https://coveralls.io/r/ingydotnet/boolean-pm?branch=master";><img
src="https://coveralls.io/repos/ingydotnet/boolean-pm/badge.png";
alt="boolean-pm"></a>
+
+=head1 VERSION
+
+This document describes L<boolean> version B<0.45>.
+";
=head1 SYNOPSIS
@@ -32,13 +36,6 @@
do &something if isTrue($guess);
do &something_else if isFalse($guess);
-and:
-
- use boolean -truth;
-
- die unless ref(42 == 42) eq 'boolean';
- die unless ("foo" =~ /bar/) eq '0';
-
=head1 DESCRIPTION
Most programming languages have a native C<Boolean> data type. Perl does not.
@@ -137,21 +134,15 @@
Exports C<true>, C<false>, C<boolean>, C<isTrue>, C<isFalse>, C<isBoolean>
-=item C<-truth>
-
-You can specify the C<-truth> option to override truth operators to return
-C<boolean> values.
-
- use boolean -truth;
- print ref("hello" eq "world"), "\n";
-
-Prints:
-
- boolean
+=back
-C<-truth> can be used with the other import options.
+=head1 DEPRECATIONS
-=back
+This module offered an export tag, C<-truth>, that overrides the Perl
+interpreter's internal values for true and false. This has been found to
+corrupt the interpreter in some circumstances. Also, these overrides will no
+longer be possible as of Perl 5.22. Therefore, the C<-truth> import tag is
+deprecated.
=head1 JSON SUPPORT
@@ -167,9 +158,9 @@
Ingy döt Net <i...@cpan.org>
-=head1 COPYRIGHT
+=head1 COPYRIGHT AND LICENSE
-Copyright 2007-2014. Ingy döt Net
+Copyright 2007-2015. Ingy döt Net.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/t/000-compile-modules.t
new/boolean-0.45/t/000-compile-modules.t
--- old/boolean-0.42/t/000-compile-modules.t 1970-01-01 01:00:00.000000000
+0100
+++ new/boolean-0.45/t/000-compile-modules.t 2015-02-06 00:39:33.000000000
+0100
@@ -0,0 +1,19 @@
+# This test does a basic `use` check on all the code.
+use Test::More;
+
+use File::Find;
+
+sub test {
+ s{^lib/(.*)\.pm$}{$1} or return;
+ s{/}{::}g;
+ use_ok $_;
+}
+
+$ENV{PERL_ZILD_TEST_000_COMPILE_MODULES} = 1;
+
+find {
+ wanted => \&test,
+ no_chdir => 1,
+}, 'lib';
+
+done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/t/boolean.t new/boolean-0.45/t/boolean.t
--- old/boolean-0.42/t/boolean.t 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/t/boolean.t 2015-02-06 00:39:33.000000000 +0100
@@ -1,4 +1,4 @@
-use Test::More tests => 65;
+use Test::More tests => 61;
use strict;
use lib 'lib';
@@ -121,15 +121,5 @@
eval 'true(())'; ok $@, "Can't pass values to true/false";
eval 'false(undef)'; ok $@, "Can't pass values to true/false";
-# Check that true is immutable
-SKIP: {
- skip "Need Readonly to make truth immutable", 4 if !eval { require
Readonly };
- for my $bool (true, false) {
- my $truthiness = !!$bool;
- ok !eval { $$bool = 0; 1 }, "truth is forever";
- is $bool, $truthiness, "imutable";
- }
-}
-
ok true->isTrue, "true isTrue";
ok false->isFalse, "false isFalse";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/t/export.t new/boolean-0.45/t/export.t
--- old/boolean-0.42/t/export.t 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/t/export.t 2015-02-06 00:39:33.000000000 +0100
@@ -13,7 +13,7 @@
use boolean ':all';
package Test;
-use boolean -truth, ':test';
+use boolean ':test';
package main;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/t/json.t new/boolean-0.45/t/json.t
--- old/boolean-0.42/t/json.t 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/t/json.t 2015-02-06 00:39:33.000000000 +0100
@@ -1,16 +1,17 @@
use strict; use warnings;
use Test::More tests => 3;
-use boolean -truth;
+use boolean;
my $HAVE_JSON = eval { require JSON::MaybeXS };
SKIP: {
skip "JSON is missing", 3 unless $HAVE_JSON;
eval{
my $json = JSON::MaybeXS->new->convert_blessed();
- is($json->encode({false => (0 == 1)}), '{"false":false}',
+ is($json->encode({false => false}), '{"false":false}',
'JSON false works');
- is($json->encode({true => (1 == 1)}), '{"true":true}',
+ is($json->encode({true => true}), '{"true":true}',
'JSON true works');
is(ref(boolean::TO_JSON(true)), 'SCALAR',
'Make sure we can call boolean::TO_JSON($b)');
- }
+ };
+ diag "$@" if $@;
};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/boolean-0.42/t/truth.t new/boolean-0.45/t/truth.t
--- old/boolean-0.42/t/truth.t 2014-08-16 19:49:37.000000000 +0200
+++ new/boolean-0.45/t/truth.t 1970-01-01 01:00:00.000000000 +0100
@@ -1,27 +0,0 @@
-use Test::More tests => 8;
-
-use boolean -truth;
-
-is ref(1 == 0), 'boolean',
- 'Turn false == value into boolean';
-
-is ref(1 == 1), 'boolean',
- 'Turn true == value into boolean';
-
-is ref("foo" eq "bar"), 'boolean',
- 'Turn false "eq" value into boolean';
-
-is ref("foo" ne "bar"), 'boolean',
- 'Turn true "ne" value into boolean';
-
-is ref("foo" =~ /o/), 'boolean',
- 'Turn true regex into boolean';
-
-is ref("foo" =~ /bar/), 'boolean',
- 'Turn false regex into boolean';
-
-is 1 == 0, '0',
- 'False is 0';
-
-is 1 == 1, '1',
- 'True is 1';
![https://travis-ci.org/ingydotnet/boolean-pm.png"](https://travis-ci.org/ingydotnet/boolean-pm.png"){kind=link}
![https://coveralls.io/repos/ingydotnet/boolean-pm/badge.png"](https://coveralls.io/repos/ingydotnet/boolean-pm/badge.png"){kind=link}