Searched full:join (Results 1 - 25 of 580) sorted by relevance

1234567891011>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo_hashdir.pl5 print join "\n", keys %dot;
9 print join "\n", keys %dot;
/osnet-11/usr/src/lib/libsqlite/test/
H A Djoin.test18 # $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 {
44 SELECT * FROM t1 NATURAL JOIN t2;
47 do_test join-1.3.1 {
49 SELECT * FROM t2 NATURAL JOIN t1;
52 do_test join-1.4 {
54 SELECT * FROM t1 INNER JOIN t2 USING(b,c);
57 do_test join
[all...]
H A Djoin2.test54 t1 NATURAL JOIN t2 NATURAL JOIN t3
60 t1 NATURAL JOIN t2 NATURAL LEFT OUTER JOIN t3
66 t1 NATURAL LEFT OUTER JOIN t2 NATURAL JOIN t3
72 t1 NATURAL LEFT OUTER JOIN (t2 NATURAL JOIN t3)
H A Djoin4_28.test17 # 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')
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Devel/
H A Dswitchd.pm4 sub DB { print join(",", caller), ";" }
/osnet-11/usr/src/lib/libpp/common/
H A DBUGS3 01/22/93 gsf "" join drops trailing newline of last token in last file
5 02/29/92 gsf "" join bombs if next line is #ident
/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/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 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 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 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 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 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 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 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/
H A DTieIn.pm9 $$self .= join '', @_;
H A DTieOut.pm9 $$self .= join('', @_);
/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/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/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/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/cmd/sendmail/db/include/
H A Ddb_join.h15 * Joins use a join cursor that is similar to a regular DB cursor except
21 DBC **j_curslist; /* Array of cursors in the join. */
/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/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;

Completed in 104 milliseconds

1234567891011>>