This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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/>... |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use v6; | |
use Test; | |
plan 25; | |
## see S03 "Binary hyper operators" | |
{ | |
my @a = (1, 4, 9); | |
@a>>++; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ 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'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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"; |
OlderNewer