[gimp-perl] Test non-present POD section behaviour.



commit 5c9ba766d6928359afb17c5b70c23935a18922a3
Author: Ed J <edj src gnome org>
Date:   Sat May 3 05:17:10 2014 +0100

    Test non-present POD section behaviour.

 t/gimppod.t |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)
---
diff --git a/t/gimppod.t b/t/gimppod.t
index 47c4dc8..d9680b5 100644
--- a/t/gimppod.t
+++ b/t/gimppod.t
@@ -12,6 +12,7 @@ is($p->section('NAME'), 'test - Run some tests', 'sect name');
 is($p->section('SPACE NAME'), 'Some text.', 'sect space-name');
 is($p->section('VERBATIM'), " verbatim\n verbatim2", 'sect verbatim');
 is($p->section('OTHER'), 'Other text.', 'sect at eof');
+is($p->section('NOT THERE'), undef, 'sect not there');
 
 done_testing;
 __END__


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]