Make some room in t/4*.t

[perl/modules/indirect.git] / t / 45-memory.t

diff --git a/t/45-memory.t b/t/45-memory.t
new file mode 100644 (file)
index 0000000..6805d9e
--- /dev/null
+++ b/t/45-memory.t
@@ -0,0 +1,10 @@
+#!perl -T
+
+use lib 't/lib';
+
+use Test::More tests => 1;
+
+BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
+
+eval "require indirect::Test0::Oooooo::Pppppppp";
+is($@, '', 'memory reallocation to an uncatched optype');