Skip to content

Instantly share code, notes, and snippets.

@Tux
Created April 11, 2016 07:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Tux/047f8c52a3f167d14bde3e3da7fc8547 to your computer and use it in GitHub Desktop.
Save Tux/047f8c52a3f167d14bde3e3da7fc8547 to your computer and use it in GitHub Desktop.
No core dump
```
$ cat 43_binary.t
#!perl6
use v6;
use Slang::Tuxic;
use Text::CSV;
use Test;
for (^32) {
my $b = Buf.new (61, ^2048 .map ({ 256.rand.Int }));
my $csv = Text::CSV.new;
ok ((my Str $u = $b.decode ("utf8-c8")), "decode");
ok ($csv.combine (1, $u, 3), "Combine");
ok ((my $s = $csv.string), "String");
ok ($csv.parse ($s), "Parse");
is ($csv.fields[1].encode ("utf-c8"), $b, "Data");
}
$ p6 43_binary.t
ok 1 - decode
ok 2 - Combine
Segmentation fault
```
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment