| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | sort.t | 13 sort { for ($_ = 0;; $_++) {} } @a;
14 sort { while(1) {} } @a;
15 sort { while(1) { last; } } @a;
16 sort { while(0) { last; } } @a;
41 $x = join('', sort @harry);
46 $x = join('', sort( Backwards @harry));
51 $x = join('', sort( Backwards_stacked @harry));
56 $x = join('', sort @george, 'to', @harry);
84 @b = sort {$a <=> $b;} @a;
88 $x = join('', sort
[all...] |
| H A D | readdir.t | 34 @R = sort @D;
35 @G = sort <op/*.t>;
36 @G = sort <:op:*.t> if $^O eq 'MacOS';
|
| H A D | runlevel.t | 63 @a = sort { last ; } @a;
167 @a = sort foo @a;
177 @a = sort foo @a;
189 @y = sort { $a <=> $b } @y;
195 @x = sort { &sortfn($a, $b) } @x;
202 @a = sort { eval('die("no way")') , $a <=> $b} @a;
210 @a = sort { last foo; } @a;
263 @a = sort foo @a;
299 @a = sort { exit(0) } @a;
|
| H A D | groups.t | 138 $gr1 = join(' ', grep(!$did{$_}++, sort split(' ', join(' ', @gr))));
140 $gr1 = join(' ', sort @gr);
148 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
158 $gr2 = join(' ', grep(!$basegroup{$_}++, sort split(' ',$groups)));
|
| /osnet-11/usr/src/lib/libldap4/misc/ |
| H A D | ldaptemplates.conf | 85 # sort - order the values of this attribute
93 item cis,ro,sort "Also Known As" cn
99 item cis,sort "Title" title
105 item dn,sort "See Also" seeAlso
150 item cis,sort "Also Known As" cn
151 item cis,sort "Title" title
162 item dn,sort "See Also" seeAlso
211 item cis,sort "Also Known As" cn
216 item dn,required,sort "Owner" owner
218 item dn,sort "Se
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/ |
| H A D | tiefeatures.t | 44 print ((join '', sort keys %s) eq 'xy' ? "ok 7\n" : "not ok 7\n");
45 print ((join '', sort keys %l) eq '' ? "ok 8\n" : "not ok 8\n");
48 print ((join '', sort keys %s) eq 'xy' ? "ok 9\n" : "not ok 9\n");
49 print ((join '', sort keys %l) eq 'pq' ? "ok 10\n" : "not ok 10\n");
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | DirHandle.t | 22 @a = sort <*>;
26 @b = sort($first, (grep {/^[^.]/} $dot->read));
30 @c = sort grep {/^[^.]/} $dot->read;
|
| H A D | sort.t | 3 # This tests the behavior of sort() under the different 'use sort' forms.
28 use Test::More tests => @TestSizes * 2 # sort() tests
31 + 3 # tests for sort::current
32 + 3; # tests for "defaults" and "no sort"
34 # Generate array of specified size for testing sort.
99 # Test sort on arrays of various sizes (set up in @TestSizes)
111 @sorted = sort { substr($a, 0, $RootWidth)
122 @sorted = sort { substr($a, $RootWidth)
140 # Currently 'use sort' modifie
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
| H A D | Abbrev.t | 18 my $r = join ':', sort keys %x;
40 my $s = join ':', sort keys %y;
44 $s = join ':', sort keys %$y;
50 $s = join ':', sort keys %y;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
| H A D | chomp.t | 52 for my $enc (sort keys %mbchars) {
54 my @char = (sort(keys %{ $mbchars{$enc} }),
55 sort(values %{ $mbchars{$enc} }));
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
| H A D | safesort.t | 15 $safe->permit_only(qw(:default sort));
26 { package Pkg; sub p_sort { return sort { "$a" <=> $b } @_; } }
27 sub l_sort { return sort { "$a" <=> $b } @_; }
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/base/t/ |
| H A D | fields.t | 24 is_deeply( [sort keys %Foo::FIELDS],
25 [sort qw(_no Pants who _up_yours what)]
36 is_deeply( [sort &show_fields('Foo', fields::PUBLIC)],
37 [sort qw(Pants who what)]);
38 is_deeply( [sort &show_fields('Foo', fields::PRIVATE)],
39 [sort qw(_no _up_yours)]);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| H A D | max.t | 34 my @b = sort { $a <=> $b } @a;
|
| H A D | min.t | 34 my @b = sort { $a <=> $b } @a;
|
| H A D | maxstr.t | 34 my @b = sort { $a cmp $b } @a;
|
| H A D | minstr.t | 34 my @b = sort { $a cmp $b } @a;
|
| H A D | shuffle.t | 39 print "not " if join("",sort { $a <=> $b } @r) ne join("",@in);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Errno/t/ |
| H A D | Errno.t | 37 $s1 = join(",",sort keys(%!));
38 $s2 = join(",",sort @Errno::EXPORT_OK);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | io_dir.t | 35 @a = sort <*>;
39 @b = sort($first, (grep {/^[^.]/} $dot->read));
43 @c = sort grep {/^[^.]/} $dot->read;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/utils/port/ |
| H A D | CheckIn | 79 foreach my $p (sort(keys(%file))) {
80 foreach my $f (sort(keys(%{$file{$p}}))) {
119 foreach my $p (sort(keys(%file))) {
120 foreach my $f (sort(keys(%{$file{$p}}))) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
| H A D | b.t | 52 ok( join('', sort @syms) eq join('', sort keys %Subs), 'all symbols found' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Env/t/ |
| H A D | env.t | 93 @FOO = sort @FOO;
94 @BAR = sort @BAR;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | strap.t | 38 for my $line ( sort keys %comments ) {
105 for my $header ( sort keys %headers ) {
174 for my $line ( sort keys %tests ) {
210 for my $line ( sort keys %bails ) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/ |
| H A D | is.t | 85 foreach my $s (sort keys %classes) {
86 foreach my $f (sort keys %functions) {
|
| /osnet-11/usr/src/lib/libcurses/screen/ |
| H A D | keyname.sh | 51 } | sort -n | awk '
|