X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F45-memory.t;fp=t%2F45-memory.t;h=6805d9e49fc75f6fe4cc753bf5925bd33a447457;hp=0000000000000000000000000000000000000000;hb=175215d256b3ccb78ed48b5ad17c5e1d5ac3ba28;hpb=f02dad546d5c13916b4771154d8f7284fc3cb31c

diff --git a/t/45-memory.t b/t/45-memory.t
new file mode 100644
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');