Skip to content

Instantly share code, notes, and snippets.

@dmaestro
Created January 3, 2018 15:24
Show Gist options
  • Save dmaestro/5366f1426c2295e521b491e76989d31b to your computer and use it in GitHub Desktop.
Save dmaestro/5366f1426c2295e521b491e76989d31b to your computer and use it in GitHub Desktop.
Rakudo* 2017.10 failure
#!/usr/bin/env perl6
use v6;
use MONKEY-SEE-NO-EVAL;
# "project_gbclient_t_controller_signup_process_purchase_validation_07-wordpress_blog_title_t"
my @raw-names = $*IN.lines.grep({ / ^ '"' <[ \w - ]>+ '"' $ / })».EVAL;
.say for @raw-names;
# cat 185_valid_test_names.txt | MVM_SPESH_DISABLE= bin/unquote_via_eval.p6 | wc -l
# 108 [ non-repeatable count ]
# cat 185_valid_test_names.txt | MVM_SPESH_DISABLE=1 bin/unquote_via_eval.p6 | wc -l
# 185
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment