Home
last modified time | relevance | path

Searched refs:tempfile (Results 1 – 25 of 156) sorted by relevance

1234567

/openbsd/gnu/usr.bin/perl/cpan/File-Temp/t/
H A Dtempfile.t44 my ($fh, $tempfile) = tempfile(
49 ok( (-f $tempfile), "Tempfile exists" );
52 ok( (-f $tempfile), "Tempfile exists" );
54 push(@files, $tempfile);
81 ($fh, $tempfile) = tempfile(
94 ($fh, $tempfile) = tempfile(
104 ($fh, $tempfile) = tempfile(
121 ($fh, $tempfile) = tempfile(
133 ($fh, $tempfile) = tempfile( 'helloXXXXXXX',
147 ($fh, $tempfile) = tempfile( TEMPLATE => 'goodbyeXXXXXXX',
[all …]
/openbsd/gnu/usr.bin/perl/t/test_pl/
H A Dtempfile.t20 $check = tempfile();
47 is( tempfile(), "${prefix}B");
48 is( tempfile(), "${prefix}C");
57 tempfile(); # allow the rest of the tests to work correctly
66 is( tempfile(), "${prefix}Z", 'Last single letter filename');
67 is( tempfile(), "${prefix}AA", 'First double letter filename');
71 is( tempfile(), "${prefix}AZ");
72 is( tempfile(), "${prefix}BA");
79 is( tempfile(), "${prefix}ZZZ", 'Last available filename');
80 ok( !eval{tempfile()}, 'Should bail after Last available filename' );
[all …]
/openbsd/usr.bin/mktemp/
H A Dmktemp.c111 tempfile = NULL; in main()
113 tempfile = strdup(template); in main()
115 if (tempfile == NULL) in main()
119 if (mkdtemps(tempfile, suffixlen) == NULL) in main()
120 fatal("cannot make temp dir %s", tempfile); in main()
122 (void)rmdir(tempfile); in main()
124 if ((fd = mkstemps(tempfile, suffixlen)) == -1) in main()
125 fatal("cannot make temp file %s", tempfile); in main()
128 (void)unlink(tempfile); in main()
131 (void)puts(tempfile); in main()
[all …]
/openbsd/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/
H A D110_mirror.t18 my $tempfile = File::Spec->catfile( $tempdir, "tempfile.txt" );
29 1 while unlink $tempfile;
52 open my $fh, ">", $tempfile;
54 utime $mtime, $mtime, $tempfile;
58 $timestamp{$url_basename} = (stat $tempfile)[9];
70 my @call_args = %options ? ($url, $tempfile, \%options) : ($url, $tempfile);
85 ok( -e $tempfile, "$label file created" );
89 is( (stat($tempfile))[9], $timestamp{$url_basename},
94 ok( ! -e $tempfile, "$label file not created" );
/openbsd/gnu/usr.bin/perl/cpan/Digest-SHA/t/
H A Dmethods.t20 my $tempfile = "methods.tmp";
21 END { unlink $tempfile if $tempfile }
25 my $fh = FileHandle->new($tempfile, "w");
41 open(FILE, "<$tempfile");
50 $fh = FileHandle->new($tempfile, "r");
58 print "not " unless $sha->addfile($tempfile, "b")->hexdigest eq $rsp;
63 $fh = FileHandle->new($tempfile, "w");
68 my $d = $sha->new(1)->addfile($tempfile, "U")->hexdigest;
81 $fh = FileHandle->new($tempfile, "w");
85 print "not " unless $sha->new(1)->addfile($tempfile, "0")->hexdigest eq
[all …]
/openbsd/gnu/usr.bin/perl/t/io/
H A Ddup.t20 my $tempfile = tempfile();
22 open(STDOUT,">$tempfile") || die "Can't open stdout";
49 if ($^O eq 'MSWin32') { print `type $tempfile` }
50 elsif ($^O eq 'VMS') { system "type $tempfile.;" } # TYPE defaults to .LIS when there is no exten…
51 else { system "cat $tempfile" }
101 open(G, ">$tempfile") or die;
117 open(G, "<$tempfile") or die;
125 open UTFOUT, '>:utf8', $tempfile or die $!;
135 open(UTFIN, "<:utf8", $tempfile) or die $!;
H A Dinplace.t10 my @tfiles = (tempfile(), tempfile(), tempfile());
37 our @ifiles = ( tempfile(), tempfile(), tempfile() );
93 our $file = tempfile() ;
H A Diprefix.t12 my @tfiles = (tempfile(), tempfile(), tempfile());
H A Dfflush.t48 my $ffprog = tempfile();
66 my $f = tempfile();
108 my $f = tempfile();
/openbsd/gnu/usr.bin/perl/t/op/
H A Dhash-clear-placeholders.t18 my $tempfile = tempfile();
22 open(STDERR, ">", $tempfile) ||
23 die "Could not open '$tempfile' for write: $^E";
37 open(my $fh, "<", $tempfile) ||
38 die "Could not open '$tempfile' for read: $^E";
H A Ddie_exit.t60 my $tempfile = tempfile();
61 open STDERR, '>', $tempfile or die "Can't open temp error file $tempfile: $!";
H A Deval.t46 my $tempfile = tempfile();
47 open(try,'>',$tempfile);
51 do "./$tempfile"; print $@;
490 my $tempfile = tempfile();
491 open $prog, ">", $tempfile or die "Can't create test file";
505 close $prog or die "Can't close $tempfile: $!";
506 my $got = runperl(progfile => $tempfile, stderr => 1);
/openbsd/gnu/usr.bin/texinfo/util/
H A Dfixfonts36 #trap 'rm -f "${tempfile}" "${tempfile2}"' 0 1 2 3 15
39 (cd "${texfontdir}"; find . -name '*circle*' -print > "${tempfile}")
42 if grep 'lcircle10\.tfm' "${tempfile}" > /dev/null 2>&1 ; then
49 grep 'circle10\.tfm' "${tempfile}" > "${tempfile2}" \
66 for f in `grep 'circle10.*pk' "${tempfile}"` ; do
76 for f in `grep 'circle10.*gf' "${tempfile}"` ; do
/openbsd/usr.bin/xinstall/
H A Dxinstall.c225 char *target_name = tempfile; in install()
264 to_fd = create_tempfile(to_name, tempfile, sizeof(tempfile)); in install()
266 err(1, "%s", tempfile); in install()
273 strip(tempfile); in install()
297 (void)unlink(tempfile); in install()
298 errc(1, serrno, "%s", tempfile); in install()
314 (void)unlink(tempfile); in install()
341 if (target_name == tempfile) in install()
347 if (target_name == tempfile) in install()
383 unlink(tempfile); in install()
[all …]
/openbsd/gnu/usr.bin/perl/cpan/Test-Harness/t/compat/
H A Dsubclass.t25 my $tempfile = "_check_subclass_t.tmp";
26 open TEST, ">$tempfile";
30 END { unlink $tempfile; }
35 = Test::Harness::execute_tests( tests => [$tempfile] );
/openbsd/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/
H A DToRtf.pm14 my($self, $tempfile, $perldoc) = @_;
19 $perldoc->aside( "About to launch <\"$rtf_pager\" \"$tempfile\">\n" );
21 return 1 if system( qq{"$rtf_pager"}, qq{"$tempfile"} ) == 0;
/openbsd/gnu/usr.bin/perl/dist/Time-HiRes/t/
H A Dutime.t6 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" );
33 my ($fh, $filename) = File::Temp::tempfile( "Time-HiRes-utime-XXXXXXXXX" );
118 use File::Temp qw( tempfile );
151 my ($fh, $filename) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
163 my ($fh, $filename) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
175 my ($fh, $filename) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
188 my ($fh1, $filename1) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
189 my ($fh2, $filename2) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
211 my ($fh1, $filename1) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
212 my ($fh2, $filename2) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
/openbsd/gnu/usr.bin/perl/cpan/CPAN-Meta-YAML/t/
H A D12_write.t48 # get a tempfile name to write to
51 my $tempfile = catfile($tempdir, $short_tempfile);
54 ok( CPAN::Meta::YAML->new($c)->write($tempfile),
59 ok( $data = eval { CPAN::Meta::YAML->read( $tempfile ) },
70 ok( $data = eval { CPAN::Meta::YAML->read_string( slurp($tempfile, ":utf8") ) },
/openbsd/bin/pax/
H A Dpax.c99 char *tempfile; /* tempfile to use for mkstemp(3) */ variable
247 tempfile = malloc(tdlen + 1 + sizeof(_TFILE_BASE)); in main()
248 if (tempfile == NULL) { in main()
253 memcpy(tempfile, tmpdir, tdlen); in main()
254 tempbase = tempfile + tdlen; in main()
/openbsd/gnu/usr.bin/perl/cpan/Digest/t/
H A Dbase.t63 my ( $fh, $tempfile ) = tempfile( UNLINK => 1 );
68 open( my $fh2, $tempfile ) || die;
/openbsd/usr.bin/rcs/
H A Dco.c538 char *tempfile; in checkout_file_has_diffs() local
542 tempfile = NULL; in checkout_file_has_diffs()
553 (void)xasprintf(&tempfile, "%s/diff.XXXXXXXXXX", rcs_tmpdir); in checkout_file_has_diffs()
554 buf_write_stmp(bp, tempfile); in checkout_file_has_diffs()
558 ret = diffreg(dst, tempfile, bp, D_FORCEASCII); in checkout_file_has_diffs()
561 unlink(tempfile); in checkout_file_has_diffs()
562 free(tempfile); in checkout_file_has_diffs()
/openbsd/gnu/usr.bin/perl/cpan/OpenBSD-Unveil/t/
H A DOpenBSD-Unveil.t89 "Unveiled tempfile r";
106 ok -w $tmpfile, "Stat says we can write to tempfile";
117 ok open(my $rfh, '<', $tmpfile), "Opened tempfile for reading";
118 ok read( $rfh, my $data, 64), "Read from tempfile";
119 ok close($rfh), "Closed tempfile";
124 "Unable to 'open' tempfile for writing";
/openbsd/gnu/usr.bin/perl/cpan/version/t/
H A Dcoretests.pm223 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
268 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
290 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
304 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
319 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
399 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
434 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
455 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
/openbsd/gnu/usr.bin/perl/t/win32/
H A Dfs.t18 my $tmpfile1 = tempfile();
19 my $tmpfile2 = tempfile();
/openbsd/gnu/usr.bin/perl/ext/SDBM_File/t/
H A Dprep.t9 my ($dirfh, $dirname) = tempfile(UNLINK => 1);
10 my ($pagfh, $pagname) = tempfile(UNLINK => 1);

1234567