ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/CBOR-XS/t/56_filter.t
Revision: 1.1
Committed: Sun Dec 1 16:40:25 2013 UTC (10 years, 6 months ago) by root
Content type: application/x-troff
Branch: MAIN
CVS Tags: rel-1_8, rel-1_71, rel-1_4, rel-1_5, rel-1_41, rel-1_82, rel-1_83, rel-1_3, rel-1_81, rel-1_86, rel-1_87, rel-1_84, rel-1_85, rel-1_11, rel-1_7, rel-1_12, rel-1_25, rel-1_26, rel-1_6, HEAD
Log Message: 
*** empty log message ***

File Contents

# User Rev Content
1 root 1.1 BEGIN { $| = 1; print "1..8\n"; }
2     BEGIN { $^W = 0 } # hate
3    
4     use CBOR::XS;
5    
6     print "ok 1\n";
7    
8     $dec = (decode_cbor encode_cbor CBOR::XS::tag 0, "2003-12-13T18:30:02Z")->epoch;
9     print $dec == 1071340202 ? "" : "not ", "ok 2 # $dec\n";
10    
11     $dec = (decode_cbor encode_cbor CBOR::XS::tag 0, "2003-12-13T18:30:02.25Z")->epoch;
12     print $dec == 1071340202.25 ? "" : "not ", "ok 3 # $dec\n";
13    
14     $dec = (decode_cbor encode_cbor CBOR::XS::tag 0, "2003-12-13T18:30:02+01:00")->epoch;
15     print $dec == 1071336602 ? "" : "not ", "ok 4 # $dec\n";
16    
17     $dec = (decode_cbor encode_cbor CBOR::XS::tag 0, "2003-12-13T18:30:02.25+01:00")->epoch;
18     print $dec == 1071336602.25 ? "" : "not ", "ok 5 # $dec\n";
19    
20     $dec = (decode_cbor encode_cbor CBOR::XS::tag 1, 123456789)->epoch;
21     print $dec == 123456789 ? "" : "not ", "ok 6 # $dec\n";
22    
23     $dec = (decode_cbor encode_cbor CBOR::XS::tag 1, 123456789.75)->epoch;
24     print $dec == 123456789.75 ? "" : "not ", "ok 7 # $dec\n";
25    
26     $dec = (decode_cbor encode_cbor decode_cbor encode_cbor CBOR::XS::tag 1, 123456789.75)->epoch;
27     print $dec == 123456789.75 ? "" : "not ", "ok 8 # $dec\n";
28    
29