add loader test

miyagawa · Jan 25, 2009 · 83cdde5 · 83cdde5
1 parent e6817a8
commit 83cdde5
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/t/02_load.t b/t/02_load.t
@@ -0,0 +1,22 @@
+use Config;
+use FindBin;
+use File::Spec;
+use File::Path;
+
+my $dir;
+BEGIN {
+    $dir = File::Spec->catfile($FindBin::Bin, "blib", "arch", $Config{version}, $Config{archname});
+    unless (-e $dir) {
+        mkpath $dir, 0, 0777 or die $!;
+        open my $out, ">", "$dir/Foo.pm";
+        print $out "package Foo; \$VERSION = '1.0';\n1;\n";
+    }
+}
+
+use Test::More tests => 1;
+use blib::portable 't/blib';
+use Foo;
+
+is $Foo::VERSION, '1.0';
+
+END { rmdir $dir }