From b888de2f536d38187ab32a7c53a9a9c46634173c Mon Sep 17 00:00:00 2001
From: Ivan Bessarabov <ivan@bessarabov.ru>
Date: Sun, 12 Nov 2023 09:01:56 +0000
Subject: [PATCH] utf8 in tests/tests.t

---
 tests/tests.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tests/tests.t b/tests/tests.t
index 1c6476d..73df459 100644
--- a/tests/tests.t
+++ b/tests/tests.t
@@ -1,6 +1,8 @@
 
 use strict;
 use warnings FATAL => 'all';
+use utf8;
+use open qw(:std :utf8);
 
 use Cwd qw(cwd);
 use Path::Tiny;
@@ -17,7 +19,7 @@ sub main {
         my $test_dir = $cwd . '/' . $dir;
 
         if (-e $test_dir . '/cmd_and_expected_output') {
-            my $cmd_and_expected_output = path($test_dir . '/cmd_and_expected_output')->slurp();
+            my $cmd_and_expected_output = path($test_dir . '/cmd_and_expected_output')->slurp_utf8();
             my ($cmd, $expected_output) = split /\n/, $cmd_and_expected_output, 2;
 
             if ($cmd =~ /\$ (.*)/) {