← Back to branch summary

~ubuntu-branches/ubuntu/precise/rakudo/precise

« back to all changes in this revision

Viewing changes to t/00-parrot/09-pir.t

  • Committer: Bazaar Package Importer
  • Author(s): Alessandro Ghedini
  • Date: 2011-05-17 11:31:09 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20110517113109-rmfir654u1axbpt4
Tags: 0.1~2011.04-1
http://bugs.debian.org/601862
http://bugs.debian.org/585762
http://bugs.debian.org/577502
http://bugs.debian.org/584498
* New upstream release (Closes: #601862, #585762, #577502)
* New maintainer
* Switch to 3.0 (quilt) format
* Update dependencies (Closes: #584498)
* Update debian/copyright to lastest DEP5 revision
* Do not generate/install perl6 manpage (now done by the build system)
* Enable tests
* Bump Standards-Version to 3.9.2 (no changes needed)
* Do not install extra LICENSE files and duplicated docs
* Remove debian/clean (no more needed)
* Add Vcs-* fields in debian/control
* Rewrite (short) description
* Update upstream copyright years
* Upload to unstable

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/00-parrot/09-pir.t
4
4
 
5
5
use v6;
6
6
 
7
 
say '1..4';
 
7
say '1..3';
8
8
 
9
9
## inline directly
10
 
q:PIR { say 'ok 1' };
 
10
Q:PIR { say 'ok 1' };
11
11
 
12
12
## assigned to a variable
13
 
my $a = q:PIR { %r = box 'ok 2' };
 
13
my $a = Q:PIR { %r = box 'ok 2' };
14
14
say $a;
15
15
 
16
16
## within a subroutine
17
17
sub foo($x) {
18
 
    q:PIR {
 
18
    Q:PIR {
19
19
        $P0 = find_lex '$x'
20
20
        say $P0
21
21
    }
22
22
}
23
23
foo('ok 3');
24
24
 
25
 
## as the result of a return
26
 
sub bar() {
27
 
    return q:PIR { %r = box 'ok 4' };
28
 
}
29
 
say bar();
30
25