I used your patch to patch 0.43 of this distribution. Your tests all
pass for me (Perl 5.10.1 on both Windows Vista SP2 and Ubuntu 10.04,
both 32-bit).
However, the tests that concern DateTime fail for me on both machines
(see the report). I'm not sure if this is a error in DateTime or perhaps
that my 32-bit system isn't precise enough...
My patched version can be found on Github
(
http://github.com/Htbaa/net-mosso-cloudfiles)
Could you test it for me?
prove -l -m --verbose t/
t/pod.t ...........
1..3
ok 1 - lib/Net/Mosso/CloudFiles.pm
ok 2 - lib/Net/Mosso/CloudFiles/Object.pm
ok 3 - lib/Net/Mosso/CloudFiles/Container.pm
ok
t/pod_coverage.t ..
1..3
ok 1 - Pod coverage on Net::Mosso::CloudFiles
ok 2 - Pod coverage on Net::Mosso::CloudFiles::Object
ok 3 - Pod coverage on Net::Mosso::CloudFiles::Container
ok
t/simple.t ........
1..55
ok 1 - The object isa Net::Mosso::CloudFiles
ok 2 - container isa Net::Mosso::CloudFiles::Container
ok 3 - The object isa Net::Mosso::CloudFiles
ok 4 - container name is testing
ok 5 - container isa Net::Mosso::CloudFiles::Container
ok 6 - The object isa Net::Mosso::CloudFiles
ok 7 - container name is testing
ok 8 - container has no objects
ok 9 - container uses no bytes
ok 10 - container has no objects
ok 11 - container isa Net::Mosso::CloudFiles::Object
ok 12 - The object isa Net::Mosso::CloudFiles
ok 13 - The object isa Net::Mosso::CloudFiles::Container
ok 14 - container name is testing
ok 15 - object name is one.txt
ok 16 - use some bytes
ok 17 - have some containers
ok 18 - got content for one.txt
ok 19 - got size for one.txt
ok 20 - got etag for one.txt
ok 21 - got content_type for one.txt
ok 22 - got last_modified for one.txt isa DateTime
ok 23 - numeric metadata works
ok 24 - string metadata works
ok 25 - t/one.txt has correct value
ok 26 - got size for t/one.txt
ok 27 - got etag for t/one.txt
ok 28 - got last_modified for t/one.txt
ok 29 - listing one object
ok 30 - list has right name
ok 31 - list has right etag
ok 32 - list has right size
ok 33 - list has right content type
ok 34 - list has a last modified isa DateTime
ok 35 - got 404 when getting one.txt
ok 36 - got 404 when get_filenameing one.txt
ok 37 - got 404 when deleting one.txt
ok 38 - got content for two.txt
ok 39 - got size for two.txt
ok 40 - got etag for two.txt
ok 41 - got content_type for two.txt
ok 42 - got last_modified for two.txt isa DateTime
ok 43 - re-retrieved content for two.txt
ok 44 - got cached content for two.txt
ok 45 - forced retrieval of two.txt
ok 46 - got size for two.txt
ok 47 - got etag for two.txt
ok 48 - got content_type for two.txt
ok 49 - got last_modified for two.txt isa DateTime
The 'nanosecond' parameter ("8202399.99999997") to DateTime::new did not pass the 'a positive integer' callback
at /usr/lib/perl5/DateTime.pm line 176
DateTime::new(undef, 'hour', 19, 'minute', 40, 'month', 5, 'second', 6, ...) called at /usr/local/share/perl/5.10.1/DateTime/Format/HTTP.pm line 58
DateTime::Format::HTTP::parse_datetime('DateTime::Format::HTTP', '2010-05-04T19:40:06.082024') called at lib/Net/Mosso/CloudFiles/Object.pm line 11
Net::Mosso::CloudFiles::Object::__ANON__('2010-05-04T19:40:06.082024') called at /usr/lib/perl5/Moose/Meta/TypeCoercion.pm line 63
Moose::Meta::TypeCoercion::__ANON__('2010-05-04T19:40:06.082024') called at /usr/lib/perl5/Moose/Meta/TypeCoercion.pm line 97
Moose::Meta::TypeCoercion::coerce('Moose::Meta::TypeCoercion=HASH(0x9dd35e0)', '2010-05-04T19:40:06.082024') called at /usr/lib/perl5/Moose/Meta/TypeConstraint.pm line 88
Moose::Meta::TypeConstraint::coerce('Moose::Meta::TypeConstraint=HASH(0x9dd3770)', '2010-05-04T19:40:06.082024') called at generated method (unknown origin) line 63
Net::Mosso::CloudFiles::Object::new('Net::Mosso::CloudFiles::Object', 'cloudfiles', 'Net::Mosso::CloudFiles=HASH(0x9e41238)', 'container', 'Net::Mosso::CloudFiles::Container=HASH(0xa0a1c90)', 'name', 'two.txt', 'etag', '855a8e4678542fd944455ee350fa8147', ...) called at lib/Net/Mosso/CloudFiles/Container.pm line 74
Net::Mosso::CloudFiles::Container::__ANON__('Data::Stream::Bulk::Callback=HASH(0x9a7b458)') called at /usr/local/share/perl/5.10.1/Data/Stream/Bulk/Callback.pm line 20
Data::Stream::Bulk::Callback::get_more('Data::Stream::Bulk::Callback=HASH(0x9a7b458)') called at /usr/local/share/perl/5.10.1/Data/Stream/Bulk/DoneFlag.pm line 32
Data::Stream::Bulk::DoneFlag::next('Data::Stream::Bulk::Callback=HASH(0x9a7b458)') called at /usr/local/share/perl/5.10.1/Data/Stream/Bulk.pm line 27
Data::Stream::Bulk::all('Data::Stream::Bulk::Callback=HASH(0x9a7b458)') called at t/simple.t line 154
# Looks like you planned 55 tests but ran 49.
# Looks like your test exited with 255 just after 49.
Dubious, test returned 255 (wstat 65280, 0xff00)
Failed 6/55 subtests
Test Summary Report
-------------------
t/simple.t (Wstat: 65280 Tests: 49 Failed: 0)
Non-zero exit status: 255
Parse errors: Bad plan. You planned 55 tests but ran 49.
Files=3, Tests=55, 7 wallclock secs ( 0.04 usr 0.05 sys + 1.28 cusr 0.22 csys = 1.59 CPU)
Result: FAIL
