[Bps-public-commit] Data-Plist branch, master, updated. 1ea65ad52c2ce86d7a3a1cbb9e0a0ac9059dfeb3

[Alex M Vandiver]

The branch, master has been updated
       via  1ea65ad52c2ce86d7a3a1cbb9e0a0ac9059dfeb3 (commit)
       via  46a1adfb6d2b936f49ccd9b8f728a2fa5f1e6add (commit)
       via  1ff3937890a3f8bc03595e0107e478579cba7a73 (commit)
       via  503978c014f2672bbcf099e867c57b511d008d1a (commit)
      from  ae5f9f3de0a6962347bc586de8120b4292896790 (commit)

Summary of changes:
 Makefile.PL       |    2 ++
 t/binary-object.t |    3 +--
 t/binary-write.t  |   12 +++++++-----
 3 files changed, 10 insertions(+), 7 deletions(-)

- Log -----------------------------------------------------------------
commit 503978c014f2672bbcf099e867c57b511d008d1a
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Jul 13 13:08:56 2009 -0400

    Add a test count

diff --git a/t/binary-object.t b/t/binary-object.t
index ff5ef9c..b1204e7 100644
--- a/t/binary-object.t
+++ b/t/binary-object.t
@@ -1,4 +1,4 @@
-use Test::More no_plan => 1;
+use Test::More tests => 4;
 
 use strict;
 use warnings;

commit 1ff3937890a3f8bc03595e0107e478579cba7a73
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Aug 12 14:56:11 2009 -0400

    Remove unused "use YAML"

diff --git a/t/binary-object.t b/t/binary-object.t
index b1204e7..ade8399 100644
--- a/t/binary-object.t
+++ b/t/binary-object.t
@@ -6,7 +6,6 @@ use warnings;
 use Data::Plist::BinaryReader;
 use Data::Plist::BinaryWriter;
 use Data::Plist::Foundation::NSObject;
-use YAML;
 
 my $ret;
 my $read = Data::Plist::BinaryReader->new;

commit 46a1adfb6d2b936f49ccd9b8f728a2fa5f1e6add
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Aug 12 14:57:01 2009 -0400

    Make float round-trip checking have some slop to it

diff --git a/t/binary-write.t b/t/binary-write.t
index 57cbd38..b0db5e7 100644
--- a/t/binary-write.t
+++ b/t/binary-write.t
@@ -46,11 +46,13 @@ round_trip( "The kyokeach is cute", 64 );
 # Ustring
 files("t/data/ustring.binary.plist");
 
-# Real number
-round_trip( 3.14159, 50 );
-
-# Negative real
-round_trip( -1.985, 50 );
+# Positive and negative reals -- we don't just use round_trip because
+# of rounding
+for my $val (3.14159, -1.985) {
+    my $write = Data::Plist::BinaryWriter->new;
+    $in = trip( $write, $val, 50 );
+    ok( abs($in->data - $val) < 0.000001, "Read back $val" );
+}
 
 # Date
 round_trip( DateTime->new( year => 2008, month => 7, day => 23 ), 50 );

commit 1ea65ad52c2ce86d7a3a1cbb9e0a0ac9059dfeb3
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Wed Aug 12 14:57:11 2009 -0400

    Add missing deps

diff --git a/Makefile.PL b/Makefile.PL
index cde71bf..81ddbd6 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -7,12 +7,14 @@ abstract_from('lib/Data/Plist.pm');
 license('perl');
 
 requires('Class::ISA');
+requires('Class::Accessor');
 requires('DateTime');
 requires('Encode');
 requires('MIME::Base64');
 requires('Scalar::Util');
 requires('UNIVERSAL::isa');
 requires('UNIVERSAL::require');
+requires('URI');
 requires('XML::Writer');
 
 &WriteAll;

-----------------------------------------------------------------------