3 |
use warnings; |
use warnings; |
4 |
use strict; |
use strict; |
5 |
|
|
6 |
use Test::More tests => 108; |
use Test::More tests => 110; |
7 |
use Data::Dumper; |
use Data::Dumper; |
8 |
|
|
9 |
use lib 'lib'; |
use lib 'lib'; |
30 |
|
|
31 |
cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' ); |
cmp_ok( $o->get( 'foo' ), 'eq', 'baz', 'get foo = baz' ); |
32 |
|
|
33 |
|
my $euro = "\x{20ac}"; |
34 |
|
ok( $o->set( utf8 => $euro ), 'set utf8' ); |
35 |
|
cmp_ok( $o->get( 'utf8' ), 'eq', $euro, 'get utf8' ); |
36 |
|
|
37 |
ok( $o->set( 'test-undef' => 42 ), 'set test-undef' ); |
ok( $o->set( 'test-undef' => 42 ), 'set test-undef' ); |
38 |
ok( $o->set( 'test-undef' => undef ), 'set undef' ); |
ok( $o->set( 'test-undef' => undef ), 'set undef' ); |
39 |
ok( ! defined $o->get( 'test-undef' ), 'get undef' ); |
ok( ! defined $o->get( 'test-undef' ), 'get undef' ); |