ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/t/16_tied.t
Revision: 1.1
Committed: Sun Aug 26 21:56:47 2007 UTC (16 years, 9 months ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-2_01, rel-1_51, rel-1_53, rel-4_0, rel-2_222, rel-3_0, rel-4_01, rel-4_03, rel-4_02, rel-2_2, rel-2_3, rel-2_0, rel-2_1, rel-4_0_00, rel-2_34, rel-2_32, rel-2_33, rel-2_31, rel-1_5, rel-2_2311, rel-3_01, rel-3_02, rel-3_03, rel-3_04, rel-2_232, rel-2_231, rel-2_29, rel-2_28, rel-2_21, rel-2_2222, rel-2_23, rel-2_22, rel-2_25, rel-2_24, rel-2_27, rel-2_26, HEAD
Log Message:
tied hashes, maybe

File Contents

# User Rev Content
1 root 1.1 BEGIN { $| = 1; print "1..2\n"; }
2    
3     use JSON::XS;
4     use Tie::Hash;
5     use Tie::Array;
6    
7     our $test;
8     sub ok($;$) {
9     print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
10     }
11    
12     my $js = JSON::XS->new;
13    
14     tie my %h, 'Tie::StdHash';
15     %h = (a => 1);
16    
17     ok ($js->encode (\%h) eq '{"a":1}');
18    
19     tie my @a, 'Tie::StdArray';
20     @a = (1, 2);
21    
22     ok ($js->encode (\@a) eq '[1,2]');