[Commits] [SCM] clawsker branch, master, updated. 1.3.4-5-gae20ba0

[mones at claws-mail.org]

The branch, master has been updated
       via  ae20ba009f29b6abe41d0e3171216ad395272a83 (commit)
      from  6cf8025ab01f4474be885c5df1e4a54a4e29b078 (commit)

Summary of changes:
 t/get_toolkit_versions.t | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 t/get_toolkit_versions.t


- Log -----------------------------------------------------------------
commit ae20ba009f29b6abe41d0e3171216ad395272a83
Author: Ricardo Mones <ricardo at mones.org>
Date:   Tue Dec 14 01:34:05 2021 +0100

    Add test for get_toolkit_versions

diff --git a/t/get_toolkit_versions.t b/t/get_toolkit_versions.t
new file mode 100644
index 0000000..8f7918a
--- /dev/null
+++ b/t/get_toolkit_versions.t
@@ -0,0 +1,26 @@
+use 5.010_000;
+use strict;
+use utf8;
+use Test::More tests => 10;
+
+require_ok ('Clawsker');
+
+use Clawsker;
+
+ok ( defined &Clawsker::get_toolkit_versions, 'has function' );
+
+my $versions = Clawsker::get_toolkit_versions;
+
+is ( ref $versions, 'HASH', 'returns a hash ref' );
+
+is ( scalar keys %$versions, 6, 'with 6 elements' );
+
+my $regex = qr{^\d+\.\d+(\.\d+)?$};
+
+like ( $versions->{'glib'}, $regex, 'has glib version' );
+like ( $versions->{'glib-r'}, $regex, 'has glib-r version' );
+like ( $versions->{'glib-b'}, $regex, 'has glib-b version' );
+
+like ( $versions->{'gtk'}, $regex, 'has gtk version' );
+like ( $versions->{'gtk-r'}, $regex, 'has gtk-r version' );
+like ( $versions->{'gtk-b'}, $regex, 'has gtk-b version' );

-----------------------------------------------------------------------


hooks/post-receive
-- 
Hidden preferences editor for Claws Mail