From 022c4f162d7b83cb287b7d16749899d9e7c4242a Mon Sep 17 00:00:00 2001 From: Andreas Mair Date: Tue, 12 Apr 2005 12:32:06 +0200 Subject: =?UTF-8?q?2005-04-12:=200.97-am3.1=20-=20Updated=20Spanish=20i18n?= =?UTF-8?q?=20(Thanks=20to=20Ruediger=20Jung).=20-=20Added=20VDR=20Admin?= =?UTF-8?q?=20man-page=20(Thanks=20to=20Thomas=20Schmidt).=20-=20Improved?= =?UTF-8?q?=20detection=20of=20another=20running=20vdradmind.pl=20at=20sta?= =?UTF-8?q?rtup=20(if=20vdradmind.pid=20is=20found=20but=20pid=20is=20not?= =?UTF-8?q?=20a=20vdradmind.pl=20vdradmin=20will=20start=20anyway).=20-=20?= =?UTF-8?q?Added=20IMDb=20lookup=20button=20in=20prog=5Fdetail=20(Suggeste?= =?UTF-8?q?d=20by=20Marcus).=20-=20Use=20configured=20Streamdev=20port=20f?= =?UTF-8?q?or=20live=20streaming.=20-=20Added=20warning=20when=20using=20E?= =?UTF-8?q?PG=5FDIRECT.=20-=20Updated=20INSTALL=20file.=20-=20Renamed=20i1?= =?UTF-8?q?8n=20Espa=C3=B1ol=20to=20Spanish=20(Requested=20by=20Ruediger?= =?UTF-8?q?=20Jung).=20-=20Fixed=20":"=20&=20"|"=20handling=20in=20timer's?= =?UTF-8?q?=20title=20and=20summary=20(Thanks=20to=20Der=5FPit=20for=20poi?= =?UTF-8?q?nting=20me=20to=20that).=20-=20Added=20"Select=20all"=20to=20ti?= =?UTF-8?q?mer/autotimer/recordings=20list.=20-=20Exchanged=20priority=20a?= =?UTF-8?q?nd=20lifetime=20textfields=20in=20config.html=20to=20match=20or?= =?UTF-8?q?der=20used=20at=20other=20places=20(Requested=20by=20Ruediger?= =?UTF-8?q?=20Jung).=20-=20Added=20vdradmin-0.95-0.9pre5-email.diff=20(Aut?= =?UTF-8?q?hor:=20blafasel)=20patch:=20send=20email=20on=20timers=20added?= =?UTF-8?q?=20by=20AutoTimer=20(needs=20sendEmail=20available=20here:=20ht?= =?UTF-8?q?tp://caspian.dotconf.net/menu/Software/SendEmail/).=20-=20Fixed?= =?UTF-8?q?=20timer=20add/edit=20where=20date=20got=20set=20wrong=20in=20c?= =?UTF-8?q?ase=20it=20has=20been=20entered=20as=20"yyyy-mm-dd".=20-=20Fixe?= =?UTF-8?q?d=20problems=20when=20using=20MOD=5FGZIP=20(Thanks=20Ville=20Sk?= =?UTF-8?q?ytt=C3=A4).=20-=20Fixed=20Makefile=20once=20again=20(Thanks=20Z?= =?UTF-8?q?zam=20for=20pointing=20me=20to=20this).=20-=20Added=20patches?= =?UTF-8?q?=20submitted=20by=20stefan.h=20(Thanks!):=20=20=20->=20New=20co?= =?UTF-8?q?nfig=20option=20EPG=5FPRUNE.=20You=20can=20set=20a=20channel=20?= =?UTF-8?q?number=20up=20to=20which=20VDRAdmin=20will=20read=20EPG.=20Migh?= =?UTF-8?q?t=20reduce=20memory=20usage=20and=20read-in=20time.=20Set=20to?= =?UTF-8?q?=20"0"=20to=20read=20all=20channels.=20=09->=20Optimizations=20?= =?UTF-8?q?and=20bug=20fixes.=20-=20Added=20install=20files=20for=20Debian?= =?UTF-8?q?=20(Thanks=20to=20Steffen=20Oberle=20for=20requesting=20and=20t?= =?UTF-8?q?roubleshooting).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- lib/Temp/File-Temp-0.12/t/tempfile.t | 140 ----------------------------------- 1 file changed, 140 deletions(-) delete mode 100644 lib/Temp/File-Temp-0.12/t/tempfile.t (limited to 'lib/Temp/File-Temp-0.12/t/tempfile.t') diff --git a/lib/Temp/File-Temp-0.12/t/tempfile.t b/lib/Temp/File-Temp-0.12/t/tempfile.t deleted file mode 100644 index 6e3fa94..0000000 --- a/lib/Temp/File-Temp-0.12/t/tempfile.t +++ /dev/null @@ -1,140 +0,0 @@ -#!/usr/local/bin/perl -w -# Test for File::Temp - tempfile function - -use strict; -use Test; -BEGIN { plan tests => 20} -use File::Spec; - -# Will need to check that all files were unlinked correctly -# Set up an END block here to do it - -# Arrays containing list of dirs/files to test -my (@files, @dirs, @still_there); - -# And a test for files that should still be around -# These are tidied up -END { - foreach (@still_there) { - ok( -f $_ ); - ok( unlink( $_ ) ); - ok( !(-f $_) ); - } -} - -# Loop over an array hoping that the files dont exist -END { foreach (@files) { ok( !(-e $_) )} } - -# And a test for directories -END { foreach (@dirs) { ok( !(-d $_) )} } - -# Need to make sure that the END blocks are setup before -# the ones that File::Temp configures since END blocks are evaluated -# in revers order and we need to check the files *after* File::Temp -# removes them -use File::Temp qw/ tempfile tempdir/; - -# Now we start the tests properly -ok(1); - - -# Tempfile -# Open tempfile in some directory, unlink at end -my ($fh, $tempfile) = tempfile( - UNLINK => 1, - SUFFIX => '.txt', - ); - -ok( (-f $tempfile) ); -# Should still be around after closing -ok( close( $fh ) ); -ok( (-f $tempfile) ); -# Check again at exit -push(@files, $tempfile); - -# TEMPDIR test -# Create temp directory in current dir -my $template = 'tmpdirXXXXXX'; -print "# Template: $template\n"; -my $tempdir = tempdir( $template , - DIR => File::Spec->curdir, - CLEANUP => 1, - ); - -print "# TEMPDIR: $tempdir\n"; - -ok( (-d $tempdir) ); -push(@dirs, $tempdir); - -# Create file in the temp dir -($fh, $tempfile) = tempfile( - DIR => $tempdir, - UNLINK => 1, - SUFFIX => '.dat', - ); - -print "# TEMPFILE: Created $tempfile\n"; - -ok( (-f $tempfile)); -push(@files, $tempfile); - -# Test tempfile -# ..and again -($fh, $tempfile) = tempfile( - DIR => $tempdir, - ); - - -ok( (-f $tempfile )); -push(@files, $tempfile); - -print "# TEMPFILE: Created $tempfile\n"; - -# and another (with template) - -($fh, $tempfile) = tempfile( 'helloXXXXXXX', - DIR => $tempdir, - UNLINK => 1, - SUFFIX => '.dat', - ); - -print "# TEMPFILE: Created $tempfile\n"; - -ok( (-f $tempfile) ); -push(@files, $tempfile); - - -# Create a temporary file that should stay around after -# it has been closed -($fh, $tempfile) = tempfile( 'permXXXXXXX', UNLINK => 0 ); -print "# TEMPFILE: Created $tempfile\n"; -ok( -f $tempfile ); -ok( close( $fh ) ); -push( @still_there, $tempfile); # check at END - -# Would like to create a temp file and just retrieve the handle -# but the test is problematic since: -# - We dont know the filename so we cant check that it is tidied -# correctly -# - The unlink0 required on unix for tempfile creation will fail -# on NFS -# Try to do what we can. -# Tempfile croaks on error so we need an eval -$fh = eval { tempfile( 'ftmpXXXXX', DIR => File::Spec->tmpdir ) }; - -if ($fh) { - - # print something to it to make sure something is there - ok( print $fh "Test\n" ); - - # Close it - can not check it is gone since we dont know the name - ok( close($fh) ); - -} else { - skip "Skip Failed probably due to NFS", 1; - skip "Skip Failed probably due to NFS", 1; -} - -# Now END block will execute to test the removal of directories -print "# End of tests. Execute END blocks\n"; - -- cgit v1.2.3