diff options
author | Mark Glines <mark@glines.org> | 2002-04-22 02:24:28 +0000 |
---|---|---|
committer | Mark Glines <mark@glines.org> | 2002-04-22 02:24:28 +0000 |
commit | 8811161f67657253d11214ede54857f810662a91 (patch) | |
tree | 1f555243af88b77fcea3d256f6f7b8b5f1c05548 /perl/test/mkdir.t | |
parent | 7574b0559706597058a9cb3c056204935f9b00c5 (diff) | |
download | libfuse-8811161f67657253d11214ede54857f810662a91.tar.gz |
added a test framework
updated README
fixed a couple of bugs in loopback.pl
Diffstat (limited to 'perl/test/mkdir.t')
-rw-r--r-- | perl/test/mkdir.t | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl/test/mkdir.t b/perl/test/mkdir.t new file mode 100644 index 0000000..90ec6f3 --- /dev/null +++ b/perl/test/mkdir.t @@ -0,0 +1,11 @@ +#!/usr/bin/perl +use test::helper qw($_real $_point); +use Test::More; +plan tests => 3; +chdir($_point); +ok(mkdir("dir"),"mkdir"); +ok(-d "dir","dir exists"); +chdir($_real); +ok(-d "dir","dir really exists"); +chdir($_point); +rmdir("dir"); |