1#!perl
2use strict;
3use warnings;
4use Test::More tests => 6;
5use String::Flogger qw(flog);
6
7is(
8  flog([ 'foo %s bar', undef ]),
9  'foo {{null}} bar',
10  "%s <- undef",
11);
12
13is(
14  flog([ 'foo %s bar', \undef ]),
15  'foo ref({{null}}) bar',
16  "%s <- \\undef",
17);
18
19is(
20  flog([ 'foo %s bar', \1 ]),
21  'foo ref(1) bar',
22  "%s <- \\1",
23);
24
25is(
26  flog([ 'foo %s bar', \\1 ]),
27  'foo ref(ref(1)) bar',
28  "%s <- \\\\1",
29);
30
31like(
32  flog({foo => 'bar'}),
33  qr/foo.+bar/,
34  "hashref keys/values printed",
35);
36
37like(
38  flog(sub { +{foo => 'bar'} }),
39  qr/foo.+bar/,
40  "hashref keys/values printed",
41);
42