Searched refs:join (Results 1 - 25 of 219) sorted by relevance

123456789

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Drange.t12 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 Dunshift.t10 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 Dnothr5005.t29 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 Dlist.t8 $_ = 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 Drepeat.t47 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 Djoin.t6 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 Dsplit.t17 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 Dpush.t24 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 Darray.t16 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 Dtaint_warn8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dshuffle.t36 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 DDirHandle.t27 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 Dtiefeatures.t44 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 DErrno.t37 $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 DParseWords.t27 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 DAbbrev.t18 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 Doptjoin.c69 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 Dfor.t10 $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 Dmod.t20 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 Ddnlcsnoop.d63 self->join = *(char *)(args[0]->v_path + this->len - 1) == '/' ?
85 self->path, self->join, self->name);
89 self->join = 0;
H A Dpathopens.d73 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 Ddnlcsnoop.d63 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 Dpathopens.d73 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 D30_defer.t72 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 Dtaint.t27 eval { $a = join("",@a), kill 0; 1 };

Completed in 73 milliseconds

123456789