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
ok 1 - Async listen on bogus hostname | |
not ok 2 - Async connect to unavailable server breaks promise | |
# Failed test 'Async connect to unavailable server breaks promise' | |
# at t/spec/S32-io/IO-Socket-Async.t line 19 | |
# expected: 'Broken' | |
# got: 'Kept' | |
ok 3 - Async connect to available server keeps promise | |
Unhandled exception in code scheduled on thread 4 | |
address already in use |
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
$ ./rakudo-m --target=QAST -e 'say "a" ~~ / <:General_Category("Ll")> /;' > a.qast | |
$ ./rakudo-m --target=QAST -e 'say "a" ~~ / <:General_Category("L")> /;' > b.qast | |
$ diff -c a.qast b.qast | |
*** /tmp/a.qast Mon Apr 22 20:42:20 2024 | |
--- /tmp/b.qast Mon Apr 22 20:42:32 2024 | |
*************** | |
*** 45,55 **** | |
- QAST::Op(call) | |
- QAST::BVal(1) |
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
#!/usr/bin/env raku | |
use v6.*; | |
unit sub MAIN(:$runs = 5, :$volume = 100, :$bad-packages = False); | |
use String::CRC32; | |
use NativeCall; | |
constant LIB = "./zig-out/lib/crc"; | |
sub hash_crc32(Str) returns uint32 is native(LIB) { * } |
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 Raylib::Bindings; | |
constant screen-width = 500; | |
constant screen-height = 620; | |
constant drop-speed = 0.333; | |
constant cell-size = 30; | |
constant num-rows = 20; | |
constant num-columns = 10; |
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
===> Searching for missing dependencies: Distribution::Builder::MakeFromJSON | |
===> Searching for missing dependencies: System::Query | |
===> Searching for missing dependencies: JSON::Fast | |
===> Building: Raylib::Bindings:ver<0.0.7>:auth<zef:vushu> | |
[Raylib::Bindings] Failed to open file /usr/local/include/raylib.h: No such file or directory | |
[Raylib::Bindings] in sub generate-bindings at /Users/longwalker/code/raku/z.others/raylib-raku/lib/Raylib/Generator.rakumod (Raylib::Generator) line 10 | |
[Raylib::Bindings] in sub configure at configure.raku line 15 | |
[Raylib::Bindings] in sub MAIN at configure.raku line 43 | |
[Raylib::Bindings] in block <unit> at configure.raku line 3 | |
[Raylib::Bindings] Actually thrown at: |
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
# Subtest: Block with POST phaser block | |
# -> { | |
# POST { | |
# $post = $_ | |
# }(); | |
# $result | |
# } | |
not ok 1 - deparse | |
# Failed test 'deparse' | |
# at /home/longwalker/code/raku/z.others/rakudo/t/12-rakuast/statement-phaser.rakutest line 1471 |
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
#!/usr/bin/env raku | |
sub MAIN($file-a, $file-b) { | |
my $set-a = $file-a.IO.lines; | |
say "{$set-a.elems} passing tests in $file-a"; | |
my $set-b = $file-b.IO.lines; | |
say "{$set-b.elems} passing tests in $file-b"; | |
# Symmetric difference doesn't account for what is missing from where.. | |
# we may pass tests in A that fail in B, but also tests in B that pass in B but fail in 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
my @a = <no> xx 103; # Golfed value.. any list longer than 102 elements is affected | |
my $x; @a.map: { $x++ }; | |
$x #=> 102 | |
# note this: | |
my $x; @a.map: { $x++ }; $x #=> 103 |
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.d; | |
use lib <t/packages/>; | |
use Test; | |
use Test::Helpers; | |
plan 10; | |
subtest "When refinement is an expression value", { | |
plan 3; |
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
token type_declarator:sym<enum> { | |
# <sym><.kok> | |
:my $*IN_DECL := 'enum'; | |
# [ | |
# | <longname> | |
# | <variable> | |
# | <?> | |
# ] | |
{ $*IN_DECL := '' } | |
# <.ws> |
NewerOlder