From 7a4c67b1db84181b0a33fd370faf9a9d9f94a9dd Mon Sep 17 00:00:00 2001
From: Lubos Kolouch <lubos@kolouch.net>
Date: Wed, 2 Oct 2019 18:18:13 +0200
Subject: Adding test case for Challenge 1

---
 challenge-028/lubos-kolouch/perl5/ch-1.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/challenge-028/lubos-kolouch/perl5/ch-1.pl b/challenge-028/lubos-kolouch/perl5/ch-1.pl
index e1982c24a4..b4e342ff4d 100644
--- a/challenge-028/lubos-kolouch/perl5/ch-1.pl
+++ b/challenge-028/lubos-kolouch/perl5/ch-1.pl
@@ -44,4 +44,10 @@ my $file = shift || die 'Usage: ch-1.pl filename';
 
 say get_file_status($file);
 
+# TESTS
 
+use Test::More;
+
+is (get_file_status('ch-1.pl'),'The file content is ascii.');
+
+done_testing;
-- 
cgit