Refactor comments and tests

kfly8 · Aug 14, 2024 · 649b8c1 · 649b8c1
1 parent 469d961
commit 649b8c1
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 5 deletions.
diff --git a/lib/Syntax/Keyword/Assert.pm b/lib/Syntax/Keyword/Assert.pm
@@ -38,6 +38,7 @@ sub apply {
    Carp::croak "Unrecognised import symbols @{[ keys %syms ]}" if keys %syms;
 }
 
+# called from Assert.xs
 sub _croak {
     goto &Carp::croak;
 }

diff --git a/t/01_assert.t b/t/01_assert.t
@@ -9,7 +9,7 @@ use Syntax::Keyword::Assert;
 subtest 'Test `assert` keyword with STRICT enabled' => sub {
     like dies {
         assert { 0 };
-    }, qr/Assertion failed/;
+    }, qr/\AAssertion failed/;
 
     ok lives {
         assert { 1 };
@@ -25,9 +25,17 @@ subtest 'Test `assert` keyword with STRICT enabled' => sub {
         $hello->('world');
     };
 
-    ok dies {
+    like dies {
         $hello->(undef);
-    };
+    }, qr/\AAssertion failed/;
+
+    like dies {
+        assert {
+            my $x = 1;
+            my $y = 2;
+            $x + $y == 100;
+        };
+    }, qr/\AAssertion failed/, 'assert block with multiple statements';
 };
 
 done_testing;
diff --git a/t/10-integration/signatures.t b/t/10-integration/signatures.t
@@ -1,7 +1,7 @@
 use Test2::V0;
-use Test2::Require::Perl 'v5.38';
+use Test2::Require::Perl 'v5.36';
 
-use v5.38;
+use feature qw(signatures);
 
 BEGIN {
     $ENV{PERL_STRICT} = 1;