This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
expand DOS-like table (was Re: test
[perl5.git] / t / op / do.t
CommitLineData
8d063cd8
LW
1#!./perl
2
79072805 3# $RCSfile: do.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:45 $
378cc40b 4
8d063cd8
LW
5sub foo1
6{
7 print $_[0];
8 'value';
9}
10
11sub foo2
12{
6d4ff0d2 13 shift;
8d063cd8
LW
14 print $_[0];
15 $x = 'value';
16 $x;
17}
18
c18f6c02 19print "1..20\n";
8d063cd8
LW
20
21$_[0] = "not ok 1\n";
22$result = do foo1("ok 1\n");
23print "#2\t:$result: eq :value:\n";
551cd33c
JH
24if ($result eq 'value') { print "ok 2\n"; } else { print "not ok 2\n"; }
25if ($_[0] eq "not ok 1\n") { print "ok 3\n"; } else { print "not ok 3\n"; }
8d063cd8
LW
26
27$_[0] = "not ok 4\n";
28$result = do foo2("not ok 4\n","ok 4\n","not ok 4\n");
29print "#5\t:$result: eq :value:\n";
551cd33c
JH
30if ($result eq 'value') { print "ok 5\n"; } else { print "not ok 5\n"; }
31if ($_[0] eq "not ok 4\n") { print "ok 6\n"; } else { print "not ok 6\n"; }
8d063cd8
LW
32
33$result = do{print "ok 7\n"; 'value';};
34print "#8\t:$result: eq :value:\n";
551cd33c 35if ($result eq 'value') { print "ok 8\n"; } else { print "not ok 8\n"; }
378cc40b
LW
36
37sub blather {
38 print @_;
39}
40
41do blather("ok 9\n","ok 10\n");
42@x = ("ok 11\n", "ok 12\n");
43@y = ("ok 14\n", "ok 15\n");
44do blather(@x,"ok 13\n",@y);
df739378
JH
45
46unshift @INC, '.';
47
48if (open(DO, ">$$.16")) {
49 print DO "print qq{ok 16\n} if defined wantarray && not wantarray\n";
50 close DO;
51}
52
53my $a = do "$$.16";
54
55if (open(DO, ">$$.17")) {
56 print DO "print qq{ok 17\n} if defined wantarray && wantarray\n";
57 close DO;
58}
59
60my @a = do "$$.17";
61
62if (open(DO, ">$$.18")) {
63 print DO "print qq{ok 18\n} if not defined wantarray\n";
64 close DO;
65}
66
67do "$$.18";
68
c18f6c02
RGS
69eval qq{ do qq(a file that does not exist); };
70print "not " if $@;
71print "ok 19\n";
72
73eval qq{ do uc qq(a file that does not exist); };
74print "not " if $@;
75print "ok 20\n";
76
df739378
JH
77END {
78 1 while unlink("$$.16", "$$.17", "$$.18");
79}