Clean up tests.

[p5sagit/Devel-Declare.git] / t / load_module.t

diff --git a/t/load_module.t b/t/load_module.t
new file mode 100644 (file)
index 0000000..2b1ac62
--- /dev/null
+++ b/t/load_module.t
@@ -0,0 +1,19 @@
+=pod
+
+This tests against a segfault when PL_parser becomes NULL temporarly, while
+another module is loaded.
+
+=cut
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;                      # last test to print
+
+use Devel::Declare 'method' => sub{};
+
+sub lowercase {
+        lc $_[0];
+}
+
+is lowercase("FOO\x{263a}"), "foo\x{263a}";