From ce6763317433ca8509f45bd1d471fb4ad2eeffdd Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Mon, 30 Jan 2023 17:53:22 +0100
Subject: Merging upstream version 3.0.2.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 tests/languages/perl_test.py | 69 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 tests/languages/perl_test.py

(limited to 'tests/languages/perl_test.py')

diff --git a/tests/languages/perl_test.py b/tests/languages/perl_test.py
new file mode 100644
index 0000000..042478d
--- /dev/null
+++ b/tests/languages/perl_test.py
@@ -0,0 +1,69 @@
+from __future__ import annotations
+
+from pre_commit.languages import perl
+from pre_commit.store import _make_local_repo
+from pre_commit.util import make_executable
+from testing.language_helpers import run_language
+
+
+def test_perl_install(tmp_path):
+    makefile_pl = '''\
+use strict;
+use warnings;
+
+use ExtUtils::MakeMaker;
+
+WriteMakefile(
+    NAME => "PreCommitHello",
+    VERSION_FROM => "lib/PreCommitHello.pm",
+    EXE_FILES => [qw(bin/pre-commit-perl-hello)],
+);
+'''
+    bin_perl_hello = '''\
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use PreCommitHello;
+
+PreCommitHello::hello();
+'''
+    lib_hello_pm = '''\
+package PreCommitHello;
+
+use strict;
+use warnings;
+
+our $VERSION = "0.1.0";
+
+sub hello {
+    print "Hello from perl-commit Perl!\n";
+}
+
+1;
+'''
+    tmp_path.joinpath('Makefile.PL').write_text(makefile_pl)
+    bin_dir = tmp_path.joinpath('bin')
+    bin_dir.mkdir()
+    exe = bin_dir.joinpath('pre-commit-perl-hello')
+    exe.write_text(bin_perl_hello)
+    make_executable(exe)
+    lib_dir = tmp_path.joinpath('lib')
+    lib_dir.mkdir()
+    lib_dir.joinpath('PreCommitHello.pm').write_text(lib_hello_pm)
+
+    ret = run_language(tmp_path, perl, 'pre-commit-perl-hello')
+    assert ret == (0, b'Hello from perl-commit Perl!\n')
+
+
+def test_perl_additional_dependencies(tmp_path):
+    _make_local_repo(str(tmp_path))
+
+    ret, out = run_language(
+        tmp_path,
+        perl,
+        'perltidy --version',
+        deps=('SHANCOCK/Perl-Tidy-20211029.tar.gz',),
+    )
+    assert ret == 0
+    assert out.startswith(b'This is perltidy, v20211029')
-- 
cgit v1.2.3