kebab case skip-rest

Even in comments and old fudges.
Raku · Jul 6, 2015 · cf81ec2 · cf81ec2
1 parent 557532a
commit cf81ec2
Show file tree

Hide file tree

Showing 31 changed files with 31 additions and 31 deletions.
diff --git a/README b/README
@@ -45,7 +45,7 @@ VERBs include:
     eval "reason"	# eval the test because it doesn't parse yet
     try "reason"	# try the test because it throws exception
     todo "reason"	# mark "todo" because "not ok" is expected
-    emit code		# insert code (such as "skip_rest();") inline
+    emit code		# insert code (such as "skip-rest();") inline
 
 All fudged tests return an exit code of 1 by default, so the test harness
 will mark it as "dubious" even if all the tests supposedly pass.

diff --git a/S01-perl-5-integration/array.t b/S01-perl-5-integration/array.t
@@ -5,7 +5,7 @@ use Test;
 plan 17;
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/basic.t b/S01-perl-5-integration/basic.t
@@ -3,7 +3,7 @@ use Test;
 plan 15;
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/class.t b/S01-perl-5-integration/class.t
@@ -5,7 +5,7 @@ use Test;
 plan(3);
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/exception_handling.t b/S01-perl-5-integration/exception_handling.t
@@ -6,7 +6,7 @@ use Test;
 BEGIN {
 plan 3;
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest('no perl 5 support'); exit;
+    skip-rest('no perl 5 support'); exit;
 }
 }
 

diff --git a/S01-perl-5-integration/hash.t b/S01-perl-5-integration/hash.t
@@ -5,7 +5,7 @@ use Test;
 plan(6);
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/import.t b/S01-perl-5-integration/import.t
@@ -10,7 +10,7 @@ P5 module import test
 =end pod
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/method.t b/S01-perl-5-integration/method.t
@@ -5,7 +5,7 @@ use Test;
 plan(13);
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/return.t b/S01-perl-5-integration/return.t
@@ -5,7 +5,7 @@ use Test;
 plan(2);
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/roundtrip.t b/S01-perl-5-integration/roundtrip.t
@@ -5,7 +5,7 @@ use Test;
 plan(5);
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/strings.t b/S01-perl-5-integration/strings.t
@@ -3,7 +3,7 @@ use Test;
 plan 6;
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S01-perl-5-integration/subs.t b/S01-perl-5-integration/subs.t
@@ -3,7 +3,7 @@ use Test;
 plan 2;
 
 unless (try { EVAL("1", :lang<perl5>) }) {
-    skip_rest;
+    skip-rest;
     exit;
 }
 

diff --git a/S03-binding/arrays.t b/S03-binding/arrays.t
@@ -17,7 +17,7 @@ plan 47;
   try { @array[1] := $var };
   is @array[1], "d", "basic binding of an array element (1)";
   unless @array[1] eq "d" {
-    skip_rest "Skipping binding of array elements tests (not yet implemented in the normal runcore)";
+    skip-rest "Skipping binding of array elements tests (not yet implemented in the normal runcore)";
     exit;
   }
 

diff --git a/S03-binding/hashes.t b/S03-binding/hashes.t
@@ -16,7 +16,7 @@ plan 39;
   try { %hash<b> := $var };
   is %hash<b>, "d", "basic binding of a hash element (1)";
   unless %hash<b> eq "d" {
-    skip_rest "Skipping binding of hash elements tests (not yet implemented in the normal runcore)";
+    skip-rest "Skipping binding of hash elements tests (not yet implemented in the normal runcore)";
     exit;
   }
 

diff --git a/S04-exception-handlers/catch.t b/S04-exception-handlers/catch.t
@@ -44,7 +44,7 @@ lives-ok { do {die 'blah'; CATCH {default {}}}; }, 'do block with CATCH {default
 #L<S04/"Exception handlers"/An exception handler is just a switch statement>
 
 #unless EVAL 'Exception.new' {
