File: bug-undefs-in-hashes.t

package info (click to toggle)
libdata-compare-perl 1.29-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 264 kB
  • sloc: perl: 454; sh: 3; makefile: 2
file content (11 lines) | stat: -rw-r--r-- 236 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
 
use strict;
use warnings;

use Test::More;

use Data::Compare;

# https://github.com/DrHyde/perl-modules-Data-Compare/issues/21
is(Compare({a=>{b=>undef}}, {a=>{c=>12}}), 0, "deal correctly with undef values in hashes");

done_testing;