s/lives_ok/lives-ok/g

Author: lizmat

S01-perl-5-integration/array.t

@@ -64,7 +64,7 @@ is($p5array.my_exists(10), +(@array[10]:exists), 'nonexists fail');
 is($p5array.fetch(3)+0, @array[3], 'fetch');
 
 my $match = 0;
-lives_ok {
+lives-ok {
     $match = ?($retarray.[3] ~~ @array[3]);
 }, 'can retro fetch';
 ok $match, 'retro fetch';

S01-perl-5-integration/class.t

@@ -10,7 +10,7 @@ unless (try { EVAL("1", :lang<perl5>) }) {
 }
 
 {
-    lives_ok {
+    lives-ok {
         EVAL q|
             use Digest::MD5:from<Perl5>;
             my $d = Digest::MD5.new;

S01-perl-5-integration/exception_handling.t

@@ -13,7 +13,7 @@ unless (try { EVAL("1", :lang<perl5>) }) {
 use Carp:from<Perl5>;
 
 my $err;
-lives_ok({ try { Carp.croak() }; $err = $! }, "Perl 5 exception (die) caught");
+lives-ok({ try { Carp.croak() }; $err = $! }, "Perl 5 exception (die) caught");
 like($err.Str, rx:P5/Carp/, "Exception is propagated to Perl 6 land");
 
 EVAL(q[
@@ -33,7 +33,7 @@ sub test { "1" }
 
 my $foo = EVAL("Foo->new",:lang<perl5>);
 try { $foo.error };
-lives_ok( {
+lives-ok( {
     my $err = $!;
     $err.payload.test;
 }, "Accessing Perl5 method doesn't die");

S01-perl-5-integration/hash.t

@@ -59,7 +59,7 @@ my $rethash = $p5hash.hash;
 my @keys = %hash.keys.sort;
 my @p5keys;
 try {
-    @p5keys = $p5hash.my_keys; # this doesn't even pass lives_ok ??
+    @p5keys = $p5hash.my_keys; # this doesn't even pass lives-ok ??
     @p5keys .= sort;
 };
 

S02-lexical-conventions/comments.t

@@ -169,7 +169,7 @@ plan 51;
 #   delimiter quoting>
 {
     my $a;
-    lives_ok { EVAL '$a = q{ 32 }' }, 'sanity check';
+    lives-ok { EVAL '$a = q{ 32 }' }, 'sanity check';
     is $a, ' 32 ', 'sanity check';
 }
 
@@ -183,12 +183,12 @@ plan 51;
 #?niecza todo
 {
     # RT #70752
-    lives_ok { EVAL "#=======\n#=======\nuse v6;" }, 
+    lives-ok { EVAL "#=======\n#=======\nuse v6;" }, 
       "pragma use after single line comments";
 }
 
 # L<S02/Multiline Comments/POD sections may be>
-lives_ok { EVAL q{{
+lives-ok { EVAL q{{
 
 my $outerVal = EVAL(
     q{my $var = 1;
@@ -208,7 +208,7 @@ is $outerVal, "bar", '=begin comment without =cut parses to whitespace in code';
 
 
 # L<S02/Multiline Comments/"single paragraph comments">
-lives_ok { EVAL q{{
+lives-ok { EVAL q{{
 
 my $outerVal = EVAL(
     q{10 +
@@ -222,7 +222,7 @@ is $outerVal, 11, 'Single paragraph Pod parses to whitespace in code';
 }} }, 'Single paragraph Pod eval throws no error';
 
 #?niecza todo
-lives_ok { EVAL q{{
+lives-ok { EVAL q{{
 
 my $outerVal = EVAL(
     q{20 +

S02-lexical-conventions/minimal-whitespace.t

@@ -35,7 +35,7 @@ throws-like { EVAL '$o. whatever(5)' },
   X::Obsolete,
   'whitespace is not allowed after . before method';
 
-lives_ok { EVAL 'my @rt80330; [+] @rt80330' },
+lives-ok { EVAL 'my @rt80330; [+] @rt80330' },
   'a [+] with whitespace works';
 throws-like  { EVAL 'my @rt80330; [+]@rt80330' },
   X::Syntax::Confused,

S02-lexical-conventions/one-pass-parsing.t

@@ -5,16 +5,16 @@ plan 5;
 
 # L<S02/"One-pass parsing">
 
-lives_ok { EVAL 'regex { <[ } > ]> }; 1' },
+lives-ok { EVAL 'regex { <[ } > ]> }; 1' },
   "can parse non-backslashed curly and right bracket in cclass";
 
 # RT #74988
 {
-    lives_ok { EVAL 'sub if() { "#foo" }; say if();' },
+    lives-ok { EVAL 'sub if() { "#foo" }; say if();' },
       "Can call sub if()";
     dies-ok { EVAL 'sub if() { "#foo" }; say if ;' },
       "Calling sub if without parens parsefails due to no-arg say";
-    lives_ok { EVAL 'sub if() { "#foo" }; say if;' },
+    lives-ok { EVAL 'sub if() { "#foo" }; say if;' },
       "Calling sub if okay parens as long as not followed by whitespace";
     dies-ok { EVAL 'say "OK" if+1' },
       "Using keyword if fails if not followed by whitespace";

S02-lexical-conventions/unicode.t

@@ -8,56 +8,56 @@ plan 44;
 
 # Unicode variables
 # english ;-)
-lives_ok {my $foo; sub foo {}; 1}, "ascii declaration"; #OK not used
+lives-ok {my $foo; sub foo {}; 1}, "ascii declaration"; #OK not used
 is (do {my $bar = 2; sub id ($x) { $x }; id($bar)}), 2, "evaluation";
 
 # umlauts
-lives_ok {my $übervar; sub fü {}; 1}, "umlauts declaration"; #OK not used
+lives-ok {my $übervar; sub fü {}; 1}, "umlauts declaration"; #OK not used
 is (do {my $schloß = 2; sub öok ($x) { $x }; öok($schloß)}), 2, "evaluation";
 
 # monty python
-lives_ok {my $møøse; sub bïte {}; 1}, "a møøse once bit my sister"; #OK not used
+lives-ok {my $møøse; sub bïte {}; 1}, "a møøse once bit my sister"; #OK not used
 is (do {my $møøse = 2; sub såck ($x) { $x }; såck($møøse)}), 2,
     "møøse bites kan be preti nasti";
 
 # french
-lives_ok {my $une_variable_française; sub blâ {}; 1}, "french declaration"; #OK not used
+lives-ok {my $une_variable_française; sub blâ {}; 1}, "french declaration"; #OK not used
 is (do {my $frénch = 2; sub bléch ($x) { $x }; bléch($frénch)}), 2, "evaluation";
 
 # Some Chinese Characters
-lives_ok {my $一; 1}, "chinese declaration"; #OK not used
+lives-ok {my $一; 1}, "chinese declaration"; #OK not used
 is (do {my $二 = 2; sub 恆等($x) {$x}; 恆等($二)}), 2, "evaluation";
 
 # Tibetan Characters
-lives_ok {my $ཀ; 1}, "tibetan declaration"; #OK not used
+lives-ok {my $ཀ; 1}, "tibetan declaration"; #OK not used
 is (do {my $ཁ = 2; $ཁ}), 2, "evaluation";
 
 # Japanese
-lives_ok {my $い; 1}, "japanese declaration"; #OK not used
+lives-ok {my $い; 1}, "japanese declaration"; #OK not used
 is (do {my $に = 2; $に}), 2, "evaluation";
 
 # arabic
-lives_ok {my $الصفحة ; 1}, "arabic declaration"; #OK not used
+lives-ok {my $الصفحة ; 1}, "arabic declaration"; #OK not used
 is (do {my $الصفحة = 2; $الصفحة}), 2, "evaluation";
 
 # hebrew
-lives_ok {my $פוו; sub לה {}; 1}, "hebrew declaration"; #OK not used
+lives-ok {my $פוו; sub לה {}; 1}, "hebrew declaration"; #OK not used
 is (do {my $באר = 2; sub זהות ($x) { $x }; זהות($באר)}), 2, "evaluation";
 
 # magyar
-lives_ok {my $aáeéiíoóöőuúüű ; 1}, "magyar declaration"; #OK not used
+lives-ok {my $aáeéiíoóöőuúüű ; 1}, "magyar declaration"; #OK not used
 is (do {my $áéóőöúűüí = 42; sub űáéóőöúüí ($óőöú) { $óőöú }; űáéóőöúüí($áéóőöúűüí)}),
        42, "evaluation";
 
 # russian
-lives_ok {my $один; sub раз {}; 1}, "russian declaration"; #OK not used
+lives-ok {my $один; sub раз {}; 1}, "russian declaration"; #OK not used
 is
     (do {my $два = 2; sub идентичный ($x) { $x }; идентичный($два)}),
     2,
     "evaluation";
 
 #?rakudo 2 skip 'VOWEL SIGNs in identifiers; RT #122340'
-lives_ok { my $पहला = 1; }, "hindi declaration";
+lives-ok { my $पहला = 1; }, "hindi declaration";
 is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल($दूसरा) }), 4, "evaluation");
 
 # Unicode subs
@@ -109,35 +109,35 @@ is((do { my $दूसरा = 2; sub टोटल ($x) { $x + 2 }; टोटल
 # L<S02/Unicode Semantics/Perl can count Unicode line and paragraph separators>
 # see also RT #122341
 
-lives_ok { EVAL "\{ 1 \} \x0a \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x0a \{ 1 \}" },
   "Unicode 000A (LINE FEED (LF)) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x0b \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x0b \{ 1 \}" },
   "Unicode 000B (LINE TABULATION) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x0c \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x0c \{ 1 \}" },
   "Unicode 000C (FORM FEED (FF)) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x0d \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x0d \{ 1 \}" },
   "Unicode 000D (CARRIAGE RETURN (CR)) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x85 \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x85 \{ 1 \}" },
   "Unicode 0085 (NEXT LINE (NEL)) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x2028 \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x2028 \{ 1 \}" },
   "Unicode 2028 (LINE SEPARATOR) can terminate lines";
-lives_ok { EVAL "\{ 1 \} \x2029 \{ 1 \}" },
+lives-ok { EVAL "\{ 1 \} \x2029 \{ 1 \}" },
   "Unicode 2029 (PARAGRAPH SEPARATOR) can terminate lines";
 
 # L<S02/Bracketing Characters/If a character is already used>
 
-lives_ok { EVAL "q\x298d test \x298e" },
+lives-ok { EVAL "q\x298d test \x298e" },
   "Unicode open-298d maps to close-298e";
-lives_ok { EVAL "q\x301d test \x301e" },
+lives-ok { EVAL "q\x301d test \x301e" },
   "Unicode open-301d maps to close-301e";
 throws-like { EVAL "q\x301d test \x301f" },
   Exception,
   "Unicode open-301d does not map to close-301f";
-lives_ok { EVAL "q\x2018 test \x2019" },
+lives-ok { EVAL "q\x2018 test \x2019" },
   "Unicode open-2018 maps to to close-2019";
-lives_ok { EVAL "q\x201a test \x2019" },
+lives-ok { EVAL "q\x201a test \x2019" },
   "Unicode open-201a maps to to close-2019";
-lives_ok { EVAL "q\x2018 \x201a test \x2019" },
+lives-ok { EVAL "q\x2018 \x201a test \x2019" },
   "Alternative open-brakets treat their other alternates as non-special";
 
 # vim: ft=perl6 fileencoding=utf-8

S02-literals/autoref.t

@@ -290,11 +290,11 @@ plan 59;
 
 # RT #76462
 {
-    lives_ok { my $a = (\my %h)<a> },
+    lives-ok { my $a = (\my %h)<a> },
         'no Null PMC access when hash indexing a hash ref';
     my %h = ( 'a' => 1, 'b' => 2 );
     my $h_ref = \%h;
-    lives_ok { my $b = $h_ref.{"a"} },
+    lives-ok { my $b = $h_ref.{"a"} },
         'no Null PMC access when trying to hash index a Capture';
 }
 

S02-literals/fmt-interpolation.t

@@ -24,7 +24,7 @@ is(
    'ord of $x is 65',
    'normal scalar variable builtin call as a method'
 );
-lives_ok(sub { $y = "ord of \$x is $x.ord.fmt('%d')" },
+lives-ok(sub { $y = "ord of \$x is $x.ord.fmt('%d')" },
    'fmt and scalar interpolation live');
 is($y, 'ord of $x is 65', 'fmt and scalar interpolation behave well');
 
@@ -34,7 +34,7 @@ is(
    'ord of $x is 65',
    'normal scalar variable builtin call as a method'
 );
-lives_ok(sub { $y = "hex-formatted ord of \$x is {$x.ord().fmt('%x')}" },
+lives-ok(sub { $y = "hex-formatted ord of \$x is {$x.ord().fmt('%x')}" },
    'fmt and code interpolation live');
 is(
    $y,