/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | range.t | 12 print join(':',1..5) eq '1:2:3:4:5' ? "ok 1\n" : "not ok 1\n"; 17 print join(':',@foo[$foo[0]..5]) eq '2:c:d:e:6' ? "ok 2\n" : "not ok 2\n"; 20 print join(':',@bar[1..5]) eq ':c:d:e:' ? "ok 3\n" : "not ok 3\n"; 23 print join(':',$a,@bcd[0..2],$e) eq 'a:b:c:d:e' ? "ok 4\n" : "not ok 4\n"; 37 $x = join('','a'..'z'); 44 print "not " unless join(",", @x) eq 45 join(",", map {sprintf "%02d",$_} 9..99); 53 print "not " unless join(",", @y) eq join(",", @x); 81 $x =~ s/(\w)-(\w)/join ' [all...] |
H A D | unshift.t | 10 if (join(' ',@a) eq '0 1 2 3') {print "ok 1\n";} else {print "not ok 1\n";} 12 if (join(' ',@a) eq '3 2 1 0 1 2 3') {print "ok 2\n";} else {print "not ok 2\n";}
|
H A D | nothr5005.t | 29 print "not " unless join('',foo('a', 'b', 'c')) eq 'pqr'; 31 print "not" unless join('',bar('d')) eq 'Dd'; 33 print "not" unless join('',baz('e')) eq 'eE';
|
H A D | list.t | 8 $_ = join(':',@foo); 35 if (join(':',@foo,@bar) eq '1:1') {print "ok 12\n";} else {print "not ok 12\n";} 39 if (join(':',@foo) eq '6') {print "ok 13\n";} else {print "not ok 13\n";} 54 if (join('',@a) eq '123') {print "ok 17\n";} else {print "not ok 17\n";} 57 if (join('',@a) eq '1') {print "ok 18\n";} else {print "not ok 18\n";} 59 if (join('',1,2,(3,4,5)) eq '12345'){print "ok 19\n";}else{print "not ok 19\n";} 60 if (join('',(1,2,3,4,5)) eq '12345'){print "ok 20\n";}else{print "not ok 20\n";} 61 if (join('',(1,2,3,4),5) eq '12345'){print "ok 21\n";}else{print "not ok 21\n";} 62 if (join('',1,(2,3,4),5) eq '12345'){print "ok 22\n";}else{print "not ok 22\n";} 63 if (join('', [all...] |
H A D | repeat.t | 47 is(join('', @x x 4), '3333', '@x x Y'); 48 is(join('', (@x) x 4), '123123123123', '(@x) x Y'); 49 is(join('', (@x,()) x 4), '123123123123', '(@x,()) x Y'); 50 is(join('', (@x,1) x 4), '1231123112311231', '(@x,1) x Y'); 51 is(join(':', () x 4), '', '() x Y'); 52 is(join(':', (9) x 4), '9:9:9:9', '(X) x Y'); 53 is(join(':', (9,9) x 4), '9:9:9:9:9:9:9:9', '(X,X) x Y'); 54 is(join('', (split(//,"123")) x 2), '123123', 'split and x'); 56 is(join('', @x x -12), '', '@x x -12'); 57 is(join('', ( [all...] |
H A D | join.t | 6 if (join(':',@x) eq '1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} 8 if (join('',1,2,3) eq '123') {print "ok 2\n";} else {print "not ok 2\n";} 10 if (join(':',split(/ /,"1 2 3")) eq '1:2:3') {print "ok 3\n";} else {print "not ok 3\n";} 13 $f = join ',', 'b', $f, 'e'; 17 $f = join ',', $f, 'b', 'e'; 21 $f = join $f, 'b', 'e', 'k'; 29 my $r = join ':', $t, 99, $t, 99; 32 $r = join '', $t, 99, $t, 99; 40 my $r = join ':', 'a', undef, $s, 'b', undef, $s, 'c'; 43 my $r = join '', ' [all...] |
H A D | split.t | 17 is(join(';',$a,$b,$c), 'a;b;c'); 20 is(join("$_",@ary), 'aa:b:cc'); 24 is(join(".",@ary), "a.b.c.\n"); 28 is(join(".",@ary), "a.b.c"); 30 $_ = join(':',split(' '," a b\tc \t d ")); 33 $_ = join(':',split(/ */,"foo bar bie\tdoll")); 36 $_ = join(':', 'foo', split(/ /,'a b c'), 'bar'); 40 $_ = join(':', split(' ','1 2 3 4 5 6', 3)); 45 $_ = join(':', split(' ','1 2 3 4 5 6', $x)); 49 $_ = join(' [all...] |
H A D | push.t | 24 if (join(':',@x) eq '1:2:3:1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} 26 if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} 30 if (join(':',@x) eq '1:2:3:1:2:3:4:3') {print "ok 3\n";} else {print "not ok 3\n";} 32 if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 4\n";} else {print "not ok 4\n";} 47 if (join(':',@got) eq join(':',@get) && 48 join(':',@x) eq join(':',@leave)) {
|
H A D | array.t | 16 if (join('',@ary) eq '12345') {print "ok 1\n";} else {print "not ok 1\n";} 21 if (join('',@ary) eq '1234') {print "ok 4\n";} else {print "not ok 4\n";} 25 if (join('',@ary) eq '12345') {print "ok 5\n";} else {print "not ok 5\n";} 30 if (join('',@ary) eq '1234') {print "ok 8\n";} else {print "not ok 8\n";} 40 $r = join(',', $#foo, @foo); 43 $r = join(',', $#foo, @foo); 46 $r = join(',', $#foo, @foo); 51 $r = join(',', $#bar, @bar); 54 $r = join(',', $#bar, @bar); 57 $r = join(',', [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/ |
H A D | taint_warn | 8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | shuffle.t | 36 print "not " if join("",@r) eq join("",@in); 39 print "not " if join("",sort { $a <=> $b } @r) ne join("",@in);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | DirHandle.t | 27 ok(+(join("\0", @a) eq join("\0", @b))); 31 cmp_ok(+(join("\0", @b), 'eq', join("\0", @c)));
|
/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/ext/Errno/t/ |
H A D | Errno.t | 37 $s1 = join(",",sort keys(%!)); 38 $s2 = join(",",sort @Errno::EXPORT_OK); 49 print "# ",join(" ",map { "'$_'" } keys %s1),"\n"; 51 print "# ",join(" ",map { "'$_'" } keys %s2),"\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | ParseWords.t | 27 print "not " unless join(";", @words) eq qq(foo;"bar:foo";zoo zoo;); 33 print "not " unless join(";", @words) eq qq(4; ;3; ;2; ;1; ;0); 40 $result = join('|', parse_line('\s+', 1, $string)); 45 $result = join('|', parse_line('\s+', 0, $string)); 51 $result = join('|', parse_line('\s+', 0, $string)); 84 $result = join('|', parse_line(':', 0, 'foo::0:"":::')); 89 $result = join('|', parse_line(':', 0, ':"0":')); 94 $result = join('|', parse_line(':', 0, ':"' . "\001" . '":')); 103 $result = join('|', parse_line('\s+', 0, $string)); 109 print "not " unless join(";", [all...] |
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/lib/libast/common/misc/ |
H A D | optjoin.c | 69 state->join = 0; 74 state->join++; 81 state->join = 0; 88 state->join = 0; 114 state->join = 0;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | for.t | 10 $y = join(' ', @x); 12 if (join(' ', @x) eq '0 1 2 3 4 5 6 7 8 9 10') { 30 if (join('',@ary) eq '246810') {print "ok 3\n";} else {print "not ok 3\n";}
|
H A D | mod.t | 20 if (join(' ',@x) eq '0 1 2 3 4 5 6 7 8 9 10') { 31 if (join(' ',@y) eq '0 2 4 6 8 10 12 14 16 18 20') {
|
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/ |
H A D | dnlcsnoop.d | 63 self->join = *(char *)(args[0]->v_path + this->len - 1) == '/' ? 85 self->path, self->join, self->name); 89 self->join = 0;
|
H A D | pathopens.d | 73 self->join = *self->file == '/' ? "" : "/"; 74 self->full = strjoin(strjoin(self->dir, self->join), self->file); 80 self->join = 0;
|
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Kernel/ |
H A D | dnlcsnoop.d | 63 self->join = *(char *)(args[0]->v_path + this->len - 1) == '/' ? 85 self->path, self->join, self->name); 89 self->join = 0;
|
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Proc/ |
H A D | pathopens.d | 73 self->join = *self->file == '/' ? "" : "/"; 74 self->full = strjoin(strjoin(self->dir, self->join), self->file); 80 self->join = 0;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
H A D | 30_defer.t | 72 check_contents(join $:, "r0".."r2", "", "r4".."r6", ""); 81 check_contents(join $:, "r0".."r2", "", "r4".."r6", ""); 83 check_contents(join $:, "r0".."r2", "", "r4".."r6", ""); 91 $data = join "$:", map("record$_", 0..7), ""; # records are 8 or 9 bytes long 131 check_contents(join("$:", qw(recordA recordB recordC 137 check_contents(join("$:", qw(recordA recordB recordC 146 check_contents(join("$:", qw(recordA recordB recordC 156 check_contents(join("$:", qw(recordA recordB recordC 164 check_contents(join("$:", qw(recordA recordB recordC 172 check_contents(join(" [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/t/ |
H A D | taint.t | 27 eval { $a = join("",@a), kill 0; 1 };
|