[gimp-perl] Test non-present POD section behaviour.
- From: Ed J <edj src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [gimp-perl] Test non-present POD section behaviour.
- Date: Sat, 3 May 2014 04:17:29 +0000 (UTC)
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]