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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
-- Test pickle.pack()
pickle = require('pickle')
---
...
pickle.pack()
---
- error: 'bad argument #1 to ''?'' (string expected, got no value)'
...
pickle.pack(1)
---
- error: 'pickle.pack: argument count does not match the format'
...
pickle.pack('abc')
---
- error: 'pickle.pack: argument count does not match the format'
...
pickle.pack('a', ' - hello')
---
- ' - hello'
...
pickle.pack('Aa', ' - hello', ' world')
---
- ' - hello world'
...
pickle.pack('s', 0x4d)
---
- "M\0"
...
pickle.pack('i', -1)
---
- !!binary /////w==
...
pickle.pack('N', -1)
---
- !!binary /////w==
...
pickle.pack('ssss', 25940, 29811, 28448, 11883)
---
- Test ok.
...
pickle.pack('SSSS', 25940, 29811, 28448, 11883)
---
- Test ok.
...
pickle.pack('SSSSSSSS', 28493, 29550, 27680, 27497, 29541, 20512, 29285, 8556)
---
- Mons likes Perl!
...
pickle.pack('bsil', 84, 29541, 1802444916, 2338318684567380014ULL)
---
- 'Test ok. Let`s '
...
pickle.unpack('b', 'T')
---
- 84
...
pickle.unpack('s', 'Te')
---
- 25940
...
pickle.unpack('i', 'Test')
---
- 1953719636
...
pickle.unpack('l', 'Test ok.')
---
- 3344889333436081492
...
pickle.unpack('bsil', pickle.pack('bsil', 255, 65535, 4294967295, tonumber64('18446744073709551615')))
---
- 255
- 65535
- 4294967295
- 18446744073709551615
...
pickle.unpack('','')
---
...
pickle.unpack('ii', pickle.pack('i', 1))
---
- error: 'pickle.unpack(''i''): got 4 bytes (expected: 8+)'
...
pickle.unpack('i', pickle.pack('ii', 1, 1))
---
- error: 'pickle.unpack(''i''): too many bytes: unpacked 4, total 8'
...
|
