Searched refs:files (Results 1 - 25 of 208) sorted by relevance

123456789

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/
H A D01open.t3 use vars qw(@files);
5 @files = qw(foo bar baz quux Foo_Bar);
13 1 while unlink @files;
19 {# Test 1: that we can open files
20 for my $path ( @files ){
24 print "not " unless scalar map({ -f } @files) == scalar @files;
H A D03append.t3 use vars qw(@files);
5 @files = qw(foo bar baz quux Foo_Bar);
13 1 while unlink @files;
20 for my $path ( @files ){
24 for my $path ( @files ){
28 for my $path ( @files ){
33 print 'not ' unless scalar grep(/\b3$/m, @cat) == scalar @files;
36 for my $path ( @files ){
40 for my $path ( @files ){
45 print 'not ' unless scalar grep(/\b33$/m, @cat) == scalar @files;
[all...]
H A D02maxopen.t4 use vars qw(@files);
6 @files = qw(foo bar baz quux);
15 1 while unlink @files;
19 for my $path ( @files ){
25 for my $path ( @files ){
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/
H A Diofileb.d51 @files[pid, execname, args[2]->fi_pathname] = sum(args[0]->b_bcount);
56 normalize(@files, 1024);
58 printa("%6d %-12.12s %@6d %s\n", @files);
H A Diofile.d69 @files[pid, execname, args[2]->fi_pathname] = sum(this->elapsed);
76 normalize(@files, 1000);
78 printa("%6d %-12.12s %@8d %s\n", @files);
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Disk/
H A Diofileb.d51 @files[pid, execname, args[2]->fi_pathname] = sum(args[0]->b_bcount);
56 normalize(@files, 1024);
58 printa("%6d %-12.12s %@6d %s\n", @files);
H A Diofile.d69 @files[pid, execname, args[2]->fi_pathname] = sum(this->elapsed);
76 normalize(@files, 1000);
78 printa("%6d %-12.12s %@8d %s\n", @files);
/osnet-11/usr/src/lib/libdhcpsvc/modules/
H A DMakefile29 SUBDIRS = binfiles files files0
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DShell.t44 my @files = directory('*.*');
45 ok(@files, 'Quoted arguments');
47 ok(eq_array(\@files, [$so->directory('*.*')]), 'object method');
52 my @files = dir('*.*');
53 ok(@files, 'Quoted arguments');
55 ok(eq_array(\@files, [$so->dir('*.*')]), 'object method');
60 my @files = ls('*');
61 ok(@files, 'Quoted arguments');
63 ok(eq_array(\@files, [$so->ls('*')]), 'object method');
H A Dstrict.t50 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
51 shift @files ;
53 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
54 if @files % 2 ;
55 while (@files > 2) {
56 my $filename = shift @files ;
57 my $code = shift @files ;
64 shift @files ;
65 $prog = shift @files ;
[all...]
H A Dsubs.t31 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
32 shift @files ;
34 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
35 if @files % 2 ;
36 while (@files > 2) {
37 my $filename = shift @files ;
38 my $code = shift @files ;
44 shift @files ;
45 $prog = shift @files ;
[all...]
H A Dwarnings.t38 my $files = 0;
54 $files++;
62 print "1.." . (scalar(@prgs)-$files) . "\n";
80 my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ;
81 shift @files ;
83 scalar(@files) . "[" . join("%%%%", @files) ."]\n"
84 if @files % 2 ;
85 while (@files > 2) {
86 my $filename = shift @files ;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dglob.t13 map { $files{lc($_)}++ } <op/*>;
14 map { delete $files{"op/$_"} } split /[\s\n]/, `dir /b /l op & dir /b /l /ah op 2>nul`,
17 map { $files{lc($_)}++ } <[.op]*>;
18 map { s/;.*$//; delete $files{lc($_)}; } split /[\n]/, `directory/noheading/notrailing/versions=1 [.op]`,
22 map { $files{$_}++ } <:op:*>;
23 map { delete $files{$_} } split /[\s\n]/, `echo :op:\xc5`;
26 map { $files{$_}++ } <op/*>;
27 map { delete $files{$_} } split /[\s\n]/, `echo op/*`;
29 if (keys %files) {
30 print "not ok 1\t(",join(' ', sort keys %files),"\
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A Dtest-harness.t40 files => 1,
56 files => 1,
74 files => 1,
90 files => 1,
108 files => 1,
124 files => 1,
140 files => 1,
156 files => 1,
173 files => 1,
191 files
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DInstalled.t137 # files
151 eval { $ei->files('badmod') };
152 like( $@, qr/badmod is not installed/,'files() should croak given bad modname');
153 eval { $ei->files('goodmod', 'badtype' ) };
154 like( $@, qr/type must be/,'files() should croak given bad type' );
156 my @files;
160 @files = $ei->files('goodmod', 'doc', $Config{man1direxp});
161 is( scalar @files, 1, '... should find doc file under given dir' );
162 is( (grep { /foo$/ } @files),
[all...]
H A DManifest.t16 # these files help the test run
20 # these files are needed for the module itself
42 chomp( my @files = <M> );
44 return @files;
66 # Just in case any old files were lying around.
85 is( @list, 2, 'check files in MANIFEST' );
86 ok( ! ExtUtils::Manifest::filecheck(), 'no additional files in directory' );
116 is( join( ' ', @skipped ), 'MANIFEST.SKIP', 'listed skipped files' );
131 my $files = maniread();
132 is( keys %$files,
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Temp/t/
H A Dtempfile.t9 # Will need to check that all files were unlinked correctly
12 # Arrays containing list of dirs/files to test
13 my (@files, @dirs, @still_there);
15 # And a test for files that should still be around
25 # Loop over an array hoping that the files dont exist
26 END { foreach (@files) { ok( !(-e $_) )} }
33 # in revers order and we need to check the files *after* File::Temp
53 push(@files, $tempfile);
79 push(@files, $tempfile);
89 push(@files,
[all...]
H A Dobject.t8 # Will need to check that all files were unlinked correctly
11 # Arrays containing list of dirs/files to test
12 my (@files, @dirs, @still_there);
14 # And a test for files that should still be around
24 # Loop over an array hoping that the files dont exist
25 END { foreach (@files) { ok( !(-e $_), "File $_ should not be there" )} }
32 # in reverse order and we need to check the files *after* File::Temp
45 push(@files, "$fh");
70 push(@files, "$fh");
78 push(@files, "
[all...]
/osnet-11/usr/src/lib/gss_mechs/mech_krb5/include/krb5/
H A Dk5-plugin.h89 struct plugin_file_handle **files; member in struct:plugin_dir_handle
91 #define PLUGIN_DIR_INIT(P) ((P)->files = NULL)
92 #define PLUGIN_DIR_OPEN(P) ((P)->files != NULL)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dnargv.t59 my @files = map { "scratch$_" } @_;
60 return wantarray ? @files : $files[-1];
/osnet-11/usr/src/lib/libdhcpsvc/modules/files0/
H A DMakefile.com38 SRCS = $(LOCOBJS:%.o=../%.c) $(UTILDIR)/util.c ../../files/general.c
49 pics/general.o: ../../files/general.c
50 $(COMPILE.c) -o $@ ../../files/general.c
/osnet-11/usr/src/lib/libsecdb/
H A Dsvc-rbac29 files='/etc/user_attr /etc/security/auth_attr /etc/security/exec_attr
50 for f in $files; do
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo4.pl4 : Purpose(to store max storage capacity for files)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A Dinstmodsh17 f [all|prog|doc] - List installed files of a given type
19 v - Validate the .packlist - check for missing files
34 my @files;
35 if (eval { @files = $Inst->files($module, $class); })
37 print("$class files in $module are:\n ",
38 join("\n ", @files), "\n");
64 $fh->print(join("\n", $Inst->files($module)));
82 print("$module has no missing files\n");
H A DCommand.pm24 perl -MExtUtils::Command -e cat files... > destination
27 perl -MExtUtils::Command -e touch files...
28 perl -MExtUtils::Command -e rm_f files...
33 perl -MExtUtils::Command=chmod -e chmod mode files...
41 perl -MExtUtils::Command -e some_command some files to work on
45 perl -MExtUtils::Command -e 'some_command qw(some files to work on)'
63 Concatenates all files mentioned on command line to STDOUT.
86 =item rm_rf files....
98 =item rm_f files....
100 Removes files (eve
[all...]

Completed in 62 milliseconds

123456789