File: escape.t

package info (click to toggle)
libstring-escape-perl 2002.001-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 68 kB
  • ctags: 23
  • sloc: perl: 187; makefile: 42
file content (21 lines) | stat: -rwxr-xr-x 562 bytes parent folder | download | duplicates (4) 
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 );