From 713e1c24d769bde79a146239ae324ccf74b31929 Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Tue, 14 Dec 2004 00:02:26 +0000
Subject: - don't use File::* modules

---
 t/01packdrakeng.t | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 't/01packdrakeng.t')

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:
 {
-- 
cgit v1.2.1