-#    skip_rest "No Exception objects"; exit;
+#    skip-rest "No Exception objects"; exit;
 #}
 
 {

diff --git a/S05-modifier/exhaustive.t b/S05-modifier/exhaustive.t
@@ -111,7 +111,7 @@ regex adj   { time }
 regex art   { an? }
 regex prep  { like }
 
-skip_rest("XXX - infinite loop"); exit;
+skip-rest("XXX - infinite loop"); exit;
 
 ok("time   flies   like    an     arrow" ~~
     m:s:ex/^ [ <adj>  <subj> <verb> <art> <obj>

diff --git a/S05-modifier/ii.t b/S05-modifier/ii.t
@@ -3,7 +3,7 @@ use Test;
 
 plan 21;
 
-#?kp6 emit skip_rest("unimpl");
+#?kp6 emit skip-rest("unimpl");
 
 #L<S05/Modifiers/"The :ii">
 

diff --git a/S05-modifier/perl5_0.t b/S05-modifier/perl5_0.t
@@ -9,7 +9,7 @@ plan 24;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ m:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_1.t b/S05-modifier/perl5_1.t
@@ -7,7 +7,7 @@ plan 100;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_2.t b/S05-modifier/perl5_2.t
@@ -7,7 +7,7 @@ plan 100;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_3.t b/S05-modifier/perl5_3.t
@@ -7,7 +7,7 @@ plan 100;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_4.t b/S05-modifier/perl5_4.t
@@ -7,7 +7,7 @@ plan 100;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_5.t b/S05-modifier/perl5_5.t
@@ -7,7 +7,7 @@ plan 102;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_6.t b/S05-modifier/perl5_6.t
@@ -7,7 +7,7 @@ plan 104;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_7.t b/S05-modifier/perl5_7.t
@@ -7,7 +7,7 @@ plan 100;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_8.t b/S05-modifier/perl5_8.t
@@ -7,7 +7,7 @@ plan 103;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S05-modifier/perl5_9.t b/S05-modifier/perl5_9.t
@@ -7,7 +7,7 @@ plan 84;
 #L<S05/Modifiers/"The extended syntax">
 
 unless "a" ~~ rx:P5/a/ {
-  skip_rest "skipped tests - P5 regex support appears to be missing";
+  skip-rest "skipped tests - P5 regex support appears to be missing";
   exit;
 }
 

diff --git a/S16-filehandles/chmod.t b/S16-filehandles/chmod.t
@@ -29,7 +29,7 @@ We really need the stat() function in order to test this.
 plan 19;
 
 if $*DISTRO.is-win {
-    skip_rest "file tests not fully available on win32";
+    skip-rest "file tests not fully available on win32";
     exit;
 };
 

diff --git a/S24-testing/1-basic.t b/S24-testing/1-basic.t
@@ -157,6 +157,6 @@ flunk('This test failed', :todo(1));
 
 skip('skip this test for now');
 skip('skip 3 more tests for now', 3);
-skip_rest('skipping the rest');
+skip-rest('skipping the rest');
 
 # vim: expandtab shiftwidth=4 ft=perl6
diff --git a/S32-io/IO-Socket-INET.t b/S32-io/IO-Socket-INET.t
@@ -39,7 +39,7 @@ given $*DISTRO.name {
         $netstat_pat = rx{ State .+? [ ^^ .+? ':' (\d+) .+? ]+ $ }; # same as linux
     }
     default {
-        skip_rest('Operating system not yet supported');
+        skip-rest('Operating system not yet supported');
         exit 0;
     }
     # TODO: other operating systems; *BSD etc.	 

diff --git a/S32-io/io-spec-unix.t b/S32-io/io-spec-unix.t
@@ -189,7 +189,7 @@ is $Unix.rel2abs('../t4','/t1/t2/t3'),        '/t1/t2/t3/../t4', "rel2abs: ('../
 is $Unix.rel2abs('/t1','/t1/t2/t3'),          '/t1',             "rel2abs: ('/t1','/t1/t2/t3') -> '/t1'";
 
 if $*DISTRO.name ~~ any(<mswin32 os2 netware symbian dos cygwin>) {
-	skip_rest 'Unix on-platform tests'
+	skip-rest 'Unix on-platform tests'
 }
 else {
 	isa-ok $*SPEC, IO::Spec::Unix, "unix: loads correct module";