← Back to branch summary

~ubuntu-branches/ubuntu/precise/libdata-streamserializer-perl/precise

« back to all changes in this revision

Viewing changes to t/02-empty-objects.t

  • Committer: Bazaar Package Importer
  • Author(s): Dmitry E. Oboukhov
  • Date: 2011-03-02 22:07:02 UTC
  • Revision ID: james.westby@ubuntu.com-20110302220702-74pa85dg8dmmk3zh
Tags: upstream-0.07
Import upstream version 0.07

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/02-empty-objects.t
 
1
#!/usr/bin/perl
 
2
 
 
3
use warnings;
 
4
use strict;
 
5
use utf8;
 
6
use open qw(:std :utf8);
 
7
use lib qw(blib/lib ../blib/lib blib/arch ../blib/arch);
 
8
 
 
9
use Test::More tests    => 8;
 
10
use Encode qw(decode encode);
 
11
use Data::Dumper;
 
12
 
 
13
BEGIN {
 
14
    my $builder = Test::More->builder;
 
15
    use_ok 'Data::StreamSerializer';
 
16
    $| = 1;
 
17
    $Data::Dumper::Indent = 1;
 
18
    $Data::Dumper::Terse = 1;
 
19
    $Data::Dumper::Useqq = 1;
 
20
    $Data::Dumper::Deepcopy = 1;
 
21
}
 
22
 
 
23
 
 
24
my $sr = new Data::StreamSerializer;
 
25
ok !defined($sr->next), "Serialize empty object";
 
26
 
 
27
$sr = new Data::StreamSerializer [];
 
28
ok $sr->next eq '[]', "Serialize empty ARRAY";
 
29
ok !defined($sr->next), "Serialized empty ARRAY";
 
30
 
 
31
$sr = new Data::StreamSerializer {};
 
32
ok $sr->next eq '{}', "Serialize empty HASH";
 
33
ok !defined($sr->next), "Serialized empty HASH";
 
34
 
 
35
$sr = new Data::StreamSerializer undef;
 
36
ok $sr->next eq 'undef', "Serialize undef";
 
37
ok !defined($sr->next), "Serialized undef";