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

# Content
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