Add a DB::sub test to xt/

diff --git a/xt/05_dbsub.t b/xt/05_dbsub.t
new file mode 100644 (file)
index 0000000..a6ae6fe
--- /dev/null
+++ b/xt/05_dbsub.t
@@ -0,0 +1,22 @@
+#!perl -w
+BEGIN{ $^P = 0x10 | 0x200 }
+use Test::More;
+
+sub DB::DB {}
+
+{
+    package Foo;
+    use Mouse;
+
+    __PACKAGE__->meta->add_method(bar => sub{ __LINE__ });
+}
+
+if(Mouse::Util::MOUSE_XS){
+is $DB::sub{'Foo::bar'}, sprintf('%s:%d-%d', __FILE__, Foo->bar, Foo->bar),
+    '%DB::sub updated';
+}
+else{
+    pass 'under Mouse::PurePerl';
+}
+
+done_testing;