From cd884382ade198ea18a8a8231082bc8cdbc11d0c Mon Sep 17 00:00:00 2001
From: Mark Glines <mark@glines.org>
Date: Wed, 23 Jul 2008 22:31:13 -0700
Subject: [PATCH] Bring Wrapping.pm test coverage to 100%.

---
 t/1-classes/wrapping-base.t | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 t/1-classes/wrapping-base.t

diff --git a/t/1-classes/wrapping-base.t b/t/1-classes/wrapping-base.t
new file mode 100644
index 0000000..1021121
--- /dev/null
+++ b/t/1-classes/wrapping-base.t
@@ -0,0 +1,29 @@
+#!perl
+#
+# This file is part of Language::Befunge.
+# Copyright (c) 2001-2008 Jerome Quelin, all rights reserved.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the same terms as Perl itself.
+#
+#
+
+#
+# Language::Befunge::Wrapping
+#
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Test::Exception;
+
+use Language::Befunge::Wrapping;
+
+#-- constructor
+
+#- new()
+my $w = Language::Befunge::Wrapping->new;
+isa_ok($w, 'Language::Befunge::Wrapping');
+can_ok($w, 'wrap');
+throws_ok(sub { $w->wrap }, qr/not implemented in LBW/, "stub wrap method");
-- 
2.11.4.GIT