repo.or.cz
/
nbdkit
/
ericb.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
retry: Don't call into closed plugin
[nbdkit/ericb.git]
/
tests
/
test.pl
blob
2eb57caaa854bfb300a8869a8d50518382c355fa
1
use
strict
;
2
3
my
$disk
=
"\0"
x
(
1024
*
1024
);
4
5
sub
config_complete
6
{
7
}
8
9
sub
open
10
{
11
my
$readonly
=
shift
;
12
my
$h
= {
readonly
=>
$readonly
};
13
return
$h
;
14
}
15
16
sub
close
17
{
18
my
$h
=
shift
;
19
}
20
21
sub
get_size
22
{
23
my
$h
=
shift
;
24
return
length
(
$disk
);
25
}
26
27
sub
can_write
28
{
29
my
$h
=
shift
;
30
return
1
;
31
}
32
33
sub
can_flush
34
{
35
my
$h
=
shift
;
36
return
1
;
37
}
38
39
sub
is_rotational
40
{
41
my
$h
=
shift
;
42
return
0
;
43
}
44
45
sub
can_trim
46
{
47
my
$h
=
shift
;
48
return
1
;
49
}
50
51
sub
pread
52
{
53
my
$h
=
shift
;
54
my
$count
=
shift
;
55
my
$offset
=
shift
;
56
return
substr
(
$disk
,
$offset
,
$count
);
57
}
58
59
sub
pwrite
60
{
61
my
$h
=
shift
;
62
my
$buf
=
shift
;
63
my
$count
=
length
(
$buf
);
64
my
$offset
=
shift
;
65
substr
(
$disk
,
$offset
,
$count
) =
$buf
;
66
}
67
68
sub
flush
69
{
70
my
$h
=
shift
;
71
}
72
73
sub
trim
74
{
75
my
$h
=
shift
;
76
my
$count
=
shift
;
77
my
$offset
=
shift
;
78
}