Home
last modified time | relevance | path

Searched refs:join (Results 1 – 25 of 336) sorted by relevance

12345678910>>...14

/mirbsd/src/gnu/usr.bin/perl/t/op/
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 ':', $1 .. $2/e;
96 print join(":","-4".."0") eq "-4:-3:-2:-1:0" ? "ok 16\n" : "not ok 16\n";
[all …]
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(':', split(/:/,'1:2:3:4:5:6:::', 999));
[all …]
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 '', 'a', undef, $s, 'b', undef, $s, 'c';
[all …]
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('',1,2,(3,4),5) eq '12345'){print "ok 23\n";}else{print "not ok 23\n";}
[all …]
Darray.t17 is(join('',@ary), '12345');
22 is(join('',@ary), '1234');
26 is(join('',@ary), '12345');
32 is(join('',@ary), '1234');
42 $r = join(',', $#foo, @foo);
45 $r = join(',', $#foo, @foo);
48 $r = join(',', $#foo, @foo);
53 $r = join(',', $#bar, @bar);
56 $r = join(',', $#bar, @bar);
59 $r = join(',', $#bar, @bar);
[all …]
Drepeat.t55 is(join('', @x x 4), '3333', '@x x Y');
56 is(join('', (@x) x 4), '123123123123', '(@x) x Y');
57 is(join('', (@x,()) x 4), '123123123123', '(@x,()) x Y');
58 is(join('', (@x,1) x 4), '1231123112311231', '(@x,1) x Y');
59 is(join(':', () x 4), '', '() x Y');
60 is(join(':', (9) x 4), '9:9:9:9', '(X) x Y');
61 is(join(':', (9,9) x 4), '9:9:9:9:9:9:9:9', '(X,X) x Y');
62 is(join('', (split(//,"123")) x 2), '123123', 'split and x');
64 is(join('', @x x -12), '', '@x x -12');
65 is(join('', (@x) x -14), '', '(@x) x -14');
[all …]
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)) {
Dsort.t44 $x = join('', sort @harry);
49 $x = join('', sort( Backwards @harry));
54 $x = join('', sort( Backwards_stacked @harry));
59 $x = join('', sort @george, 'to', @harry);
91 $x = join('', sort $sub @harry);
97 $x = join('', sort $sub @harry);
229 $x = join('', sort { $a cmp $b } @harry);
233 $x = join('', sort { $b cmp $a } @harry);
245 $x = join('', sort { $a cmp $b } @harry);
249 $x = join('', sort { $b cmp $a } @harry);
[all …]
Dtiearray.t158 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 …]
/mirbsd/src/gnu/usr.bin/perl/lib/Text/
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(";", @words) eq qq(4;3;2;1;0);
[all …]
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;
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/t/
DmPUSH.t38 ok(join(':', &Devel::PPPort::mPUSHp()), "one:two:three");
39 ok(join(':', &Devel::PPPort::mPUSHn()), "0.5:-0.25:0.125");
40 ok(join(':', &Devel::PPPort::mPUSHi()), "-1:2:-3");
41 ok(join(':', &Devel::PPPort::mPUSHu()), "1:2:3");
43 ok(join(':', &Devel::PPPort::mXPUSHp()), "one:two:three");
44 ok(join(':', &Devel::PPPort::mXPUSHn()), "0.5:-0.25:0.125");
45 ok(join(':', &Devel::PPPort::mXPUSHi()), "-1:2:-3");
46 ok(join(':', &Devel::PPPort::mXPUSHu()), "1:2:3");
/mirbsd/src/gnu/usr.bin/perl/ext/threads/t/
Djoin.t46 my $retval = threads->create(sub { return ("hi") })->join();
51 my @retval = $thread->join();
55 my $retval = threads->create(sub { return [1] })->join();
59 my $retval = threads->create(sub { return { foo => "bar" }})->join();
67 })->join();
77 my $retval = threads->create(sub { return $_[0]}, \$test)->join();
83 my $retval = threads->create(sub { return $_[0]}, \$test)->join();
96 })->join();
107 print "# subthread: \$0 = $0\n" } )->join;
138 $t->join;
[all …]
Dthread.t27 print $t->join();
37 $t->join();
46 $ret->join;
51 $t->join();
60 $t->join();
75 $t->join->join;
116 ok($thr1->join());
117 ok($thr2->join());
118 ok($thr3->join());
119 ok($thr4->join());
[all …]
Dbasic.t57 threads->create('test1','bar')->join();
63 threads->create('test2',[{foo => 'bar'}])->join();
68 threads->create('test3',1)->join();
88 threads->create('test6')->join();
96 threads->create('test5')->join();
104 threads->create('test7')->join;
112 threads->create('test8')->join;
122 threads->create(sub { ok(17, threads->tid() == 9, "And tid be 9 here too") })->join();
134 })->join();
/mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/t/
Dav_refs.t50 })->join();
53 threads->create(sub { $av[0] = "hihi" })->join();
57 threads->create(sub { @$av = () })->join();
58 threads->create(sub { ok(9, scalar @$av == 0)})->join();
59 … unshift(@$av, threads->create(sub { my @array; share(@array); return \@array})->join())})->join();
61 threads->create(sub { push @{$av->[0]}, \@av })->join();
62 threads->create(sub { $av[0] = 'testtest'})->join();
63 threads->create(sub { ok(11, $av->[0]->[0]->[0] eq 'testtest')})->join();
Dwait.t117 threads->create(\&cw)->join;
139 $thr->join;
140 ok(6,1, "$test: join completed");
148 threads->create(\&ctw, 5)->join;
172 $thr->join;
173 ok(6,1, "$test: join completed");
181 threads->create(\&ctw_fail, 3)->join;
189 threads->create(\&ctw_fail, -60)->join;
245 threads->create(\&cw2)->join;
267 $thr->join;
[all …]
Dcond.t53 $tr->join;
70 $tr->join;
100 $tr->join;
130 $tr->join;
145 $tr2->join();
158 $tr->join();
170 $tr2->join();
183 $tr->join();
216 $th->join if $th;
219 threads->new(\&broad, 3)->join;
[all …]
Dav_simple.t47 threads->create(sub { $foo[0] = "thread1" })->join;
55 threads->create(sub { push @foo, "thread2" })->join();
63 threads->create(sub { unshift @foo, "thread3" })->join();
67 threads->create(sub { my $foo = pop @foo; ok(22, $foo == 3, "Check pop works in a thread")})->join(…
73 })->join();
91 threads->create(sub { $ref->[0] = "thread4"})->join();
94 threads->create(sub { @foo = () })->join();
104 threads->create(sub { delete($foo[0])})->join();
116 threads->create(sub { @foo[0,1] = ("hej","hop") })->join();
Dshared_attr.t41 threads->create(sub { $foo = "bar" })->join();
45 threads->create(sub { ok($test_count++, shift(@foo) eq "foo")})->join();
49 threads->create(sub { $foo{bar} = "foo" })->join();
52 threads->create(sub { $foo{array} = \@foo})->join();
53 threads->create(sub { push @{$foo{array}}, "baz"})->join();
/mirbsd/src/gnu/usr.bin/perl/ext/Thread/
Dthr5005.t28 print $t->join;
35 $t->join;
45 $ret->join;
50 $t->join;
56 $t->join;
70 $t->join->join;
128 $thr1->join;
129 $thr2->join;
130 $thr3->join;
/mirbsd/src/gnu/usr.bin/perl/t/comp/
Dproto.t47 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 …]
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
DmPUSH108 ok(join(':', &Devel::PPPort::mPUSHp()), "one:two:three");
109 ok(join(':', &Devel::PPPort::mPUSHn()), "0.5:-0.25:0.125");
110 ok(join(':', &Devel::PPPort::mPUSHi()), "-1:2:-3");
111 ok(join(':', &Devel::PPPort::mPUSHu()), "1:2:3");
113 ok(join(':', &Devel::PPPort::mXPUSHp()), "one:two:three");
114 ok(join(':', &Devel::PPPort::mXPUSHn()), "0.5:-0.25:0.125");
115 ok(join(':', &Devel::PPPort::mXPUSHi()), "-1:2:-3");
116 ok(join(':', &Devel::PPPort::mXPUSHu()), "1:2:3");
/mirbsd/src/gnu/usr.bin/perl/lib/
DDirHandle.t27 ok(+(join("\0", @a) eq join("\0", @b)));
31 cmp_ok(+(join("\0", @b), 'eq', join("\0", @c)));
/mirbsd/src/gnu/usr.bin/perl/ext/Errno/t/
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";

12345678910>>...14