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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
# $Id: test.pl,v 1.7 2001/07/28 06:36:50 btrott Exp $
use strict;
use Test;
BEGIN { plan tests => 55 }
use vars qw( $loaded );
END { print "not ok 1\n" unless $loaded; }
use Data::Buffer;
$loaded++;
ok($loaded);
my $buffer = Data::Buffer->new;
ok($buffer);
$buffer->put_str("foo");
ok($buffer->length, 7);
ok($buffer->get_str, "foo");
ok($buffer->offset, 7);
$buffer->put_str(0);
ok($buffer->get_str, 0);
$buffer->put_int32(999999999);
ok($buffer->get_int32, 999999999);
$buffer->put_int8(2);
ok($buffer->get_int8, 2);
my $save_off = $buffer->offset;
$buffer->put_int16(9999);
ok($buffer->get_int16, 9999);
$buffer->put_char('a');
ok($buffer->get_char, 'a');
$buffer->put_chars("bar");
ok($buffer->get_char, 'b');
ok($buffer->get_char, 'a');
ok($buffer->get_char, 'r');
$buffer->put_bytes("foobar", 5);
ok($buffer->get_bytes(5), "fooba");
ok($buffer->offset == $buffer->length);
$buffer->set_offset($save_off);
ok($buffer->offset, $save_off);
my $buf2 = $buffer->extract(5);
ok($buf2->offset, 0);
ok($buf2->length, 5);
ok($buf2->get_int16, 9999);
ok($buf2->get_bytes(3), 'aba');
$buffer->insert_template;
my @data = $buffer->get_all;
ok(@data == 14);
ok($data[0], "foo");
ok($data[1], 0);
ok($data[2], 999999999);
ok($data[3], 2);
ok($data[4], 9999);
ok($data[5], 'a');
ok($data[6], 'b');
ok($data[7], 'a');
ok($data[8], 'r');
ok($data[9], 'f');
ok($data[10], 'o');
ok($data[11], 'o');
ok($data[12], 'b');
ok($data[13], 'a');
$buffer->empty;
ok($buffer->offset, 0);
ok($buffer->length, 0);
ok($buffer->bytes, '');
ok($buffer->template, '');
$buffer->append("foobar");
ok($buffer->length, 6);
ok($buffer->bytes, "foobar");
$buffer->empty;
ok($buffer->length, 0);
ok($buffer->dump, '');
$buffer->put_int16(129);
ok($buffer->get_int16, 129);
ok($buffer->dump, '00 81');
ok($buffer->dump(1), '81');
$buf2 = Data::Buffer->new_with_init("foo");
ok($buf2);
ok($buf2->length, 3);
ok($buf2->bytes, "foo");
$buf2 = Data::Buffer->new_with_init("foo", "bar");
ok($buf2);
ok($buf2->length, 6);
ok($buf2->bytes, "foobar");
ok($buf2->get_bytes(3), "foo");
$buf2->reset_offset;
ok($buf2->offset, 0);
ok($buf2->length, 6);
|
