t/storable.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use strict;
use warnings;

eval {
    require Storable;
    print "1..3\n";
};
if ($@) {
    print "1..0 # skipped: Needs the Storable module installed\n";
    exit;
}

system($^X, "-Iblib/lib", "t/storable-test.pl", "store");
system($^X, "-Iblib/lib", "t/storable-test.pl", "retrieve");

unlink('urls.sto');