1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/perl
use strict;
use Test;
BEGIN { plan tests => 2, todo => [] }
use String::Escape qw( printable unprintable escape );
my ( $original, $printable, $comparison );
# Backslash escapes for newline and tab characters
$original = "\tNow is the time\nfor all good folk\nto party.\n";
$comparison = '\\tNow is the time\\nfor all good folk\\nto party.\\n';
ok( escape('qprintable', $original) eq '"' . $comparison . '"' );
# Can pass in function references
my $running_total;
ok( (escape( sub { $running_total += shift; }, 23, 4, 2, 13))[3] == 42 );
|
