| /onnv-gate/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 ':', $1 .. $2/e;
96 print join(":","-4".."0") eq "-4:-3:-2:-1:0" ? "ok 16\n" : "not ok 16\n";
[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(':', split(/:/,'1:2:3:4:5:6:::', 999));
[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 '', 'a', undef, $s, 'b', undef, $s, 'c';
[all …]
|
| 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(',', $#bar, @bar);
[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('', (@x) x -14), '', '(@x) x -14');
[all …]
|
| 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('',1,2,(3,4),5) eq '12345'){print "ok 23\n";}else{print "not ok 23\n";}
[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 | tiearray.t | 158 print "not " unless join(':',@ary) eq '3:2:1';
168 print "not " unless join(':',@ary) eq '1:2:3';
172 print "not " unless join(':',@thing) eq '1:2:3';
177 print "not " unless join(':',@thing) eq '1:2:3';
185 print "not " unless join(':',@ary) eq '1:2';
191 print "not " unless join(':',@ary) eq '1:2:4';
204 print "not " unless join(':',@ary) eq '1:7:4';
211 print "not " unless join(':',@ary) eq '7:4';
219 print "not " unless join(':',@ary) eq '5:6:7:4';
223 print "not " unless join(':',@ary) eq '1:2:3';
[all …]
|
| 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)));
|
| 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 | sort.t | 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);
88 $x = join('', sort $sub @harry);
94 $x = join('', sort $sub @harry);
226 $x = join('', sort { $a cmp $b } @harry);
230 $x = join('', sort { $b cmp $a } @harry);
242 $x = join('', sort { $a cmp $b } @harry);
246 $x = join('', sort { $b cmp $a } @harry);
[all …]
|
| /onnv-gate/usr/src/lib/libsqlite/test/ |
| H A D | join.test | 18 # $Id: join.test,v 1.11 2003/09/27 13:39:40 drh Exp $
23 do_test join-1.1 {
32 do_test join-1.2 {
42 do_test join-1.3 {
47 do_test join-1.3.1 {
52 do_test join-1.4 {
57 do_test join-1.5 {
62 do_test join-1.6 {
67 do_test join-1.7 {
73 do_test join-1.8 {
[all …]
|
| H A D | join4_28.test | 17 # clauses that restrict the scope of the left term of the join.
37 select * from t1 left outer join t2 on t1.a=t2.x where t2.z='ok'
42 select * from t1 left outer join t2 on t1.a=t2.x and t2.z='ok'
50 select * from t1 left outer join t2 on t1.a=t2.x where t2.z='ok'
55 select * from t1 left outer join t2 on t1.a=t2.x and t2.z='ok'
60 select * from t1 left outer join t2 on t1.a=t2.x where t2.z>='ok'
65 select * from t1 left outer join t2 on t1.a=t2.x and t2.z>='ok'
70 select * from t1 left outer join t2 on t1.a=t2.x where t2.z IN ('ok')
75 select * from t1 left outer join t2 on t1.a=t2.x and t2.z IN ('ok')
|
| /onnv-gate/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(";", @words) eq qq(4;3;2;1;0);
|
| 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;
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| H A D | proto.t | 47 print "# \@_ = (",join(",",@_),")\n";
74 print "# \@_ = (",join(",",@_),")\n";
104 print "# \@_ = (",join(",",@_),")\n";
129 print "# \@_ = (",join(",",@_),")\n";
143 print "# \@_ = (",join(",",@_),")\n";
170 print "# \@_ = (",join(",",@_),")\n";
187 print "# \@_ = (",join(",",@_),")\n";
214 print "# \@_ = (",join(",",@_),")\n";
231 print "# \@_ = (",join(",",@_),")\n";
262 print "# \@_ = (",join(",",@_),")\n";
[all …]
|
| /onnv-gate/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);
|
| /onnv-gate/usr/src/lib/libast/common/misc/ |
| H A D | optjoin.c | 69 opt_info.state->join = 0; in optjoin()
74 opt_info.state->join++; in optjoin()
81 opt_info.state->join = 0; in optjoin()
88 opt_info.state->join = 0; in optjoin()
114 opt_info.state->join = 0; in optjoin()
|
| /onnv-gate/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)));
|
| H A D | locale.t | 462 debug "# w = ", join("",@Alnum_), "\n";
497 debug "# UPPER = ", join("", sort keys %UPPER ), "\n";
498 debug "# lower = ", join("", sort keys %lower ), "\n";
499 debug "# BoThCaSe = ", join("", sort keys %BoThCaSe), "\n";
515 debug "# Neoalpha = ", join("",@Neoalpha), "\n";
527 my $word = join('', @Neoalpha);
579 $lesser = join('', @Alnum_[$from..$to]);
583 $greater = join('', @Alnum_[$from..$to]);
816 my $f = join(" ", @f);
853 my $s = join(" ", @s);
[all …]
|
| /onnv-gate/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";
|
| /onnv-gate/usr/src/tools/onbld/Scm/ |
| H A D | Backup.py | 139 fp.write('%s\n' % '\n'.join(outnodes))
428 fpath = self.ws.repo.join(elt)
454 wfile = self.ws.repo.join(fname)
516 fpath = self.ws.repo.join(elt.name)
539 fpath = self.ws.repo.join(mfile)
551 path = os.path.join(root, elt)
596 if os.path.exists(os.path.join(self.backupdir, 'latest')):
597 generation = os.readlink(os.path.join(self.backupdir, 'latest'))
624 backupbase = os.path.join(home, 'cdm.backup')
626 backupdir = os.path.join(backupbase, name)
[all …]
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | io_dir.t | 40 ok(+(join("\0", @a) eq join("\0", @b)));
44 ok(+(join("\0", @b) eq join("\0", @c)));
|
| /onnv-gate/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";}
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/t/ |
| H A D | socketpair.t | 105 $expect = join '', @right;
109 $expect = join '', @left;
159 $expect = join '', @gripping;
196 $total = join '', @right;
202 $total = join '', @left;
235 $total = join '', @gripping;
|