t/200-file/450-preload.t

   1 #!perl -w
   2 use strict;
   3 use Imager;
   4 use Test::More tests => 2;
   5
   6 $@ = "Hello";
   7 ok(Imager->preload, "preload doesn't die");
   8 is($@, "Hello", "check \$@ was preserved");