Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
libfuse
/
76f6578928809ac2e687dc0979f3051a00b56970
/
.
/
perl
/
test
/
open.t
blob: 030dc1f7cdbf893b0a25a0ab915526739368a22c [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
test
::
helper qw
(
$_real $_point
);
use
Test
::
More
;
plan tests
=>
1
;
chdir
(
$_real
);
system
(
"echo frog >file"
);
chdir
(
$_point
);
ok
(
open
(
FILE
,
"file"
),
"open"
);
close
(
FILE
);
unlink
(
"file"
);