aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rwxr-xr-xt/01packdrakeng.t16
1 files changed, 15 insertions, 1 deletions
diff --git a/t/01packdrakeng.t b/t/01packdrakeng.t
index fd0c3d6..6216dd5 100755
--- a/t/01packdrakeng.t
+++ b/t/01packdrakeng.t
@@ -3,7 +3,7 @@
# $Id$
use strict;
-use Test::More tests => 32;
+use Test::More tests => 37;
use Digest::MD5;
use_ok('Packdrakeng');
@@ -79,6 +79,20 @@ sub test_packing {
$pack = undef;
}
+# Testing simple additionnal function:
+clean_test_files();
+
+{
+my ($handle, $filename) = Packdrakeng::tempfile();
+ok($handle && $filename, "can create temp file");
+ok(-f $filename, "Temp file exist");
+ok(print($handle $coin), "can write into file");
+close($handle);
+unlink($filename);
+
+ok(Packdrakeng::mkpath('test/parent/child'), "can create dir like mkdir -p");
+ok(-d 'test/parent/child', "the dir really exist");
+}
# Single test:
{