1 | BEGIN { $| = 1; print "1..79\n"; } |
1 | BEGIN { $| = 1; print "1..78\n"; } |
2 | |
2 | |
3 | # examples from rfc7049 |
3 | # examples from rfc7049 |
4 | |
4 | |
5 | use Data::Dumper; |
5 | use Data::Dumper; |
6 | use CBOR::XS; |
6 | use CBOR::XS; |
… | |
… | |
128 | * [] 0x80 |
128 | * [] 0x80 |
129 | * [1,2,3] 0x83010203 |
129 | * [1,2,3] 0x83010203 |
130 | * [1,[2,3],[4,5]] 0x8301820203820405 |
130 | * [1,[2,3],[4,5]] 0x8301820203820405 |
131 | * [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25]0x98190102030405060708090a0b0c0d0e0f101112131415161718181819 |
131 | * [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25]0x98190102030405060708090a0b0c0d0e0f101112131415161718181819 |
132 | * {} 0xa0 |
132 | * {} 0xa0 |
133 | < {1,2,3,4} 0xa201020304 |
133 | {1,2,3,4} 0xa201020304 # fails because of broken data::dumper |
134 | < {"a",1,"b",[2,3]} 0xa26161016162820203 |
134 | < {"a",1,"b",[2,3]} 0xa26161016162820203 |
135 | < ["a",{"b","c"}] 0x826161a161626163 |
135 | < ["a",{"b","c"}] 0x826161a161626163 |
136 | < {"a","A","b","B","c","C","d","D","e","E"}0xa56161614161626142616361436164614461656145 |
136 | < {"a","A","b","B","c","C","d","D","e","E"}0xa56161614161626142616361436164614461656145 |
137 | (_h'0102',h'030405') 0x5f42010243030405ff |
137 | (_h'0102',h'030405') 0x5f42010243030405ff |
138 | < streaming 0x7f657374726561646d696e67ff |
138 | < streaming 0x7f657374726561646d696e67ff |