usev6

$ gdb ./perl6-p
GNU gdb (GDB) 7.4.1-debian
Copyright (C) 2012 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>...

usev6

$ cat foo.t 
my @primes := 2, 3, 5, -> $p { ($p+2, $p+4 ... &is-prime-beta)[*-1] } ... *;
sub is-prime-beta($n) { $n %% none @primes ...^  * > sqrt $n }

my @primes-beta = (2 .. 200).grep({is-prime-beta($_)});

$ gdb ./perl6-p
GNU gdb (GDB) 7.4.1-debian
Copyright (C) 2012 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>

usev6

not ok 98 - chained colonpairs in parens build a list of pairs

# Failed test 'chained colonpairs in parens build a list of pairs'
# at t/spec/S02-types/pair.rakudo.jvm line 329
# expected: 'a  2 b     3 c     4'
Code object coerced to string (please use .gist or .perl to do that)  in sub cmp_ok at lib/Test.pm:145

#  matcher: 'infix:<eqv>'
#      got: 'a  4 b     3 c     4'
not ok 99 - chained colonpairs in curlies construct hashes with more than one element

usev6

$ make
/usr/home/christian/perl6-roast-data/rakudo.parrot/install/bin/nqp-p tools/build/gen-cat.nqp parrot src/Perl6/Metamodel/BOOTSTRAP.nqp  src/Perl6/Metamodel/EXPORTHOW.nqp > gen/parrot/BOOTSTRAP.nqp
/usr/home/christian/perl6-roast-data/rakudo.parrot/install/bin/nqp-p --target=pir --output=src/gen/perl6-bootstrap.pir --encoding=utf8  --vmlibs=perl6_ops gen/parrot/BOOTSTRAP.nqp
Null PMC access in get_bool()
current instr.: 'compose' pc 29042 (src/gen/perl6-metamodel.pir:12426) (gen/parrot/Metamodel.nqp:2697)
called from Sub '' pc 3191 ((file unknown):848) (gen/parrot/BOOTSTRAP.nqp:316)
called from Sub '' pc 392 ((file unknown):187)
called from Sub 'BEGIN block' pc 6306 (gen/parrot/stage2/NQP.pir:2293) (gen/parrot/stage2/NQP.nqp:372)
called from Sub 'run_begin_block' pc 7679 (gen/parrot/stage2/NQP.pir:2815) (gen/parrot/stage2/NQP.nqp:584)
called from Sub 'statement_prefix:sym<BEGIN>' pc 119545 (gen/parrot/stage2/NQP.pir:40686) (gen/parrot/stage2/NQP.nqp:2485)

usev6

use v6;

use Test;

plan 25;

## see S03 "Binary hyper operators"
{
    my @a = (1, 4, 9);
    @a>>++;

usev6

diff --git a/src/core/Any.pm b/src/core/Any.pm
index 6c4a831..a0086ed 100644
--- a/src/core/Any.pm
+++ b/src/core/Any.pm
@@ -794,10 +794,14 @@ sub SLICE_ONE ( \SELF, $one, $array, *%adv ) is hidden_from_backtrace {
         elsif %a.exists_key('p') {            # :!delete?:p(0|1):*
             my $p := %a.delete_key('p');
             if !%a {                            # :!delete?:p(0|1)
-                !$p | $ex(SELF,$one)
-                  ?? RWPAIR($one,

usev6

$ panda look Slang::SQL
==> Fetching Slang::SQL
==> Entering /usr/home/christian/perl6-roast-data/rakudo.moar/panda/.panda-work/1420660139_1 with /bin/sh

$ p6prove t/01_basic.t 
t/01_basic.t ... Cannot locate native library 'libsqlite3.so'
  in method postcircumfix:<( )> at lib/NativeCall.pm6:130
  in method connect at lib/DBDish/SQLite.pm6:221
  in method connect at lib/DBIish.pm6:9
  in block <unit> at t/01_basic.t:11

usev6

$ panda look Cache::Memcached 
==> Fetching Cache::Memcached
==> Entering /usr/home/christian/perl6-roast-data/rakudo.moar/panda/.panda-work/1420661219_1 with /bin/sh

$ perl6 --target=mbc --output=foo lib/Cache/Memcached.pm 
useless use of 'is rw' on $!debug  in any  at src/Perl6/World.nqp:1844

useless use of 'is rw' on $!no_rehash  in any  at src/Perl6/World.nqp:1844

useless use of 'is rw' on %!stats  in any  at src/Perl6/World.nqp:1844

usev6

$ cat subst-mutate-numeric.t
use v6;
use Test;

plan 10;

my $foo = 70;
my $match = $foo.subst-mutate(7, 2);
is $foo, 20, 'can use subst-mutate with variable of type Int';
is $match.Str, 7, 'matched text is correct';

usev6

use v6;
use Test;
plan 1;

my $repl-input = 'my Int $t=4; $t.say;
$t.say';

my $cmd = $*DISTRO.is-win
    ?? "echo $repl-input | $*EXECUTABLE"
    !! "echo '$repl-input' | $*EXECUTABLE";