Compile test

Message-ID: <20011215010346.GD28596@blackrider>

p4raw-id: //depot/perl@13698

diff --git a/MANIFEST b/MANIFEST
index 176c8eb..2b9027d 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -93,6 +93,7 @@ ext/B/ramblings/runtime.porting       Compiler ramblings: porting PP enging
 ext/B/README           Compiler backend README
 ext/B/t/asmdata.t       See if B::Asmdata works
 ext/B/t/b.t            See if B works
+ext/B/t/bblock.t        See if B::Bblock works
 ext/B/t/debug.t                See if B::Debug works
 ext/B/t/deparse.t      See if B::Deparse works
 ext/B/t/showlex.t      See if B::ShowLex works

diff --git a/ext/B/t/bblock.t b/ext/B/t/bblock.t
new file mode 100644 (file)
index 0000000..1d8e04c
--- /dev/null
+++ b/ext/B/t/bblock.t
@@ -0,0 +1,12 @@
+#!./perl -Tw
+
+BEGIN {
+    chdir 't';
+    @INC = '../lib';
+}
+
+use Test::More tests => 1;
+
+use_ok('B::Bblock', qw(find_leaders));
+
+# Someone who understands what this module does, please fill this out.