test:Better test skipping.

antononcube · Nov 15, 2023 · a478e11 · a478e11
1 parent 84fc01e
commit a478e11
Show file tree

Hide file tree

Showing 3 changed files with 46 additions and 43 deletions.
diff --git a/t/01-copy-to-clipboard.t b/t/01-copy-to-clipboard.t
@@ -8,17 +8,18 @@ use Test;
 
 plan *;
 
-unless $*DISTRO.name ~~ /macos/ {
-    skip-rest "MacOS specific tests";
-    exit;
-}
+if $*DISTRO.name ~~ /macos/ {
+
+    ## 1
+    my $s1 = "3433";
+    is-deeply copy-to-clipboard($s1), $s1;
 
-## 1
-my $s1 = "3433";
-is-deeply copy-to-clipboard($s1), $s1;
+    ## 2
+    my %h2 = g => 3, b => 565;
+    is-deeply copy-to-clipboard(%h2), %h2;
 
-## 2
-my %h2 = g => 3, b => 565;
-is-deeply copy-to-clipboard(%h2), %h2;
+} else {
+    skip "Only MacOS specific tests.";
+}
 
 done-testing;
diff --git a/t/02-from-clipboard.t b/t/02-from-clipboard.t
@@ -8,24 +8,22 @@ use Test;
 
 plan *;
 
-unless $*DISTRO.name ~~ /macos/ {
-    skip-rest "MacOS specific tests";
-    exit;
-}
 
-## 1
-my $s1 = "3433";
-copy-to-clipboard($s1);
-is paste().trim, $s1;
+if $*DISTRO.name ~~ /macos/ {
+
+    ## 1
+    my $s1 = "3433";
+    copy-to-clipboard($s1);
+    is paste().trim, $s1;
 
-## 2
-my %h2 = g => 3, b => 565;
-copy-to-clipboard(%h2);
-#is paste().trim, %h2.raku;
-is paste().trim, '${:b(565), :g(3)}';
+    ## 2
+    my %h2 = g => 3, b => 565;
+    copy-to-clipboard(%h2);
+    #is paste().trim, %h2.raku;
+    is paste().trim, '${:b(565), :g(3)}';
 
-## 3
-my $s3 = q:to/END/;
+    ## 3
+    my $s3 = q:to/END/;
 my %dictionary = (
     cat    => 'a small domesticated carnivorous mammal',
     dog    => 'a domesticated carnivorous mammal',
@@ -35,7 +33,10 @@ my %dictionary = (
 );
 END
 
-copy-to-clipboard($s3);
-is-deeply paste.trim, $s3.trim;
+    copy-to-clipboard($s3);
+    is-deeply paste.trim, $s3.trim;
+} else {
+    skip "Only MacOS specific tests.";
+}
 
 done-testing;
diff --git a/t/03-synonyms.t b/t/03-synonyms.t
@@ -8,23 +8,20 @@ use Test;
 
 plan *;
 
-unless $*DISTRO.name ~~ /macos/ {
-    skip-rest "MacOS specific tests";
-    exit;
-}
+if $*DISTRO.name ~~ /macos/ {
 
-## 1
-my $s1 = "3433";
-cbcopy($s1);
-is cbpaste().trim, $s1;
+    ## 1
+    my $s1 = "3433";
+    cbcopy($s1);
+    is cbpaste().trim, $s1;
 
-## 2
-my %h2 = g => 3, b => 565;
-cbcopy(%h2);
-is cbpaste().trim, '${:b(565), :g(3)}';
+    ## 2
+    my %h2 = g => 3, b => 565;
+    cbcopy(%h2);
+    is cbpaste().trim, '${:b(565), :g(3)}';
 
-## 3
-my $s3 = q:to/END/;
+    ## 3
+    my $s3 = q:to/END/;
 my %dictionary = (
     cat    => 'a small domesticated carnivorous mammal',
     dog    => 'a domesticated carnivorous mammal',
@@ -34,7 +31,11 @@ my %dictionary = (
 );
 END
 
-cbcopy($s3);
-is-deeply cbpaste.trim, $s3.trim;
+    cbcopy($s3);
+    is-deeply cbpaste.trim, $s3.trim;
+
+} else {
+    skip "Only MacOS specific tests.";
+}
 
 done-testing;