Changeset 1722

Show
Ignore:
Timestamp:
01/10/06 19:08:52
Author:
miyagawa
Message:

update the tests

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • JSON-Syck/trunk/t/01_json.t

    r1710 r1722  
    1010my @tests = ( 
    1111    '"foo"', 
    12     '"foo\'bar"', 
    1312    '[1, 2, 3]', 
     13    '[1, 2, 3]', 
     14#    '1', 
     15#    '"foo\'bar"', 
     16#    '[1,2,3]', 
    1417    '[1.1, 2.2, 3.3]', 
    15     '{"foo": "bar"}', 
     18#    '[1.1,2.2,3.3]', 
     19#    '{"foo": "bar"}', 
     20#    '{"foo":"bar"}', 
    1621); 
    1722 
    1823plan tests => scalar @tests; 
    1924 
    20 warn my $d = JSON::Syck::Dump(JSON::Syck::Load($tests[2])); 
    21  
    22 for (@tests) { 
    23     my $test = ref($_) ? Storable::dclone($_) : $_; 
     25for my $test (@tests) { 
    2426    my $data = JSON::Syck::Load($test); 
    2527    my $json = JSON::Syck::Dump($data);