From d827c6cf1631209f5042a9d1d8a7ecc24223c8a0 Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sat, 27 Apr 2024 23:06:40 +0200
Subject: Adding upstream version 13.11.4.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 t/buildsystems/load-bs.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 t/buildsystems/load-bs.pl

(limited to 't/buildsystems/load-bs.pl')

diff --git a/t/buildsystems/load-bs.pl b/t/buildsystems/load-bs.pl
new file mode 100755
index 0000000..aeb5ea8
--- /dev/null
+++ b/t/buildsystems/load-bs.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Debian::Debhelper::Dh_Buildsystems;
+
+buildsystems_init();
+my $system = $ENV{'TEST_DH_SYSTEM'};
+my $step = $ENV{'TEST_DH_STEP'};
+my $bs = load_buildsystem($system, $step);
+if (defined $bs) {
+	print 'NAME=', $bs->NAME(), "\n";
+	print $_, "=", (defined $bs->{$_}) ? $bs->{$_} : 'undef', "\n"
+	    foreach (sort keys %$bs);
+}
+
-- 
cgit v1.2.3