From b852bf25024c0d639055357ed278f488e26294e4 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Mon, 11 Jul 2011 21:55:44 +0200
Subject: [PATCH] Add tests for wrapping formats in B objects

---
 ext/B/t/b.t | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/ext/B/t/b.t b/ext/B/t/b.t
index c4fb633..71e0538 100644
--- a/ext/B/t/b.t
+++ b/ext/B/t/b.t
@@ -295,4 +295,13 @@ is(B::svref_2object(sub {})->ROOT->ppaddr, 'PL_ppaddr[OP_LEAVESUB]',
 B::svref_2object(sub{y/\x{100}//})->ROOT->first->first->sibling->sv;
 ok 1, 'B knows that UTF trans is a padop in 5.8.9, not an svop';
 
+{
+    format FOO =
+foo
+.
+    my $f = B::svref_2object(*FOO{FORMAT});
+    isa_ok $f, 'B::FM';
+    can_ok $f, 'LINES';
+}
+
 done_testing();
-- 
2.7.4