1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#!/usr/bin/perl
# Testing for Data::JavaScript::Anon
use strict;
BEGIN {
$| = 1;
$^W = 1;
}
use Test::More;
use Data::JavaScript::Anon;
# Thoroughly test the numeric tests
my @numbers = qw{
0 1 2 3 4 5 6 7 8 9 10 11 123455 +1 +0 +5 +10 +123213 -0 -1 -5 -10 -12321133
0.0 .0 1.0 1.1 10.1 10.01 111111.111111 +111111.111111 -1111111.000100
1e0 1e1 1e2 1e10 1e+1 1e+2 1e+0 1e+10 1e-0 1e-1 1e-10
2e+0002 31.31e-000200430 +41.420010E+222211 -5111.050E-5151
0x2131 0xaaad32 -0x21312 +0x212 +0X212
01 02 03 04 05 01251 002123 00000
};
my @not_numbers = qw{
a 09 +09 -09 08 +08 -08 ++1 +-34
3com 2131.231fd2132 +0x21x
};
push @not_numbers, "0\n", "1\n";
my @keywords = qw{
abstract boolean break byte case catch char class const continue
debugger default delete do double else enum export extends false final
finally float for function goto if implements import in instanceof int
interface long native new null package private protected public return
short static super switch synchronized this throw throws transient true
try typeof var void volatile while with
};
my @hash_keys = (
# CPAN #7183:
{ input => "0596000278", output => '"0596000278"',
desc => 'correctly escapes 0-leading non-octal' },
# CPAN #19915:
{ input => '0', output => '0',
desc => q[doesn't delete string '0'] },
{ input => '', output => '""',
desc => q[doesn't delete empty string] },
{ input => "foo\n", output => '"foo\n"',
desc => q[correctly quotes identifier+newline] },
{ input => "1\n", output => '"1\n"',
desc => q[correctly quotes number+newline] },
);
plan tests => (@numbers + @not_numbers + @keywords + @hash_keys + 6);
foreach ( @numbers ) {
ok( Data::JavaScript::Anon->is_a_number( $_ ), "$_ is a number" );
}
foreach ( @not_numbers ) {
ok( ! Data::JavaScript::Anon->is_a_number( $_ ), "$_ is not a number" );
}
# Test that keywords come out quoted
foreach ( @keywords ) {
is( Data::JavaScript::Anon->anon_hash_key($_), '"' . $_ . '"',
"anon_hash_key correctly quotes keyword $_ used as hash key" );
}
# Test that hash keys aren't bent, folded, spindled, or mutilated
foreach ( @hash_keys ) {
is( Data::JavaScript::Anon->anon_hash_key($_->{input}), $_->{output},
"anon_hash_key $_->{desc}" );
}
my $o = Data::JavaScript::Anon->new( quote_char => "'" );
isa_ok( $o, 'Data::JavaScript::Anon', 'isa Data::JavaScript::Anon object');
my $rv = $o->anon_dump( [ "a\nb", "a\rb", "a b", "a\'b", "a\bb" ] );
is( $rv, '[ \'a\nb\', \'a\rb\', \'a b\', \'a\\\'b\', \'a\010b\' ]', 'changing default quote character');
# Do a simple test of most of the code in a single go
undef $rv;
$rv = Data::JavaScript::Anon->anon_dump( [ 'a', 1, { a => { a => 1, } }, \"foo" ] );
is( $rv, '[ "a", 1, { a: { a: 1 } }, "foo" ]',
'Generates expected output for simple combination struct' );
# Test for CPAN bug #11882 (forward slash not being escaped)
is( Data::JavaScript::Anon->anon_scalar( 'C:\\devel' ), '"C:\\\\devel"',
'anon_scalar correctly escapes forward slashes' );
# Also make sure double quotes are escaped
is( Data::JavaScript::Anon->anon_scalar( 'foo"bar' ), '"foo\\"bar"',
'anon_scalar correctly escapes double quotes' );
# Test for generalised case of CPAN bug # (newline not being escaped)
$rv = Data::JavaScript::Anon->anon_dump( [ "a\nb", "a\rb", "a b", "a\"b", "a\bb" ] );
is( $rv, '[ "a\nb", "a\rb", "a\tb", "a\\"b", "a\010b" ]', 'escape tabs, newlines, CRs and control chars');
|
