git.maemo.org Git - dh-make-perl/blob - dev/arm/liburi-perl/liburi-perl-1.35.dfsg.1/t/storable.t

   1 #!perl -w
   2
   3 eval {
   4     require Storable;
   5     print "1..3\n";
   6 };
   7 if ($@) {
   8     print "1..0 # skipped: Needs the Storable module installed\n";
   9     exit;
  10 }
  11
  12 system($^X, "-Iblib/lib", "t/storable-test.pl", "store");
  13 system($^X, "-Iblib/lib", "t/storable-test.pl", "retrieve");
  14
  15 unlink('urls.sto');