ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/t/03_types.t
(Generate patch)

Comparing JSON-XS/t/03_types.t (file contents):
Revision 1.1 by root, Thu Mar 22 23:24:18 2007 UTC vs.
Revision 1.2 by root, Fri Mar 23 10:47:05 2007 UTC

… …
6our $test; 6our $test;
7sub ok($) { 7sub ok($) {
8 print $_[0] ? "" : "not ", "ok ", ++$test, "\n"; 8 print $_[0] ? "" : "not ", "ok ", ++$test, "\n";
9} 9}
10 10
11use PApp::Util;
12ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null')); 11ok (!defined JSON::XS->new->allow_nonref (1)->decode ('null'));
13ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1); 12ok (JSON::XS->new->allow_nonref (1)->decode ('true') == 1);
14ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0); 13ok (JSON::XS->new->allow_nonref (1)->decode ('false') == 0);
15 14
16ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5); 15ok (JSON::XS->new->allow_nonref (1)->decode ('5') == 5);

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines