[Commits] [SCM] clawsker branch, master, updated. 1.3.4-8-ge7597f6

[mones at claws-mail.org]

The branch, master has been updated
       via  e7597f602bd0198c3f7f34e7496d7f5962c08cdd (commit)
      from  f73282657d39226051c464fe4f0aa1f9420650be (commit)

Summary of changes:
 README                |  1 +
 t/get_screen_height.t | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 t/get_screen_height.t


- Log -----------------------------------------------------------------
commit e7597f602bd0198c3f7f34e7496d7f5962c08cdd
Author: Ricardo Mones <ricardo at mones.org>
Date:   Sat Jan 15 18:29:39 2022 +0100

    Add test for get_screen_height()

diff --git a/README b/README
index e718a44..a867085 100644
--- a/README
+++ b/README
@@ -39,6 +39,7 @@ Dependencies
   - Test suite:
 
   Test::Exception - https://metacpan.org/pod/Test::Exception
+  Test::DeedsDisplay - https://metacpan.org/pod/Test::NeedsDisplay
 
 Install
 -------
diff --git a/t/get_screen_height.t b/t/get_screen_height.t
new file mode 100644
index 0000000..78d581d
--- /dev/null
+++ b/t/get_screen_height.t
@@ -0,0 +1,19 @@
+use 5.010_000;
+use strict;
+use utf8;
+use Test::NeedsDisplay;
+use Test::More tests => 3;
+use Gtk3;
+
+require_ok ('Clawsker');
+
+use Clawsker;
+
+Gtk3->init;
+
+ok ( defined &Clawsker::get_screen_height, 'has function' );
+
+my $height = Clawsker::get_screen_height();
+
+ok ( $height > 0, "has $height pixels" );
+

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


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