1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/env perl
BEGIN { require './t/inc/setup.pl' };
use strict;
use warnings;
use utf8;
plan tests => 8;
is(Regress::test_ghash_null_return(), undef);
is_deeply(Regress::test_ghash_nothing_return(), { foo => 'bar', baz => 'bat', qux => 'quux' });
is_deeply(Regress::test_ghash_nothing_return2(), { foo => 'bar', baz => 'bat', qux => 'quux' });
is_deeply(Regress::test_ghash_container_return(), { foo => 'bar', baz => 'bat', qux => 'quux' });
is_deeply(Regress::test_ghash_everything_return(), { foo => 'bar', baz => 'bat', qux => 'quux' });
Regress::test_ghash_null_in(undef);
is(Regress::test_ghash_null_out(), undef);
Regress::test_ghash_nothing_in({ foo => 'bar', baz => 'bat', qux => 'quux' });
Regress::test_ghash_nothing_in2({ foo => 'bar', baz => 'bat', qux => 'quux' });
is_deeply(Regress::test_ghash_nested_everything_return(), { wibble => { foo => 'bar', baz => 'bat', qux => 'quux', }, });
is_deeply(Regress::test_ghash_nested_everything_return2(), { wibble => { foo => 'bar', baz => 'bat', qux => 'quux', }, });
|
